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

VBA Befehle für alle Tabellen in dieser Arbeitsmap

Forumthread: VBA Befehle für alle Tabellen in dieser Arbeitsmap

VBA Befehle für alle Tabellen in dieser Arbeitsmap
09.08.2016 14:26:52
Jörg
Hallo,
muss ich eigentlich einen VBA - Befehl in jedem Tabellenblatte wiederholen
oder kann ich dass auch irgendwie unter Arbeitsmappe für alle Blätter feste legen ?!
Danke.
Jörg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Befehle für alle Tabellen in dieser Arbeitsmap
09.08.2016 14:38:56
ChrisL
Hi Jörg
Was für VBA Befehle?
Prozeduren, welche sich in einem Standardmodul (VBA-Editor, Enfügen, Modul) befinden, kannst du von überall aufrufen (z.B. mit "Call Makro1").
cu
Chris
AW: VBA Befehle für alle Tabellen in dieser Arbeitsmap
09.08.2016 14:39:36
Dieter(Drummer)
Hallo Jörg,
es gibt VBA Befehle (Macros) die für Ausführungen im Tabellenblatt sind und es gibt Macros, die für die ganze Arbeitsmappe (in einem Modul, z.B. Modul1), entsprechend in allen Tabellen fünktionieren.
Wiederum konnen Macros aus dem Modul aich einzelne Tabellen ansprechen. Als je nach dem ...
Gruß, Dieter(Drummer)
Anzeige
AW: VBA für alle Tabellen in dieser Arbeitsmap
09.08.2016 14:47:36
Jörg
Sorry, da habe ich mich wohl schlecht ausgedrückt.
hier ein Beispiel: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub

Dieses habe ich jetzt in jeder Tabelle eingetragen.
Wäre schön, wenn ich dies unter Arbeitsmappe eintragen könnte und es dann in allen Tabellen ausgeführt.
Danke.
Anzeige
AW: VBA für alle Tabellen in dieser Arbeitsmap
09.08.2016 14:50:36
ChrisL
Hi Jörg
Code jetzt unter "DieseArbeitsmappe" einfügen:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub

cu
Chris
Anzeige
AW: VBA für alle Tabellen in dieser Arbeitsmap
09.08.2016 15:00:09
Jörg
Hallo Chris,
super !
Das heißt ich muss immer nur "ByVal Sh As Object," ergänzen ?!
Jörg
AW: VBA für alle Tabellen in dieser Arbeitsmap
09.08.2016 15:02:33
ChrisL
Hi Jörg
Entscheidend ist, dass du ein anderes Ereignis verwendest:
Workbook_SheetBeforeDoubleClick
statt
Worksheet_BeforeDoubleClick
Der Rest wird bei Dropdown Auswahl im Modul automatisch erstellt.
cu
Chris
Anzeige
AW: VBA für alle Tabellen in dieser Arbeitsmap
09.08.2016 15:12:28
Jörg
Hey,
das habe ich übersehen !
Jetzt spare ich jede menge Zeit bei Änderungen.
Vielen Dank.
Jörg

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
hier ist ein Code von fcs, um Namen in versch. Tabellen zu vergleichen. Mein Problem dabei ist, _
dass ich nicht erwähnt habe, dass sich die Namen im Laufe der Zeit im Tabellenblatt Woche ä _ ndern, sprich es kommt jeden Tag eine neue Zahl mit Leerzeichen dazwischen daz...
01.08.2009 13:47:36
Thread-ID: 1092733
7 Beiträge
String in Tabelle umstellen
Alis

Hallo Zusammen,
ich wollte gerne die Lösung von diese Aufgabe:
ich habe ein String sieht als Beispiel so aus: &(A/b)&C&D&(E/F) (/ ist oder)
diese String soll in Excel Tabelle so aussehen:
&A &C &D &E
&A &C &D &F
&...
02.09.2009 07:43:49
Thread-ID: 1099959
2 Beiträge
VBA-Funktion in Pivot-Tabelle
Ziegenpeter

Hallo Zusammen!
Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe per VBA eine Funktion namens Sigma() geschrieben. Sie funktioniert problemlos. Nun will ich diese Funktion auch in einer Pivot-Tabelle nutzen, das funktioniert nicht.
Beispiel:
Das einzufügende ber...
10.09.2009 20:19:28
Thread-ID: 1101842
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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