ich brauche für ein Makro folgende Anweisung, weiss aber nicht, wie das in VBA-Code formuliert wird:
Wenn die aktive Zelle sich in Spalte C oder in Spalte I befindet, dann etc...
Besten Dank
thomas
Sub Seitenwahl()
Dim iWks As Integer
Dim sp As Integer
sp = ActiveCell.Column
If sp = 3 Or sp = 9 Then
For iWks = 1 To Worksheets.Count
If Worksheets(iWks).Name <> ActiveCell.Value Then
Worksheets(iWks).Visible = False
End If
Next
Else
MsgBox "Zelle in falscher Spalte aktiv"
End If
End Sub
Sub Seitenwahl()
Dim iWks As Integer
Dim sp As Integer
sp = ActiveCell.Column
If sp = 3 Or sp = 9 Then
On Error Resume Next
Sheets(ActiveCell.Value).Activate
If Err.Number > 0 Then MsgBox "Blatt """ & ActiveCell.Value & """ nicht gefunden!"
Err.Clear
End If
End Sub