Hi Zusammen,
habe folgendes Problem, dass ich gerne mit einem VBA Makro lösen würden
Meine Tabelle sieht wie folgt aus:
_____A______B______C______D_____E_________________
l
1 l 4253 lm AP 154 248
2 l 4253 lm AP 254 248
3 l 4253 lm AP 789 248
4 l 1555 lm AP 154 248
5 l 1555 lm AP 457 248
Das Makro soll sie af diese Form bringen, bzw. eine neue tabelle erstellen:
_____A______B______C______D_____E_________________
l
1 l 4253 lm
2 l AP 154 248
3 l AP 254 248
4 l AP 789 248
4 l 1555 lm
5 l AP 154 248
6 l AP 457 248
ist das irgendwie machbar…bin vollkommen verloren
Hi Larry,
benutze bitte den Pre-Tag, dann sieht es lesbarer aus:
A B C D E
1 4253 lm AP 154 248
2 4253 lm AP 254 248
3 4253 lm AP 789 248
4 1555 lm AP 154 248
5 1555 lm AP 457 248
> Das Makro soll sie af diese Form bringen, bzw. eine neue
> tabelle erstellen:
A B C D E
> 1 4253 lm
> 2 AP 154 248
> 3 AP 254 248
> 4 AP 789 248
> 4 1555 lm
> 5 AP 154 248
> 6 AP 457 248
ungetestet:
sub test()
dim ZeiQ as long, ZeiZ as long, wsQuelle as worksheet, wsZiel as worksheet
set wsQuelle=worksheets("Tabelle1")
set wsZiel=worksheets("Tabelle2")
with wsQuelle
wsZiel.range("A1")=.range("A1")
wsZiel.range("B1")=.range("B1")
ZeiQ=2
ZeiZ=1
while .cells(ZeiQ,1)""
ZeiZ=ZeiZ+1
if .cells(ZeiQ,1)=.cells(ZeiQ-1,1) then
wsZiel.cells(ZeiZ,1)=.cells(ZeiQ,3)
wsZiel.cells(ZeiZ,2)=.cells(ZeiQ,4)
wsZiel.cells(ZeiZ,3)=.cells(ZeiQ,5)
else
wsZiel.cells(ZeiZ,1)=.cells(ZeiQ,1)
wsZiel.cells(ZeiZ,2)=.cells(ZeiQ,2)
end if
ZeiQ=ZeiQ+1
wend
end with
end sub
Mir fällt grad auf, mit .Copy wäre es eleganter gegangen, aber bleibt jetzt so 
Gruß
Reinhard