Hallo Leute,
mit der Funktion Makroaufzeichnen habe ich diese Arbeitsschritte erzeugt. Wenn ich das Makro von Hand starte dann funktioniert es, aber wenn ich diese Zeilen in einen bestehenden Quelltext einfüge dann kommt bei Cells.Select ein abbruch und beim debuggen ist diese Zeile markiert.
Was habe ich falsch gemacht.
Private Sub CommandButton1_Click()
CommandButton1.Visible = False
Sheets("Test-B1").Select
Sheets("Test-B1").Copy Before:=Sheets(2)
Sheets("Test-B1 (2)").Select
Sheets("Test-B1 (2)").Name = "Test-B2"
Sheets("Test-B1").Select
Range("A7:A11").Select
Selection.Copy
Sheets("Test-B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test-B1").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Test-B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "yyyy-mm-dd;@"
Sheets("Test-B1").Select
Range("H7:I11").Select
Selection.Copy
Sheets("Test-B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test-B1").Select
Range("I13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Test-B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test-A1").Select
Application.CutCopyMode = False
Sheets("Test-A1").Copy After:=Sheets(3)
Sheets("Test-A1 (2)").Select
Sheets("Test-A1 (2)").Name = "Test-A2"
Sheets("Test-A1").Select
ActiveWindow.Zoom = 75
Cells.Select
Selection.Copy
Sheets("Test-A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
ActiveWindow.Zoom = 50
Ursprünglich sieht ein Bereich so aus:
Sheets("Test-B1").Select
Range("A7:A11").Select
Selection.Copy
Sheets("Test-B2").Select
Range("A7:A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Aber dann hängt das Progr. beim 2.RangeSelect, also habe ich diesen immer gelöscht. Ist das falsch?
------------------
Gruß
Marco
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP