7
Excel Schleife durchschnittlich kompliziert
Guten Abend,
die Umsetzung habe ich mir überlegt, nur jetzt scheitert es an der Syntax.
Wie erreiche ich den effekt, dass in excel per vba folgendes passiert. die koplette spalte b soll in einem datenblatt nach dem wort "konto" durchsucht werden und sobald dieses wort gefunden wird soll der wert 1 feld über konto eine zeile links neben konto und auch an alle weiteren felder darunter geschrieben werden, bis wieder in spalte b das wort konto vorkommt und wieder der wert 1 feld über dem wort konto links neben das feld konto geschrieben wird, so lange bis wieder das wort konto vorkommt usw. das wort konto kann nur in spalte b vorkommen und es sollte von oben nach unten abgearbeitet werden, bis das wort konto nicht mehr erscheint.
alternative: kennt jemand ein buch, welches das an mich heranführen kann?
grüße chris
vorher
nachher
die Umsetzung habe ich mir überlegt, nur jetzt scheitert es an der Syntax.
Wie erreiche ich den effekt, dass in excel per vba folgendes passiert. die koplette spalte b soll in einem datenblatt nach dem wort "konto" durchsucht werden und sobald dieses wort gefunden wird soll der wert 1 feld über konto eine zeile links neben konto und auch an alle weiteren felder darunter geschrieben werden, bis wieder in spalte b das wort konto vorkommt und wieder der wert 1 feld über dem wort konto links neben das feld konto geschrieben wird, so lange bis wieder das wort konto vorkommt usw. das wort konto kann nur in spalte b vorkommen und es sollte von oben nach unten abgearbeitet werden, bis das wort konto nicht mehr erscheint.
alternative: kennt jemand ein buch, welches das an mich heranführen kann?
grüße chris
vorher
nachher
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 214418
Url: https://administrator.de/contentid/214418
Printed on: April 23, 2024 at 14:04 o'clock
7 Comments
Latest comment
Hallo ChrisDynamite!
Das sollte sich etwa so machen lassen:
Grüße
bastla
Das sollte sich etwa so machen lassen:
Sub Aufbereiten()
AbZeile = 2
Spalte = 2 'Spalte B
Suche = "*Konto*"
Zeile = AbZeile
Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen
Do While Wert <> "" 'Solange Zelle nicht leer
If Wert Like Suche Then 'Suchbegriff enthalten?
Konto = Cells(Zeile - 1, Spalte).Value 'Konto aus darüber liegender Zelle lesen
End If
Cells(Zeile, Spalte - 1).Value = Konto 'Konto links neben aktueller Zelle eintragen
Zeile = Zeile + 1 'nächste Zeile
Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen
Loop
End SubGrüße
bastla
2
ich werde den code testen, schonmal vielen Dank!
bitte nenne mir noch ein gutes buch indem ich das auch mal selbst checken kann.
bitte nenne mir noch ein gutes buch indem ich das auch mal selbst checken kann.
kuhl vielen dank der code funktioniert echt gut. prima eins fällt mir noch auf, sobald die abfrage nach einem zweiten konto wert kommt, macht das script nicht mehr weiter siehe bild
danke vielmals!
normalerweise sollten nun die vorderen zeilen mit dem neuen wert über konto gefüllt werden, also 5611
danke vielmals!
normalerweise sollten nun die vorderen zeilen mit dem neuen wert über konto gefüllt werden, also 5611
ich habe nun die felder "besser formatiert" also dass nicht mehr die grünen ecken angezeigt werden. nun ist der effekt, dass alle felder davor mit dem wert 5610 beschrieben werden und 5611 missachtet wird.
Nachtrag, nein es scheint eher so, als dass in zeile 70 die vba nichts mehr machen zu wollen, wen ich das feld konto zwischendrin eintrage wird der wert darüber übernommen. super sache
nur leider hört das script in zeile 70 auf.
Nachtrag, nein es scheint eher so, als dass in zeile 70 die vba nichts mehr machen zu wollen, wen ich das feld konto zwischendrin eintrage wird der wert darüber übernommen. super sache
nur leider hört das script in zeile 70 auf.
solange zelle nicht leer dürfte das problem sein.
ich habe das nun gelöst indem ich festgelegt habe Do While Wert <> "exit" 'Solange Zelle nicht leer. den wert exit habe ich gaaaaaanz tief unten gelegt. gibt es noch galantere möglichkeiten. wirklich super script. das hat für zumindest freitag meinen kopf gerettet. danke bastla
Hallo ChrisDynamite!
Aufgrund Deines Beispiels war ich von zusammenhängenden Daten ausgegangen - Alternative:
Grüße
bastla
Aufgrund Deines Beispiels war ich von zusammenhängenden Daten ausgegangen - Alternative:
Sub Aufbereiten()
AbZeile = 2
Spalte = 2 'Spalte B
Suche = "*Konto*"
BisZeile = Cells(Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile mit einem Wert in "Spalte" ermitteln
For Zeile = AbZeile To BisZeile
Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen
If Wert Like Suche Then 'Suchbegriff enthalten?
Konto = Cells(Zeile - 1, Spalte).Value 'Konto aus darüber liegender Zelle lesen
Cells(Zeile - 1, Spalte - 1).Value = "" 'Zellinhalt neben neuem Konto löschen
End If
If Trim(Wert) <> "" Then Cells(Zeile, Spalte - 1).Value = Konto 'Wenn Zelle nicht leer, Konto links neben aktueller Zelle eintragen
Next
End Subbastla
