If-Bedingungen mit Or verknüpfen: Fehler

Private Sub Worksheet_Change(ByVal Target As Range) Const KW = "C3" Dim Sht As Worksheet If Intersect(Target, Me.Range(KW)) Is Nothing Then Exit Sub 'Wenn der Schnittpunkt von Target (also: Worksheet) und KW (C3) nicht geändert wird: machnichts 'also: bei Änderung von C3 den folgenden Code starten For Each Sht In Worksheets If Sht.Name = Eingabe Or Muster Or Übersicht Then 'Wenn das gerade bearbeitete Sheet nicht heisst: Eingabe oder Muster oder Übersicht, dann: GoTo Weiter Else Sht.Range("C10:D16").ClearContents 'Lösche den Inhalt in diesem Bereich End If Weiter: Next Sht End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Martin;
Eingabe Or Muster Or Übersicht ergibt wohl einen Fehler, weil TextKennzeichner für die Namen fehlen, sonst gelten sie als Variable. "Eingabe" Or "Muster" Or "Übersicht" ergibt idR True bzw ggf False und so wird dein Blatt ja wohl nicht heißen! ;-)
Richtig wäre: If Sht.Name = "Eingabe" Or Sht.Name = "Muster" Or Sht.Name = "Übersicht" Then
Außerdem ist dein If-Konstrukt ziemlich umständlich.

    For Each Sht In Me.Parent.Worksheets
If Sht.Name = "Eingabe" Or Sht.Name = "Muster" Or Sht.Name = "Übersicht" Then GoTo nx
'Wenn das gerade bearbeitete Sheet nicht so heisst, Eingabe, Muster, Übersicht, dann:
Sht.Range("C10:D16").ClearContents
'Lösche den Inhalt in diesem Bereich
nx: Next Sht

Oder:

    For Each Sht In Me.Parent.Worksheets
If Sht.Name  "Eingabe" And Sht.Name  "Muster" And Sht.Name  "Übersicht" Then
'Wenn d.gerade bearbeitete Sheet nicht so heisst, Eingabe, Muster, Übersicht, dann:
Sht.Range("C10:D16").ClearContents
'Lösche den Inhalt in diesem Bereich
End If
Next Sht

Oder:

    Dim vgl As Long
On Error Resume Next
For Each Sht In Me.Parent.Worksheets
vgl = 0
vgl = WorksheetFunction.Match(Sht.Name, Array("Eingabe", "Muster", "Übersicht"), 0)
If vgl = 0 Then
'Wenn d.gerade bearbeitete Sheet nicht so heisst, Eingabe, Muster, Übersicht, dann:
Sht.Range("C10:D16").ClearContents
'Lösche den Inhalt in diesem Bereich
End If
Next Sht

Oder:

    Dim vgl As Long
On Error Resume Next
For Each Sht In Me.Parent.Worksheets
vgl = 0
vgl = WorksheetFunction.Match(Sht.Name, Array("Eingabe", "Muster", "Übersicht"), 0)
On Sgn(vgl) GoTo nx
'Wenn das gerade bearbeitete Sheet nicht so heisst, Eingabe, Muster, Übersicht, dann:
Sht.Range("C10:D16").ClearContents
'Lösche den Inhalt in diesem Bereich
nx: Next Sht

Gruß, Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Const KW = "C3" Dim Sht As Worksheet If Intersect(Target, Me.Range(KW)) Is Nothing Then Exit Sub For Each Sht In Worksheets Select Case Sht.Name Case "Eingabe", "Muster", "Übersicht" Case Else Sht.Range("C10:D16").ClearContents end Select Next Sht End Sub

Beliebteste Forumthreads (12 Monate)

If-Bedingungen mit Or verknüpfen: Fehler

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread