bzw. Makro erstellt
das Makro läuft aquch wunderbar
allerdings nur 1x
es gab doch einen befehl um die routine xmal zu wiederholen (Run, Goto oder sowas )
ich will das er das makro 20x nacheinander ausführt
For i=1 to 20
'[dein Makro hier]
Next i
Sub Makro1()
' Makro1 Makro
' Makro am 03.08.05 von BTZ aufgezeichnet
Dim i
For i = 0 To 7
Sheets("Tabelle2").Select
Range("A3").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("C3").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("C4").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("C9").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Tabelle1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
Sub Makro1()
Dim i
For i = 0 To 7
With Sheets("Tabelle1")
.Range("C3") = Sheets("Tabelle2").Range("A3")
.Range("C4") = Sheets("Tabelle2").Range("B3")
.Range("C6") = Sheets("Tabelle2").Range("C3")
.Range("C9") = Sheets("Tabelle2").Range("D3")
.Rows("3:3").Delete Shift:=xlUp
.PrintOut Copies:=1
End With
Next i
End Sub
Sub Makro1()
With Sheets("Tabelle1")
.Range("C3") = Sheets("Tabelle2").Range("A3")
.Range("C4") = Sheets("Tabelle2").Range("B3")
.Range("C6") = Sheets("Tabelle2").Range("C3")
.Range("C9") = Sheets("Tabelle2").Range("D3")
.Rows("3:3").Delete Shift:=xlUp
.PrintOut Copies:=7
End With
End Sub
Sub Test()
Dim s As Integer, z As Integer
For s = 1 To 10
For z = 1 To 20
Cells(z, s) = z * s
Next z
Next s
End Sub