Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn-Dann-Abfrage

Forumthread: 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
Anzeige

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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige