Wenn ich in meiner Tabelle Eingaben in drei bestimmten Zellen (benannt mit "Kategorie", "_E" und "_B" vornehme, möchte ich in der Statusbar eine Anzeige erscheinen lassen.
Mit Nachfolgendem Code funktioniert das. Allerdings erhalte ich eine Fehlermeldung (z.B. Laufzeitfehler 13 - Typen unverträglich), wenn ich beispielsweise Daten in die Tabelle hineinkopiere, ohne jedoch diese Zellen zu verändern. Deshalb vermute ich, dass mein Code noch auf andere Eregnisse reagiert.
Kann mir jemand helfen?
Danke vielmals.
Peter
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = [Kategorie] Or Target = [_E] Or Target = [_B] Then
Application.StatusBar = "Template RWA" & Range("Kategorie").Value & " " & Range("_B").Value & " _
- " & Range("_E").Value
End If
End Sub