Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Überschriftenleiste

Überschriftenleiste
26.10.2017 18: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
Anzeige
AW: Überschriftenleiste
26.10.2017 19: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
Anzeige
AW: Überschriftenleiste
26.10.2017 19:23:27
Guesa
Hallo Chris
Na das sieht doch gut. Danke für die schnelle Hilfe
Gruß, Guesa

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige