Do 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Test5() Dim lngRow As Long lngRow = 1 Do If Cells(lngRow, 1) > 0 Then Cells(lngRow, 4) = Cells(lngRow, 1) & vbNewLine & Cells(lngRow, 2) & vbNewLine & _ Cells(lngRow, 3) ElseIf IsEmpty(Cells(lngRow, 1)) Then Exit Do End If lngRow = lngRow + 1 Loop End Sub

Nein, A 2 ist nicht leer. Wenn ich die Werte in der Spalte A negativ setze, durchläuft der Code auch die Zeilen. Sobald aber der erste Wert positiv ist wird die Aktion einmal ausgeführt und danach ist Schluss.
Die Datei kann ich irgendwie nicht hochladen. Daher das Beispiel hier:

         A               B               C
1   Überschrift 1  Überschrift 2   Überschrift 3
2   Vielen             Dank                 !
2   Danke             Bitte                 ?

                             Vielen
Nun soll in D2 folgendes:    Dank
Danke
In D3 folgendes:  Bitte
?

Mit deinem Code wird der Code allerdings nur in der Zeile ausgeführt in der der erste Wert in Spalte A positiv ist. Danach hört er auf.
Vielen Dank für die Hilfe!
D

Hi,
die o.g. Tabelle ist hier nur zur Veranschaulichung. Normalerweise stehen dort Zahlen drin, teilweise sind diese getrennt mit einem / (z.B. 702/1111/454).
Ja, ich möchte VBA lernen und habe dafür vor kurzem einen Grundkurs besucht. Nun sitze ich selbst an dem Problem und bekomme es nicht hin.
Mit einer Formel ist das ganze zwar im Arbeitsblatt lösbar, jedoch erstreckt sich meine Zielszenario über mehrere Tabellenblätter und es soll im Anschluss noch weiter gehen. Das habe ich zum Teil schon hinbekommen, muss aber garnicht weiter machen wenn ich diesen Schritt hier nicht hinbekomme.
Gerne würde ich eine Datei hochladen, die sind aber leider ausgegraut. Habe alle verschiedenen Dateiendungen schon probiert, leider aber ohne Erfolg.
Zu deinem Punkte e): Das klingt auch nach einer Möglichkeit. Wie genau sieht die denn aus?

Sub Test4() Dim lngRow As Long ' Zeilennummer ' Mit Tabelle1 diser Arbeitsmappe With ThisWorkbook.Worksheets(1) ' Wir fangen bei Zeile 2 an lngRow = 2 Do .Cells(lngRow, 4) = .Cells(lngRow, 1) & vbNewLine & _ .Cells(lngRow, 2) & vbNewLine & _ .Cells(lngRow, 3) ' Nächste Zeile lngRow = lngRow + 1 ' Wenn die nächste Zelle in A leer ist, fertig Loop While .Cells(lngRow, 1) "" End With End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread