Bei Error Makro nicht ausführen
mcimhof
ich habe diesen Code für Spalten auszublenden. Aber wenn man eine falsche Eingabe in B2 macht dann kommt leider die Fehlermeldung. Welchen Code muss ich wo einfügen, damit eine falsche Eingabe den Makro nicht ausführt, sondern erst bei einer korrekten Eingabe. Hier ist mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Dim i As String
Application.ScreenUpdating = False
With Worksheets("Beilagen") ' Tabellenname anpassen
Range(.Cells(1, 1), .Cells(1, Columns.Count)).EntireColumn.Hidden = False 'erstmal alle _
einblenden
i = .Cells(2, 2).Text
Range(.Range(i & "1").Offset(0, 1), .Cells(1, Columns.Count)).EntireColumn.Hidden = True
.Range("A:" & i).Locked = True
End With
Application.ScreenUpdating = True
End If
End Sub
Gruss
Mcimhof