Herbers Excel-Forum - das Archiv

Do while

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Do while
von: Daniy

Geschrieben am: 20.12.2006 15:14:05
Ich schon wieder ;-)
Hab dieses mal ein Problem mit einer Formel.
Zuerst sortier ich die Tabelle, danach soll er mir dann über VBA eine verkettung aller nicht-leeren zeilen machen (Spalte C, E und F) und diese dann in Zeile BZ setzen) Ich hab schon mal was gebastelt, aber irgendwie füllt er mir damit nur die erste Zeite von BZ???
Private Sub CommandButton2_Click()
Sheets("Kunden").Select
Range("A3:BK60000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
z = 3              'bis Zeile 3 sind es Bemerkungen oder Überschriften...
Do While Cells(z, 1) = ""
Sheets("Kunden").Cells(z, 78) = Sheets("Kunden").Cells(z, 3) & " " & Sheets("Kunden").Cells(z, 6) & " " & Sheets("Kunden").Cells(z, 7)
z = z + 1
Loop
End Sub

Bild

Betrifft: AW: Do while
von: Klaus-Dieter

Geschrieben am: 20.12.2006 15:18:54
Hallo Daniy,
deine Schleife läuft, solange in Spalte A aktuelle Zeile kein Inhalt ist. Meinst du das so??
Viele Grüße Klaus-Dieter

Online-Excel
Bild

Betrifft: AW: Do while
von: Dani
Geschrieben am: 20.12.2006 15:19:56
Bei der ersten freien Zeile (Spalte 1) fällst du mit diesem Code aus der Do-Schleife...
Gruss
Dani
Bild

Betrifft: AW: Do while
von: Dani
Geschrieben am: 20.12.2006 15:21:57
Sorry genau umgekehrt Schleife bis Zeile nicht leer in Spalte 1!
Gruss
Dani
Bild

Betrifft: AW: Do while
von: Daniy
Geschrieben am: 20.12.2006 15:48:45
Vielen lieben dank... hatte das jetzt einfach net gesehen. (Zeit dass ich Urlaub bekomm) ;-)
VlG
 Bild