Schleife bei bestimmter Zeile beenden
Sven
sitze gerade ziemlich auf der Leitung und habe auch über Neztrecherchen keine Lösung gefunden. Hier mein Problem:
Nachfolgendes (Übungs!)-Makro kopiert Zellen aus dem aktiven Worksheet in alle nachfolgenden Worksheets des Workbooks. Zielzelle (Anfang) des Kopiervorgangs ist immer die unterste freie Zeile der Spalte A. Wiederholt wird der Vorgang so oft, wie in Zelle E5 eingegeben.
Jezt möchte ich die zusätzliche Bedingung formulieren, dass das dieser Vorgang immer bei Zeile 50 endet. Also grundsätzlich so oft in E5 angegeben, AUßER Zeile 5 wird erreicht, dann abbrechen.
hier mal mein Makro:
Sub Markierung_x_fach_kopieren()
Dim Loletzte As Long
a = Cells(5, 5).Value
For I = a To 1 Step -1
For Each Worksheet In ActiveWorkbook.Worksheets
Select Case Worksheet.Name
Case "Mast"
Case Else
If IsEmpty(Worksheet.Cells(1, 1)) Then
With Worksheet
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Selection.Copy Destination:=.Cells(Loletzte, 1)
End With
End If
End Select
Next Worksheet
Next I
End Sub
Gruß, Sven