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

Aktion bei bestimmten Tabellenblättern

Forumthread: Aktion bei bestimmten Tabellenblättern

Aktion bei bestimmten Tabellenblättern
07.08.2007 19:53:00
Harald
Hallo,
ich habe mal wieder ein Problem:
In meinem Programm habe ich ca 20 Tabellenblätter, wobei mehrere mit "Aufgabe" beginnen, z.B.
"Aufgabe 1", "Aufgabe 001", ...
aber auch andere Tabellenblätter ("Loesung 005", "Bericht007", ...)
Nun möchte ich, dass beim Auswählen eines Tabellenblattes, das mit "Aufgabe" beginnt, eine bestimmte Funktion aufgerufen wird.
Wie kann ich das mit VBA (ich habe allerdings nur geringe Kentnisse) erreichen?
m.f.g.
Harald

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktion bei bestimmten Tabellenblättern
07.08.2007 20:04:14
Jens
Hi Harald
Rechtsklick auf den Reiter einer Tabelle
Links oben im VBA-Projekt Doppelklick auf ThisWorkbook
und in das rechte große Fenster dann diesen Code einfügen:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim shname As String
shname = Left(ActiveSheet.Name, 7)
If shname = "Aufgabe" Then
MsgBox "Richtig" 'Hier dann eintragen, was passieren soll
End If
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
Nachtrag
07.08.2007 20:14:16
Jens
Hab noch etwas vergessen ;-)
Rechtsklick auf den Reiter einer Tabelle
"Code anzeigen" auswählen
Links oben im VBA-Projekt Doppelklick auf ThisWorkbook
und in das rechte große Fenster dann diesen Code einfügen:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim shname As String
shname = Left(ActiveSheet.Name, 7)
If shname = "Aufgabe" Then
MsgBox "Richtig" 'Hier dann eintragen, was passieren soll
End If
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
AW: Nachtrag
07.08.2007 20:22:11
Harald
Hallo Jens,
vielen Dank für die schnelle Hilfe!
m.f.g.
Harald

Danke für Feedback :-) oT
07.08.2007 20:24:20
Jens

AW: Danke für Feedback :-) oT
07.08.2007 20:31:34
Harald
kommt bei mir immer!

Anzeige
AW: Danke für Feedback :-) oT
07.08.2007 20:54:00
Gerd
Hallo, hier noch die Variablensparversion.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Len(Sh.Name)  "Aufgabe" Then Exit Sub
MsgBox "Call MeinMakro_im_Standardmodul"
End Sub


Grüße Gerd

AW: Danke für Feedback :-) oT
07.08.2007 21:19:00
Harald
Hallo Gerd,
auch dir vielen Dank!
m.f.g.
Harald
Anzeige
;

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