23.10.2018, 10:17
Hallo,
ich habe eine Menge von Daten mit XML in Excel importiert, da die Formatierung nicht gebrauchbar ist, will ich das ganze mit Makro Kopieren.
Klappt auch an sich alles schön und gut, wenn man die Datensätze einzeln kopiert und einfügt. Wenn ich das ganze aber automatisieren will und mit einer Variablen die auszuwälende Zelle bestimmen will, klappt das Ganze nicht. Das Ziel ist: Zielen C23-C46 zu kopieren, in Zelle A:Var1 drehen und einfügen, dann Zeilen C23-46 löschen, damit von unten die Daten nachrücken können. Dann soll Var1 erhöht werden, also z.b. aus A1 wird A2. Aber das habe ich gestern nicht hingekriegt. Ich hoffe ihr könnt mir bei den, wahrscheinlich, recht trivialen Problem helfen.
Hier der Marko für die Aktion, die ausgeführt werden soll.
Sub Makro2()
'
' Makro2 Makro
'
'
ActiveWindow.SmallScroll Down:=12
Range("C23:C46").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-57
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=15
Range("B23:C46").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Wenn irgendetwas unklar ist, bitte fragen, ich hoffe man kann mir helfen :D
LG efreddy
ich habe eine Menge von Daten mit XML in Excel importiert, da die Formatierung nicht gebrauchbar ist, will ich das ganze mit Makro Kopieren.
Klappt auch an sich alles schön und gut, wenn man die Datensätze einzeln kopiert und einfügt. Wenn ich das ganze aber automatisieren will und mit einer Variablen die auszuwälende Zelle bestimmen will, klappt das Ganze nicht. Das Ziel ist: Zielen C23-C46 zu kopieren, in Zelle A:Var1 drehen und einfügen, dann Zeilen C23-46 löschen, damit von unten die Daten nachrücken können. Dann soll Var1 erhöht werden, also z.b. aus A1 wird A2. Aber das habe ich gestern nicht hingekriegt. Ich hoffe ihr könnt mir bei den, wahrscheinlich, recht trivialen Problem helfen.
Hier der Marko für die Aktion, die ausgeführt werden soll.
Sub Makro2()
'
' Makro2 Makro
'
'
ActiveWindow.SmallScroll Down:=12
Range("C23:C46").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-57
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=15
Range("B23:C46").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Wenn irgendetwas unklar ist, bitte fragen, ich hoffe man kann mir helfen :D
LG efreddy