Hallo Zusammen,
vielleicht kann mir hier jemand helfen 
Ich habe eine Tabelle, deren Aufbau so aussieht:
SERIENNR TEILENR
AUTO A 303514438
303702107 878694
303702107 4512263
303702107 4787149
303702107 7396225
303702107 7396337
AUTO A 303513825
303702107 878694
303702107 878694
303702107 878725
303702107 1305836
303702107 2358585
...
Ich möchte gerne, daß nur wenn in einer Zeile AUTO auch AUTO steht, die leeren Zellen in der Spalte SERIENNR mit dieser "A "-Nr auffüllen. Und das auch nur so lange, bis eine neue Zeile mit „AUTO“ auftaucht. Dann soll die nächste "A "-Nr. gezogen werden.
Die Tabelle sollte dann nachher so aussehen …:
SERIENNR TEILENR
AUTO A 303514438 A 303514438
303702107 A 303514438 878694
303702107 A 303514438 4512263
303702107 A 303514438 4787149
303702107 A 303514438 7396225
303702107 A 303514438 7396337
AUTO A 303513825 A 303513825
303702107 A 303513825 878694
303702107 A 303513825 878694
303702107 A 303513825 878725
303702107 A 303513825 1305836
303702107 A 303513825 2358585
...
Kann mir jemand Tipps geben, wie ich das mit VBA hinkriege?
Ich bedanke mich jetzt schon für Eure Mühe …
gruss
moritzbock
Hallo,
folgende Lösung geht zum Ziel:
Sub Ausfüllen()
Ze = 2 'erste Zeile
Sp = 1 ’ erste der 3 Spalten
Text = „AUTO“
Sp3 = „“
Do
Sp1 = Cells(Ze, Sp).Value
If Sp1 = Text Then 'Stimmt mit vorgegebenen Wert überein
Sp3 = Cells(Ze, Sp + 2).Value
End If
Cells(Ze, Sp + 1).Value = Sp3
Ze = Ze + 1
Loop Until Sp1 = „“ 'Beende wenn leere Zeile erreicht
End Sub
Füge diesen Code ein (weißt du wie?). Du musst nur noch festlegen, welche die erste Zeile sein soll und die erste Spalte (ganz oben im Programm) und auch der Text, nachdem du suchen lassen willst musst du erwähnen (falls er sich mal ändert). Das Programm endet, wenn du es eine leere Zeile vorfindet. Falls das zwischendurch mal vorkommen kann, sollte man statt einer Do…Loop-Schleife eine For-Next-Schleife verwenden. Falls du nochmal Hilfe brauchst --> anschreiben (und Code mitsenden).
Viel Spaß
Hallo Tobi@s,
Tausend Dank und 1 Mio. Sternchen.
Dein Tipp hat einwandfrei geklappt.
So macht W-W-W richtig Laune …
gruss
moritzbock
Hallo,
folgende Lösung geht zum Ziel:
Sub Ausfüllen()
Ze = 2 'erste Zeile
Sp = 1 ’ erste der 3 Spalten
Text = „AUTO“
Sp3 = „“
Do
Sp1 = Cells(Ze, Sp).Value
If Sp1 = Text Then 'Stimmt mit vorgegebenen Wert überein
Sp3 = Cells(Ze, Sp + 2).Value
End If
Cells(Ze, Sp + 1).Value = Sp3
Ze = Ze + 1
Loop Until Sp1 = „“ 'Beende wenn leere Zeile erreicht
End Sub