Hallo zusammen,
ich versuche mich derzeit daran ein Makro für Excel zu erstellen. Ist für mich aber noch Neuland und ich stoße gerade an meine Grenzen.
Folgende Ausgangssituation:
Ich habe eine Tabelle die ungefähr (verkürzt)wie folgt ausschaut.
Artikelnummer / PGNr / Bezeichnung / Art / Beschreibung / Vermerk
1000 / 1234 / Teil 1 / 10 /Beschreibungstext Zeile1 / Auslaufartikel
////Beschreibungstext Zeile2/
////Beschreibungstext Zeile3/
////Beschreibungstext Zeile4/
1000 / 3456 / Teil 2 / 11 /Beschreibungstext Zeile1 /
////Beschreibungstext Zeile2/
1000 / 5666 / Teil 3 / 10 /Beschreibungstext Zeile1 / Auslaufartikel
////Beschreibungstext Zeile2/
////Beschreibungstext Zeile3/
////Beschreibungstext Zeile4/
////Beschreibungstext Zeile5/
3000 / 1999 / Teil 5 / 10 /Beschreibungstext Zeile1 / Auslaufartikel
////Beschreibungstext Zeile2/
////Beschreibungstext Zeile3/
////Beschreibungstext Zeile4/
3000 / 1999 / Teil 5 / 15 /Beschreibungstext Zeile1 /
////Beschreibungstext Zeile2/
////Beschreibungstext Zeile3/
////Beschreibungstext Zeile4/
////Beschreibungstext Zeile5/
1100 / 5678 / Teil 6/ 10 /Beschreibungstext Zeile1 / Auslaufartikel
////Beschreibungstext Zeile2/
////Beschreibungstext Zeile3/
////Beschreibungstext Zeile4/
.
.
.
so ca. 100.000 Zeilen lang
Um das ganze weiterverarbeiten zu können dürfen mit ausnahme der letzten Zelle „Vermerk“ keine leeren Zellen mehr vorhanden sein. Die schönste Lösung wäre es gewesen ich bekäme die weiteren Beschreibungstexte in die jeweilige Haupteintragszelle hinein. In die Richtung habe ich aber keinen Lösungsansatz finden können.
Daher bin ich erst einmal dazu über gegangen die Leeren Zellen mit den zugehörigen Werten von oben zu füllen. Das ist mir auch schon „Learning by doing“ soweit gelungen.
With Intersect(Columns(„A:A“), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = „=R[-1]C“
.Value = .Value
End With
With Intersect(Columns(„B:B“), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = „=R[-1]C“
.Value = .Value
End With
End Sub
.
.
.
.
Aber wie mache ich das mit dem Vermerk wenn ich da stumpf von oben übernehme habe ich den Vermerkt auch bei den Artikeln wo er nicht hin soll. Wie setzte ich jetzt eine Abfrage um die sich am jeweiligen „Block“ orientiert?
Kann mir einer helfen?
Grüße
Sun
