Moin Moin,
ich habe folgendes Problem:
In einer Tabele habe ich ca. 20.000 Zeilen importiert aus einem Leistungsverzeichniss. Leider sind beim Import nicht alle Teile die zu einer Position gehöhren in eione Zeile gekommen so das nun aufwendiges zusammenschieben erforderlich ist. (Den Import, bzw. an der darasu sich ergebenden Tabelle kann ich nicht änder, da sie von außerhalb kommt.) Dieses möchte ich nun mittels Programm realisieren.
Dazu habe ich folgenden Ablauf gebastelt:
Sub Verschieben()
'
' Verschieben Makro
'
' Tastenkombination: Strg+a
'
Range("A974").Select
Selection.Cut Destination:=Range("C973")
Range("B975:E975").Select
Selection.Cut Destination:=Range("D973:G973")
Rows("974:975").Select
Selection.Delete Shift:=xlUp
Range("A974").Select
End Sub
Nun habe ich folgenden fehler: das Makro ist auf eine bestimmte Zelle festgelegt, ich möchte das es immer von der Aktivenzelle ausgeht, und dann die Verschiebung entsprechend macht. nach Abschluss der Verschiebung sollte das Makro an den Anfang springen und fragen ob die Aktion erneut ausgeführt werden soll. Bei Ja ENTER bei nein ESC, wenn mir da jemand das Anpassen könte bin ich sehr dankbar.
M04.22.12.1138 |
Rundschweißung kompl. |
|
Rundschweißung kompl. 406,4*8 incl.Vorbereitung, Techn.LB DIN 9692, P265GH |
|
1 |
Stck |
707 |
706,7 |
|
|
M04.22.12.1139 |
Rundschweißung kompl. |
|
Rundschweißung kompl. 457*3,6 incl.Vorbereitung, Techn.LB DIN 9692, P265GH |
|
1 |
Stck |
362 |
361,9 |
|
|
M04.22.12.1140 |
Rundschweißung kompl. |
|
Rundschweißung kompl. 457*6,3 incl.Vorbereitung, Techn.LB DIN 9692, P265GH |
|
1 |
Stck |
630 |
629,6 |
|
|
kleiner Außzug aus der Tabelle.
Gruß Peter
|