Code für alle Tabellenblätter

Bild

Betrifft: Code für alle Tabellenblätter
von: Hans
Geschrieben am: 27.11.2015 18:05:39

Hey Forum
kann mir jemand helfen?
ich habe 15 Tabellenblätter und habe für jedes Tabellenblatt die selben Codes:
ich habe ein Worksheet_SelectionChange Code
und ein Worksheet_BeforeDoubleClick Code
Bekommt man das hin, dass ich nicht in jedes Tabellenblatt den selben Code schreiben muss, sonderen irgendwie, dass das Tabellenblatt auf den Code drauf zu greift?
danke schon einmal in Vorraus
grüße Hans

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: mumpel
Geschrieben am: 27.11.2015 18:27:16
Hallo!
Stichwort: Workbook_SheetBeforeDoubleClick und Workbook_SheetSelectionChange
Gruß, René

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Hans
Geschrieben am: 28.11.2015 08:47:40
Hey René
Danke dir
Hilft echt weiter !
Habe jetzt nur eine weiterer Frage
Wie bekomme ich das hin, das Tabelle 13 nicht mit eingeschlossen wird von meinem Code ?
Danke
Hans

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Nepumuk
Geschrieben am: 27.11.2015 18:28:10
Hallo,
in Modul "DieseArbeitsmappe":

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    'Dein Code
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    'Dein Code
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Hans
Geschrieben am: 28.11.2015 08:48:56
Hey nepumuk
Danke dir
Hilft echt weiter !
Habe jetzt nur eine weiterer Frage
Wie bekomme ich das hin, das Tabelle 13 nicht mit eingeschlossen wird von meinem Code ?
Danke
Hans

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Nepumuk
Geschrieben am: 28.11.2015 09:53:42
Hallo,
im Parameter "ByVal Sh As Object" steht das Tabellenobjekt. Also

If Sh.Name <> "Tabelle13" Then ...
Gruß
Nepumuk

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Hans
Geschrieben am: 28.11.2015 10:14:24
Hey nepumuk
Danke dir, aber das hatte ich auch schon.
Das Problem besteht aber darin, dass die Tabellenblätter alle Namen habe ( sowas wie "Rechnung", "Preis" ...)
Falls sich der Name einmal ändert, dann muss ich den Code umschreiben, deshalb möchte ich direkt auf die Tabelle zugreifen
Also "Tabelle13(Preis)"
Geht das ?
Grüße
Hans

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Nepumuk
Geschrieben am: 28.11.2015 10:23:54
Hallo,
na dann:

If Sh.CodeName <> "Tabelle13" Then ...
Gruß
Nepumuk

Bild

Betrifft: AW: Code für alle Tabellenblätter
von: Hans
Geschrieben am: 28.11.2015 10:27:41
Hey
Danke dir
So ist es perfekt
Gruß
Hans

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code für alle Tabellenblätter"