Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn-Dann-Abfrage

Wenn-Dann-Abfrage
02.11.2018 15:09:40
Thomas
Hallo VBA'ler,
ich hätte gerne eine wenn-dann-abfrage weiß aber leider nicht wie ich das machen.
Bsp.:
Es soll geprüft werden ob ein Arbeitsblatt mit dem Namen Tabelle2 vorhanden ist. Wenn dies der Fall ist, dann soll auf diesem Blatt die Zelle A20 aktiviert werden.
Ist das Arbeitsblatt nicht vorhanden soll das Arbeitsblatt Tabelle1 und Zelle A1 aktiviert werden.
Irgendwie klappt das bei mir nicht...es kommt immer ein Fehler mit

"Sub oder Function nicht definiert"
. Leider bin ich noch etwas Anfänger...wäre toll wenn Ihr mir helfen könnt.
Sub Wenn_Dann()
If sheetExists("Tabelle2") Then
Sheets("Tabelle2").Select
Range("A20").Select
Else
Sheets("Tabelle1").Select
Range("A1").Select
End If
End Sub
Viele Grüße
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn-Dann-Abfrage
02.11.2018 15:41:38
Dirk
Hallo!
Am einfachsten geht das, indem Du durch alle Arbeitsblätter gehst und feststellst, ob Dein gesuchtes Arbeitsblatt vorhanden ist. ShheExist als Funktion kenne ich nicht, kann man sich aber selbst basteln
Hier mal ein Code.
Function WorksheetExists(sName As String) As Boolean
WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function
Rufe die Funktion in Deinem Code mit dem Parameter auf. Der Parameter ist der Arbeitsblattname, den Du suchst.
Das Ergebnis der Funktion ist True oder False. Damit kannst Du dann weitermachen
Für Deinen Code noch ein paar Änderungen:
Sub Wenn_Dann()
If WorksheetExists("Tabelle2") is True Then
Sheets("Tabelle2").Select
Range("A20").Select
Else
Sheets("Tabelle1").Select
Range("A1").Select
End If
End Sub
Lass hören, ob ok.
Gruss
Dirk aus Dubai
Anzeige
AW: Wenn-Dann-Abfrage
02.11.2018 16:06:09
Thomas
Hallo Dirk,
das funktioniert...perfekt! Vielen Dank, das bringt mich wirklich weiter!
Einzige Änderung war = anstatt is in der zweiten Zeile...
Sub Wenn_Dann()
If WorksheetExists("Tabelle2") = True Then
Sheets("Tabelle2").Select
Range("A20").Select
Else
Sheets("Tabelle1").Select
Range("A1").Select
End If
End Sub
Vielen Dank und schönes Wochenende!
Grüße
Thomas

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige