For next schleife
Rudi
Ich komme mit meinen schmalen VBA Kenntnissen leider nicht weiter und muss eure Hilfe bemühen.
Bitte schaut euch mal mein Makro an und sagt mir, was ich falsch mache (abgesehen davon, dass es bestimmt auch viel schöner geht, aber mir fehlt einfach noch das wissen ;-)
Folgendes Problem:
Ich habe ein Tabelle mit Kundendaten. In Spalte A steht die Kundennummer, in Spalte E der Vorname, in Spalte F der Nachname und in Spalte G gegebenenfalls ein zweiter Name, wenn es sich um einen Gemeinschaftskunden handelt (also 2 Personen mit einer Kundennummer). Mein Makro soll die Spalte G durchlaufen und wenn G nicht leer ist, soll er darunter eine Zeile einfügen, den Namen aus G ausschneiden und in der neuen Zeile in Spalte E einfügen. Zusätzlich soll die Kundennummer aus der Zeile in der G gefunden wurde in die neue Zeile kopiert werden. Ich will also bei jedem Gemeinschaftskunden die Namen in 2 Zeilen stehen haben, wo in jeder Zeile in Spalte A die Kundennummer steht. Wenn G leer ist soll er einfach eine Zeile tiefer prüfen ob in G ein Wert vorhanden ist ... solange bis in A keine Kundennummer mehr steht, A also leer ist.
Mein Makro macht das aber leider nicht ;-) beim ersten funktioniert es noch, aber dann leider nicht mehr.
Sub NachnamenVerschieben()
z = 2
r = z + 1
Do
For z = 2 To 14000
If Sheets("Tabelle1").Range("G" & z) <> "" Then
Rows(r & ":" & r).Select
Selection.Insert Shift:=xlDown
Sheets("Tabelle1").Range("G" & z).Cut
Range("E" & r).Select
ActiveSheet.Paste
Sheets("Tabelle1").Range("A" & z).Copy
Range("A" & r).Select
ActiveSheet.Paste
z = z + 2
Else
z = z + 1
End If
Next z
Loop While Range("A" & z) = ""
End Sub
Ich hoffe ich hab mich nicht zu umständlich ausgedrückt. Danke für eure Hilfe!
Gruss
Rudi
Anzeige