Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Userform bei bestimmten Blättern nicht starten

Forumthread: Userform bei bestimmten Blättern nicht starten

Userform bei bestimmten Blättern nicht starten
17.06.2014 18:15:55
Andreas
Hallo Excelprofis,
habe mal wieder ein Problem, welches ich durch Recherche nicht lösen konnte.
Ich habe eine Mappe mit ca. 10 Blättern. 7 Blätter werden teilweise mithilfe eines UserForm bearbeitet.
Die restlichen Blätter sind Hilfsblätter.
Das UserForm öffne ich mit folgendem Code:
Sub FormularÖffnen()
ListenAnlegen.Show
End Sub
Wie kann ich erreichen, dass wenn eins der Blätter "Blatt 1" oder "Blatt 2" oder "Blatt 7" geöffnet ist, das UserForm nicht geöffnet wird und ein Hinweis erscheint.
Danke fürs lesen und die Hilfe!
mfg, Andreas

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform bei bestimmten Blättern nicht starten
17.06.2014 19:04:41
Hugo
Hallo Andreas,
Sub FormularÖffnen()
With ActiveSheet
If .Name = "Blatt 1" Or .Name = "Blatt 2" Or .Name = "Blatt 7" Then
MsgBox "Hier gibt`s nix zu öffnen!", vbInformation, "Kleiner Hinweis..."
Else
ListenAnlegen.Show
End If
End With
End Sub
Gruß
Hugo

Anzeige
AW: Userform bei bestimmten Blättern nicht starten
17.06.2014 19:20:59
Andreas
Hallo Hugo,
Danke für die Hilfe, klappt super!
mfg, Andreas

AW: Userform bei bestimmten Blättern nicht starten
20.06.2014 18:58:45
Peter
Das aendern ist sehr leicht. 1 Variable und eine neue Makro Zeile am Anfang einfügen
(das Blatt muss nicht mit Dim festgelegt werden, es sei den Option Explicit ist aktiv)
Sub FormularÖffnen()
Blatt = ActiveSheet.Name
if Blatt = "Blatt 1" Or Blatt = "Blatt 2" Or Blatt = "Blatt 7" then Exit Sub
ListenAnlegen.Show
End Sub
Gruss Peter S.
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum