Application.Goto Reference:="Z1S1"
Bastian
ich soll Dateien an eine Neue Excel-Version anpassen. Das Makro unten läuft leider nicht mehr und steigt bereits in der Zeile
Application.Goto Reference:="Z1S1"
aus.
Ich bekomme das Makro nicht zum laufen. Kann mir einer bitte helfen und mal auf den Code schauen?
Herzliche Grüße
Bastian
Sub ERWEITERN()
' Schutz aufheben:
ActiveSheet.Unprotect
' Erweitern:
Application.Goto Reference:="Z1S1"
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, -1).Columns("A:B").EntireColumn.Select
Selection.Copy
ActiveCell.Offset(0, 2).Columns("A:B").EntireColumn.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, -4).Columns("A:B").EntireColumn.Select
Selection.EntireColumn.Hidden = True
ActiveCell.Offset(13, 4).Range("A1").Select
' Einfrieren:
Application.Goto Reference:="Z12S1"
Selection.End(xlToRight).Select
ActiveCell.Offset(2, -2).Range("A1:A21").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(2, -1).Range("A1:A7").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="Z1S1"
Application.Goto Reference:="Z12S1"
Selection.End(xlToRight).Select
ActiveCell.Offset(2, -1).Range("A1").Select
' Schutz aktivieren
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub