14.01.2018, 18:41
Hallo Gast 123
genau da gebe ich dir recht, so lernt man es am Besten.
Sitz auch gerade seit 2 Stunden am code und versuche den Fehler zu bereinigen,
bloß klappt es nicht ganz
Versuche es mit:
Else 'Einzel-Aufträge auflisten
If AT.Cells(j, 1) = AT.Cells(j - 1, 1) Then sz = sz + 1 'sz Korrektur
AT.Cells(j, 1).Resize(1, 5).Copy .Cells(ez, "A")
If .Cells(ez, "A") = Cells(sz - 1, "I") Then .Cells(ez, "E").Clear
ez = ez + 1: n = 0
so ganz funktioniert es nicht da ich nur eine Zelle und nicht die gespeicherte Zeile entferne,
und eigentlich ist dies ja auch um die Kirche ins Dorf geschickt.
Ich bin dennoch extrem begeistert von der Lösung :18:
Wobei ich noch einen weiten Weg zur endgültigen Problemlösung habe....
@Gast 123 - Kann man dich eigentlich auch buchen, wirklich genial der VBA-code bisher.
Was ich genau nach dem NEXT einfügen muss ist mir unklar, da diese Zeile nicht nach jedem Schleifendurchlauf abgefragt wird?!?
Vielen lieben Dank nochmals
und ich freue mich auf weitere Hilfe
:100:
SnowRaider
genau da gebe ich dir recht, so lernt man es am Besten.
Sitz auch gerade seit 2 Stunden am code und versuche den Fehler zu bereinigen,
bloß klappt es nicht ganz
Versuche es mit:
Else 'Einzel-Aufträge auflisten
If AT.Cells(j, 1) = AT.Cells(j - 1, 1) Then sz = sz + 1 'sz Korrektur
AT.Cells(j, 1).Resize(1, 5).Copy .Cells(ez, "A")
If .Cells(ez, "A") = Cells(sz - 1, "I") Then .Cells(ez, "E").Clear
ez = ez + 1: n = 0
so ganz funktioniert es nicht da ich nur eine Zelle und nicht die gespeicherte Zeile entferne,
und eigentlich ist dies ja auch um die Kirche ins Dorf geschickt.
Ich bin dennoch extrem begeistert von der Lösung :18:
Wobei ich noch einen weiten Weg zur endgültigen Problemlösung habe....
@Gast 123 - Kann man dich eigentlich auch buchen, wirklich genial der VBA-code bisher.
Was ich genau nach dem NEXT einfügen muss ist mir unklar, da diese Zeile nicht nach jedem Schleifendurchlauf abgefragt wird?!?
Vielen lieben Dank nochmals
und ich freue mich auf weitere Hilfe
:100:
SnowRaider