Überschriftenleiste

Forumthread: Überschriftenleiste
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Überschriftenleiste

Überschriftenleiste

26.10.2017 20:24:07

Guesa

Hallo Forum
folgender Code verhindert das anklicken von Zellen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B19")) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

Wenn ich nun zum markieren der Zeile die linke Überschriftenleiste anklicke wird der Debugger gestartet. Kann ich ja auch nachvollziehen aber, kann man dies durch eine eigene Fehlermeldung verhindern z.B. MsgBox oder Userform? Und wenn ja wie?
Ich würde sie ja am liebsten einfach ausblenden, und fertig. Sollen aber wenn es eben geht erhalten bleiben.
Für Eure Hilfe schon mal vorab ein Danke schön
Gruß, Guesa

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Überschriftenleiste

26.10.2017 21:12:43

ChrisL
AW: Überschriftenleiste

26.10.2017 21:23:27

Guesa

AW: Überschriftenleiste

26.10.2017 21:12:43

ChrisL

Hi
Fehlerhandling ist ein Thema für sich, aber hier zwei Beispiele:
1. Quick&Dirty alle Fehler überspringen (ohne Meldung)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B1:B19")) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

2. Eigene Meldung

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Goto ErrorHandler
If Not Intersect(Target, Range("B1:B19")) Is Nothing Then
Target.Offset(0, 1).Select
End If
Exit Sub
ErrorHandler:
MsgBox "Fehler blabla"
End Sub

Alternative: Blattschutz
cu
Chris

AW: Überschriftenleiste

26.10.2017 21:23:27

Guesa

Hallo Chris
Na das sieht doch gut. Danke für die schnelle Hilfe
Gruß, Guesa

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!