Do while
20.12.2006 15:14:05
Daniy
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
Anzeige