Office: tabellen umsortieren?

Moin, hab nochmal ne frage
undzwar haben wir eine tabelle in form von anhang tabelle1
und müssen diese umsortieren in form von anhang tabelle2

ich hab es versucht mit einer verschachtelung von if abfragen, aber das haut nich so hin wie ich mir das vorstelle.
das problem ist:
ich hab in Spalte A ein zeichen x das immer wieder auftaucht es bleibt auch immer gleich. in Spalte B hab ich dann einen wert und in Spalte C hab ich einen Preis.
jetzt soll immer wenn das Zeichen in A auftaucht alle spalten B und C bis zum nächsten A Zeichen in ein neues dokument kopiert werden undzwar nebeneinander anstatt untereinander
also wert aus '[tab1]sheet1'!B2 nach '[tab2]sheet1'!B2
wert aus '[tab1]sheet1'!C2 nach '[tab2]sheet1'!B3
wert aus '[tab1]sheet1'!B3 nach '[tab2]sheet1'!B4
wert aus '[tab1]sheet1'!C3 nach '[tab2]sheet1'!B5
usw.

ich hab die starke vermutung mit normalen excel befehlen ist das nicht zu lösen, sondern nur mit macros.
von hand wäre es zwar möglich, aber die datei die so umgewandelt werden soll hat über 30.000 einträge und das dauert wohl ein bisschen lang.

wär klasse wenn einer ne idee hat wie das geht.

office/excel2000

MFG madde

 

Hallo!

Angewandt auf deine Datei "Tabelle1.xls" funktioniert bei mir dieser Code:

Code:

Sub Umordnen()
Dim Zeile As Long, Zeile2 As Long, Ende As Long
Application.ScreenUpdating = False
With Sheets("Sheet1")
Ende = .Range("B65536").End(xlUp).Row
Zeile2 = 1  'Erste Ausgabezeile in Sheet2 minus 1
For Zeile = 2 To Ende  'Die Liste in Sheet1 beginnt in Zeile 2
If .Cells(Zeile, 1).Text = "0" Then  'gesucht wird nach "0"
Zeile2 = Zeile2 + 1
.Range(.Cells(Zeile, 1), .Cells(Zeile, 3)).Copy
Sheets("Sheet2").Cells(Zeile2, 1).PasteSpecial Paste:=xlPasteAll
Else
.Range(.Cells(Zeile, 2), .Cells(Zeile, 3)).Copy
Sheets("Sheet2").Cells(Zeile2, Sheets("Sheet2").Cells(Zeile2, 256). _
End(xlToLeft).Column + 1).PasteSpecial Paste:=xlPasteAll
End If
Next Zeile
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub

Die umsortierten Daten erscheinen in Sheet2.

 

geil vielen dank :)
für meine kleine tabelle funktinierts, haste ja gesagt :)
ma gucken was passiert wenn ich den in die groß liste ein bau und entsprechend editiere :D
wird wahrscheinlich ewig brauchen bei der hardware hier, aber das ist dann nichtmehr mein problem^^

nochmals vielen dank, du bist echt genial :)