Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn,.... dann Code ueberspringen

Forumthread: Wenn,.... dann Code ueberspringen

Wenn,.... dann Code ueberspringen
04.06.2008 21:06:00
Christian
Hallo Forum,
habe ein kleines Problemchen :
Ausgangspunkt ist ein Code. Wie kann ich nun am beginn des codes sagen :
Checke ob tabellenblatt ("SUM - DAILY")
Wenn dieses Tabellenblatt nicht offen ist, dann fuehre den Code ganz normal aus.
Wenn dieses Tabellenblatt ("SUM - DAILY") offen ist
dann Beende den Code bzw. fuehre ihn nicht aus und oeffne mir eine msg box das ein fehler aufgetreten ist.
Klappt das irgendwie ? ist das moeglich ?
Beste Gruesse
Christian

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn,.... dann Code ueberspringen
04.06.2008 21:21:00
mumpel
Hallo!
Am Anfang des Makros die Zeilen setzen 
Sub test()
If ActiveSheet.Name = "SUM-DAILY" Then
MsgBox "Das Makro ist für diese Tabelle nicht freigegeben", vbOKOnly + vbExclamation, "Achtung!"
Else
Dein Code
End If
End Sub

Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Gruß, Rene

Anzeige
AW: Wenn,.... dann Code ueberspringen
04.06.2008 21:28:09
Christian
Grade ausprobiert, geht noch nich ganz -
Der button fuer den code ist aber in Tabellenblatt "OPEN" Er soll also checken ob im ganzen workbook das tabellenblatt " " irgendwo ist, und wenn ja den code nicht ausfuerhen
geht das auch ?
Christian

AW: Wenn,.... dann Code ueberspringen
04.06.2008 21:59:01
mumpel 
Sub test()
For Each blatt In ThisWorkbook.Worksheets
If blatt.Name = "SUM - DAILY" Then GoTo Fehler
Next blatt
Hier steht Dein Code
Exit Sub
Fehler:
MsgBox "Das Makro ist für diese Arbeitsmappe nicht freigegeben", vbOKOnly + vbExclamation, "Achtung!"
End Sub

Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>

Anzeige
AW: Danke
05.06.2008 17:00:09
Christian
Vielen Dank mumpel,
hat funktioniert ;)
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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