Do Schleife
06.02.2016 08:57:23
Ralle
ich verzweifle leider an folgender Schleife:
Public Sub Test4()
Dim Introw As Integer
Introw = 1
Do
If Cells(Introw, 1) > 0 Then
Cells(Introw, 4) = Cells(Introw, 1) & vbNewLine & Cells(Introw, 2) & vbNewLine & _
Cells(Introw, 3)
End If
Introw = Introw + 1
Loop
End Sub
Es sollen nur die Inhalte der Spalten 1,2 und 3 untereinander in eine Zelle kopiert werden. Das ganz so lange, bis in der Spalte 1 nichts mehr steht.
Der Befehl funktioniert, jedoch durchläuft er keiner Schleife.
Wo ist mein Fehler?
Vielen Dank für eure Hilfe.