ich möchte beim Öffnen der Blattes das Makro aktivieren und dann von einer definierten Zelle B3 mit Enter jeweils zur nächsten Zelle für mögliche Eingaben springen. Leider erhalte ich immer die selbe Fehlermeldung. Kann jemand bitte helfen? Danke
Sub Kopfleiste()
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B3"), Target) Is Nothing Then
Range("F3").Select
End If
If Not Intersect(Range("F3"), Target) Is Nothing Then
Range("B5").Select
End If
If Not Intersect(Range("B5"), Target) Is Nothing Then
Range("D5").Select
End If
If Not Intersect(Range("D5"), Target) Is Nothing Then
Range("F5").Select
End If
If Not Intersect(Range("F5"), Target) Is Nothing Then
Range("B7").Select
End If
If Not Intersect(Range("B7"), Target) Is Nothing Then
Range("F7").Select
End If
If Not Intersect(Range("F7"), Target) Is Nothing Then
Range("G7").Select
End If
If Not Intersect(Range("G7"), Target) Is Nothing Then
Range("A10").Select
End Select
End Sub