Frage zu Schleife, Ablauf
24.01.2023 06:21:07
Fred
ich habe eine Frage zu (generellen) Ablauf einer Makro-Schleife.
Das unten angegebene Makro beginnt in der 11ten Zeile,- kopiert u.a. Zellinhalte von Sheet "Tagesplan" in verschiedene Sheets.
Dann wird das Makro2 aufgerufen
Dann wird in der Schleife "der zweite Durchgang" gestartet.
Meine Frage:
Wenn im aufgerufenen "Makro2" u.a. die 11te Zeile gelöscht wird, wo fährt die Schleife weiter?
Wieder Zeile 11 oder Zeile 12
Sub schleife_1()
Dim wks_q As Worksheet
Dim wks_imp As Worksheet
Dim wks_tp As Worksheet
Dim wks_ausw As Worksheet
Dim lngLastRow As Long
Dim lngC As Long
Application.ScreenUpdating = False
Set wks_tp = ThisWorkbook.Sheets("TagesPlan")
Set wks_imp = ThisWorkbook.Sheets("Import")
Set wks_ausw = ThisWorkbook.Sheets("Auswertung")
With wks_tp
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngC = 11 To lngLastRow
wks_imp.Cells(1, 7) = .Cells(lngC, 7).Value
wks_imp.Cells(2, 7) = .Cells(lngC, 8).Value
wks_ausw.Cells(2, 6) = .Cells(lngC, 1).Value
wks_ausw.Cells(3, 6) = .Cells(lngC, 8).Value
' Call hier das Makro2, welches die erste Zeile in wks_tp (Sheet Tagesplan) löscht, aufgerufen
Next lngC
End With
Application.ScreenUpdating = True
End Sub
GrussFred