Schleife in Makro
05.02.2019 17:18:23
Peter
ich habe ein Makro geschrieben, welches einwandfrei funktioniert.
Es soll in alle Zeilen, in welchen in Spalte D = leer und Spalte H >""
Werte eingefügt werden.
Das funktioniert. Aber ich benötige noch eine Schleife, dass dies so oft geschieht, bis alle Zeilen gefüllt sind entsprechend den Bedingungen.
Derzeit funktioniert dies nur, wenn ich das Makro 3 mal ausführe.
Leider weiss ich nicht, wo ich diese Schleife einfügen muss.
~f
Sub test03()
Dim zeileDQuelle As String, zeileHQuelle As String, zeileDZiel As String, zeileHZiel, _
zeileDZiel2 As String
zD = Worksheets("KontenBericht").Cells(Rows.Count, 4).End(xlUp).Row
zH = Worksheets("KontenBericht").Cells(Rows.Count, 7).End(xlUp).Row
zeileDZiel = Worksheets("KontenBericht").Cells(Rows.Count, 4).End(xlUp).Row + 1 'erforderlich fü _
r Prüfung und einfügen von Copy
zeileHZiel = Worksheets("KontenBericht").Cells(Rows.Count, 8).End(xlUp).Row + 1 'erforderlich fü _
r Prüfung
If Worksheets("KontenBericht").Cells(zeileDZiel, 4) = "" And Worksheets("KontenBericht").Cells( _
zeileDZiel, 4).Offset(0, 4) > "" Then
With Worksheets("KontenBericht")
' .Range(.Cells(zD, 4), .Cells(zH, 7)).Copy Destination:=Worksheets("KontenBericht"). _
Cells(6, 4) 'Range("A1")
.Range(.Cells(zD, 4), .Cells(zH, 7)).Copy Destination:=Worksheets("KontenBericht"). _
Cells(zeileDZiel, 4) 'Range("A1")
End With
Else
'MsgBox "Fehler" '"D6 leer, H6 nicht leer"
Exit Sub
End If
End Sub
~f
Besten Dank für eure Hilfe.
Gruss
Peter
Anzeige