In dem Fall musst du folgendes tun:
Sub Werte_uebertragen()
Dim wertEnthalten As Boolean
Dim i As Integer
wertEnthalten = True
i = 2
Do While wertEnthalten = True
If ThisWorkbook.Worksheets("Beispiel").Cells(i, 2).Value = "" Then
wertEnthalten = False
Else
ThisWorkbook.Worksheets("Beispiel").Cells(i + 1, 2).Value = ThisWorkbook.Worksheets("Beispiel").Cells(i, 2).Value
i = i + 2
End If
Loop
End Sub
Natürlich musst du auf das Tabellenblatt verweisen, das du in deinem Fall vorliegen hast.
Grüße
Fabi
|