Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code für alle Tabellenblätter

Code für alle Tabellenblätter
27.11.2015 18:05:39
Hans

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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code für alle Tabellenblätter
27.11.2015 18:27:16
mumpel
Hallo!
Stichwort: Workbook_SheetBeforeDoubleClick und Workbook_SheetSelectionChange
Gruß, René

AW: Code für alle Tabellenblätter
28.11.2015 08:47:40
Hans
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

AW: Code für alle Tabellenblätter
27.11.2015 18:28:10
Nepumuk
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
Anzeige
AW: Code für alle Tabellenblätter
28.11.2015 08:48:56
Hans
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

AW: Code für alle Tabellenblätter
28.11.2015 09:53:42
Nepumuk
Hallo,
im Parameter "ByVal Sh As Object" steht das Tabellenobjekt. Also
If Sh.Name <> "Tabelle13" Then ...
Gruß
Nepumuk

AW: Code für alle Tabellenblätter
28.11.2015 10:14:24
Hans
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

Anzeige
AW: Code für alle Tabellenblätter
28.11.2015 10:23:54
Nepumuk
Hallo,
na dann:
If Sh.CodeName <> "Tabelle13" Then ...
Gruß
Nepumuk

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

310 Forumthreads zu ähnlichen Themen

Makro für alle Exceldatei verwenden
Günter

Guten Tag,
liebe Excelgemeinde. Habe durch euch ein wunderbares Makro bekommen.
Nun kann ich dieses Makro nur in einem Arbeitsblatt benutzen.
Möchte dieses aber in allen Exceldateien verwenden können.
Habe schon probiert, dieses in der Personl.xls zu hinterlegen.
Klappt aber...
26.07.2009 11:17:30
Thread-ID: 1091371
6 Beiträge
Anzeige
Sortierungs-Makro über allen Tabellenblätter
Luke

Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
27.08.2009 15:43:30
Thread-ID: 1099010
3 Beiträge
alle Sheets mit bestimmten Namen markieren
Micha.hal

Hallo Excelperten,
wie kann ich in einer Datei per VBA alle Blätter markieren, deren Name mit einem "a" oder einem "b" endet?
Micha
01.10.2009 10:24:08
Thread-ID: 1106585
14 Beiträge
Anzeige
Makro für viele Tabellenblätter anwenden
mat

Hallo liebes Forum,
ich habe eine Arbeitsmappe mit 40 Tabellenblättern.
Über das Makro Sub format() formatiere ich jedes Tabellenblatt einzeln. Wie kann ich das Makro über alle Tabellenblätter automatisch laufen lassen (Ausnahme Sheet Data)
Viele Grüße
Mat
24.03.2010 22:23:59
Thread-ID: 1148241
2 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Makro für auf mehrere Tabellenblätter anwenden
Mat

Hallo liebes Forum,
wie kann ein ein vorhandenes Modul (Makroname = Sub Formatieren) über alle vorhandenen Tabellenblätter laufen lassen, mit Ausnahme des Tabellenblattes data.
Gruß Mat
21.03.2011 16:31:15
Thread-ID: 1206697
7 Beiträge
Auswahl mehrerer Blätter mit variablem Namen
Philipp

Hallo Forum!
Ich habe glaube ich gerade ein Brett vor dem Kopf.
Ich möchte mehrere Arbeitsblätter variabel auswählen.
Gibt es hier eine Möglichkeit, anhand der Blattnummer zu sagen:
Auswahl der Blätter 5 bis 9?
Alternative wäre es möglich, den Namen des Arrays zu "basteln".<...
01.04.2011 17:27:36
Thread-ID: 1208734
6 Beiträge
Alle Tabellenblätter mit "Vorhaben" löschen
Kai

Hallo,
ich habe ein Makro, das legt bei Bedarf verschiedene Tabellenblätter an. Darunter gibt es dann auch viele, die nennen sich "Vorhaben01", "Vorhaben02" ..usw.
Ich möchte nun alle Tabellenblätter, die mit den ersten 8 Zeichen mit "Vorhaben" beginnen (egal, was dahinter noch kommt) l...
18.04.2011 08:19:39
Thread-ID: 1210851
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
13
3
1
7
6
5
3
1
18
6
2
8
9
6
4
3
7
3
8
6
3
4