VBA if and or

W · 2021-06-12T10:25:33+00:00

Hallo Forum, mein nachfolgender Code funktioniert nicht, weil in der "Or"-Bedingung der Wert SheetIX mit "0" zu einem Fehler führt. On Error Resume Next SheetIx = Sheets(NewName).Index On Error GoTo 0 If (SheetIx = 0) Or _ (SheetIx > 0 And Sheets(SheetIx).Name <> NewName) Then ActiveSheet.Name = NewName End If Was wäre die richtige Lösung? Gruß Werner

Hallo Werner,
ich finde es wunderbare, mit welchem Einsatz Du dich das Lernen von VBA unter Excel widmest und viele deiner Frage sind berechtigt, aber in dem Fall hat dein Problem nicht mit And oder Or zu tun, sondern mit der Handhabung der Objektwerte. Genauer gesagt: eine Tabellenblatt wird nicht über den Index geprüft, ob diese den Name hat, die man sucht.
Zwei Möglichkeiten:
man geht mit einer Schleife über alle Tabellen um die Namen abzugleichen:


Function TabellenName_existiert(MeinName As String) As Boolean
Dim W
For Each W In ActiveWorkbook.Worksheets
If LCase(W.Name) = LCase(MeinName) Then
TabellenName_existiert = True
Exit Function
End If
Next
End Function

ziemlich umstandlich und eher langsam (wenn auch in dem Fall wenig relevant). Namengleichheit erfolgt in dem Fall in Kleinbuchstabe (LCase).
Besser ist ein Assigment anzustossen und zu prüfen, ob es gelungen ist (unter On Error Resume Next).


Function TabellenName_existiert(MeinName As String) As Boolean
Dim W As Worksheet
On Error Resume Next
Set W = ActiveWorkbook.Worksheets(MeinName)
TabellenName_existiert = Not (W Is Nothing)
End Function

Ziemlich straight forward, schlank und performant. So wird die Existenz von Elementenamen unter Excel geprüft.
Du gehst mit dem gesenkten Kopf gegen die Wand und sagt: ich möchte nicht, dass man mir sagt, wie man am Wand vorbei gehen kann, sondern wie man vermeidet, dass es weh tut. So ticken die Hilfer nicht.
Wenn Du mit And/Or spielen möchte, nimmt Dir das Problem von Markus an: https://www.herber.de/forum/messages/1834747.html Da ist auch nicht programmiert, wie man es machen sollte. Finde den Fehler ;-)
VG
Yal

Danke an Alle, die sich an meinem Thread beteiligt haben.
1. Da der von mir gezeigte Code nur ein Ausschnitt aus dem Gesamtcode ist, fehlt natürlich die Definition von Sheetix. Diese Variable ist als Integer definiert und hat dadurch den Anfangswert 0. Somit kann diese Variable nie "leer" sein.
2. Um festzustellen, ob man sich im "richtigen" Tabellenblatt befindet, macht es schon einen Unterschied, ob das Blatt den Namen "Test" oder "test" hat. Ja klar, ich kann das auch mit UCase() prüfen!!
3. Nach einer Mustermappe zu verlangen finde ich im vorliegenden Fall als unnötig; der Code kann in jeder Mappe probiert werden, sofern er um "


Sub X()" und "End Sub

" ergänzt, und ggf. fehlende Variablen definiert werden.
4. Für mich ist weiterhin die IF-Abfrage das Problem, wobei es folgende Möglichkeiten gibt:
a: Sheetix ist 0; das gesuchte Tabellenblatt wurde nicht gefunden.
b: Sheetix ist größer 0, dann ist nur noch die Frage, ob der alte und der neue Namen identisch ist. Mit Sheetix = Sheets(Newname).Index kann ich nur feststellen, dass es den Namen ohne Rücksich auf Klein/Großschreibung gibt.
c: Wenn der alte und der neue Namen identisch ist, dann ist das in meiner Logik ein Fehler, den der Anwender gemacht hat. Und dann soll er informiert werden.
Wieso prüft Excel im OR-Zweig die AND-Bedingung, wenn die 1. OR-Bedingung (Sheetix größer 0) nicht erfüllt ist. Das ist in meinen Augen das Grund-Problem.
Ein Beispiel aus dem täglichen Leben: ich werde am Sonntag zum Baden an den See fahren, wenn die Sonne scheint: wenn der aktuelle Tag kein Sonntag ist, interessiert es auch nicht, ob die Sonne scheint. Genauswenig interessiert mich die Sonne an anderen Tagen. Das verstehe ich unter "IF" , "OR" und "AND".
Für mich ist das Thema erledigt. Ich werde das Problem durch mehrere getrennte Abfragen lösen.
Gruß Werner

Forumthread: VBA if and or

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA: If und Or kombinieren in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)