Excel VBA Makro Code?
Guten Tag zusammen,
Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :
Sub Makro1()
' Makro1 Makro
'
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1M").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("J3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1M").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("R3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1M").Select
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"
Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist
die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"
ich hoffe es ist verständlich was ich meinte :'D
2 Antworten
for i = 1 to 322
'Ziel Sheet Quell Sheet
Worksheets("1M").Range("C" & i+4).value = Worksheets("Tabelle1").Range("D" & i).value
next i
'Beim Start der Schleife würde nun "D3" nach "C7" kopiert werden.
Im 2ten Durchlauf von "D4" nach "C8" was aber NICHT mit deinem aufgezeichneten Makro übereinstimmt.
"Warum" welche Zelle aus "Tabelle1" auf welche Zelle in "1M" muss ist mir nicht klar. Sofern es eine Regel gibt, dann muss diese entsprechend verwendet und programmiert werden, damit die Schleife alles korrekt platziert.
Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen
Du brauchst eine for Schleife:
for i = 1 to 322
‘ mach was du tun willst , zb
Range("R" & i).value = Range("M" & i).value
next i
Ich bin leider nicht so in Makros drinnen könntest du mir vllt das aufschreiben was genau ich da zu tun hab das wäre mega hilfreich :'D