Loop bis Zelle leer ist
22.05.2017 17:02:09
Sandro
Schon oft wurde mir hier geholfen, also hoffe ich auch jetzt wieder auf eure Hilfe.
Wie muss ich folgenden Code ergänzen, damit er so oft ausgeführt wird bis die Zelle A2 im Sheet "Stammdaten" leer ist?
Sub Daten_Üebertragen()
' Daten_Üebertragen Makro
Sheets("Aufbereitung Final").Select
Range("A2:H18").Select
Selection.Copy
Sheets("Datenzusammenstellung").Select
If Cells(1, 1).Offset(1, 0).Value = "" Then
Cells(1, 1).Offset(1, 0).Select
Else
Cells(1, 1).End(xlDown).Offset(1, 0).Select
End If
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
_
:=False, Transpose:=False
Sheets("Stammdaten").Select
Rows("2:17").Delete
Sheets("Datenzusammenstellung").Select
End Sub
Vielen Dank & GrussSandro