Thema Datum  Von Nutzer Rating
Antwort
Rot VBA/Makro über definierte Zeilen nicht ausführen
 19.08.2014 07:55:51 skiller89
NotSolved

Ansicht des Beitrags:
Von:
skiller89		 Datum:
19.08.2014 07:55:51		 Views:
1526		 Rating:
     
Antwort:
  Ja
Thema:
VBA/Makro über definierte Zeilen nicht ausführen

Hay Leute,

es steht das nächste Problem an :-)

Die Anforderungen werden immer größer, weil es durch eure Hilfe so gut funktioinert :-)

Bevor die Kopierfunktion startet, müssen 2 Bedingungen durchgeführt werden:

Wenn in Spalte I eine "2" steht, dann soll in Spalte Q das Zeichen "./." geschrieben werden.

Wenn in Spalte I eine "3" steht, dann soll in Spalte K und Q das Zeichen "./." geschrieben werden.

Ich hoffe auf eure Hilfe!!!

Folgendes Makro habe ich bis jetzt:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Archivierungsliste_erstellen()
 
    Dim strFilename As String
    Dim wkb As Workbook
    Dim lngLZ As Long
    Dim rngL As Range
 
 
' Pfad definieren
 
        pfad = "O:\ABT\RW2\SCG\Aufgaben\Makro_Vollstreckung\scg\"
 
'Workbook definieren
 
       Set wkb = Workbooks.Open(Filename:="O:\ABT\RW2\SCG\Aufgaben\Makro_Vollstreckung\scg\Abschreibung_Titel_aktuell.xlsx", Local:=True)
        
'Spalten W bis BB ausblenden
        
       Columns("W:BB").EntireColumn.Hidden = True
             
'Kopieren der oberen Zeile in untere Zeile
             
        On Error Resume Next
        lngLZ = Cells(Rows.Count, 1).End(xlUp).Row - 1
        Application.ScreenUpdating = False
        For Each rngL In Range("A4:D" & lngLZ).SpecialCells(xlCellTypeBlanks)
        rngL.Value = rngL.Offset(-1).Value
        Next rngL
        For Each rngL In Range("I4:K" & lngLZ).SpecialCells(xlCellTypeBlanks)
        rngL.Value = rngL.Offset(-1).Value
        Next rngL
        For Each rngL In Range("M4:U" & lngLZ).SpecialCells(xlCellTypeBlanks)
        rngL.Value = rngL.Offset(-1).Value
        Next rngL
        Application.ScreenUpdating = True
            
' Excel als PDF abspeichern
            
        strFilename = Application.GetSaveAsFilename( _
        InitialFileName:=pfad & "Abschreibung_Titel_BHI_2014_MM.pdf", _
        FileFilter:="PDF (*.pdf), *.pdf", _
        Title:="als PDF speichern")
 
        If strFilename <> "Falsch" Then
        wkb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename
        End If
        
'Spalten W bis BB einblenden
        
       Columns("W:BB").EntireColumn.Hidden = False
               
'Workbook schließen
               
       Workbooks("Abschreibung_Titel_aktuell.xlsx").Close savechanges:=False
 
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA/Makro über definierte Zeilen nicht ausführen
 19.08.2014 07:55:51 skiller89
NotSolved