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

Button mehrere Makros, wenn T.blatt eingeblendet ist

Forumthread: Button mehrere Makros, wenn T.blatt eingeblendet ist

Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 11:13:01
Feli
Hallo liebe Community,

ich habe folgendes Problem und würde gerne wissen, ob man folgendes per VBA Code lösen kann:

Ich habe 3 Tabellenblätter (Tabellenblatt1, Tabellenblatt2, Tabellenblatt3) mit den gleichen Makros Sub PDF_Hoch().
Ich möchte nun ein Button einbauen, der alle 3 Makros nacheinander ausführt, allerdings nur dann wenn die Tabellenblätter unten an der Leiste eingeblendet sind. Wenn ein Blatt ausgeblendet ist, soll das Makro nicht ausgeführt werden.

Ich hoffe Ihr könnt mir weiterhelfen!

Grüße Feli
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 11:51:59
AlterDresdner
Hallo Feli,
mit Sheets("Tabelle1").visible kann man den Ausblendestatus feststellen. Mit einer AND-Konstruktion kann man nach allen 3 Blättern schauen. Und dann ggfls. das Makro beenden.
Gruß der AlteDresdner
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 21:01:37
Piet
Hallo

ich verstehe wirklich nicht warum an der leichten Frage so herumgedocktert wird??
Die Lösung ist doch mit einer erweiterten IF Then Anweisung mehr als simpel!!

mfg Piet 

Sub nn()

If Sheets("Tabelle1").Visible = vbSheetVisible And _

   Sheets("Tabelle2").Visible = vbSheetVisible And _

   Sheets("Tabelle3").Visible = vbSheetVisible Then

   Call Sheets("Tabelle1").PDF_Quer

   Call Sheets("Tabelle2").PDF_Quer

   Call Sheets("Tabelle3").PDF_Quer

End If

End Sub
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 21:47:04
Piet
Hallo

Entschuldigung an alle Kollegen für meinen vereiligen dummen Spruch. Da hatte ich noch nicht alle AW gelesen.

Nach einigem Tüffteln mit dem Beispiel, funktioniert bei mir jetzt diese Lösung. Es fehlt aber Sheet2 in der Datei!!
Ich habe aber nicht geprüft ob die Range Einstellungen im Makro PDF_Quer okay sind. Nur das der Aufruf klappt!

mfg Piet 

Sub nn()

If Sheets("Tabelle1").Visible = -1 Then _

   Call Sheets("Tabelle1").PDF_Quer

If Sheets("Tabelle2").Visible = -1 Then _

   Call Sheets("Tabelle2").PDF_Quer

If Sheets("Tabelle3").Visible = -1 Then _

   Call Sheets("Tabelle3").PDF_Quer

End Sub
Anzeige
AW: Herzlichen Dank
30.01.2024 09:03:21
Feli
Vielen herzlichen Dank daniel und Piet.
Ihr habt mich gerettet!!!

Grüße Feli
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 12:00:17
Feli
Hallo AlteDresdner,

danke für die Unterstützung.
Ich möchte betonen, dass ich überhaupt/fast keine Ahnung von programmieren habe.

Wie würde das als Code aussehen? - natürlich nur wenn du die Zeit und Lust dazu hast.

Danke.

Grüße Feli
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 12:22:33
AlterDresdner
Hallo Feli,
der Code des Makros, das mit dem Button aufgerufen wird, wäre: 
Sub nn()

Dim a As Boolean

  a = Sheets("Tabelle1").Visible And Sheets("Tabelle2").Visible And Sheets("Tabelle3").Visible

  'Makro nicht ausführen, wenn eines der Blätter ausgeblendet

  If Not a Then Exit Sub

  Run "Makro1"

  Run "Makro2"

  Run "Makro3"

  

End Sub

Die Subs Makro1... sollten in einem Modul stehen.
Gruß der ALteDresdner
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 13:12:05
Feli
Hallo AlterDresdner,

Makro1 (aus Tabellenblatt1) hat den gleichen Namen wie Makro2 (Tabellenblatt2) und Makro3 (Tabellenblatt3) --> Sub PDF_Hoch.

Ist das dann trotzdem noch möglich? - bei mir spielen die Makros nicht ab.

Sub nn()
Dim a As Boolean
a = Sheets("Tabelle1").Visible And Sheets("Tabelle2").Visible And Sheets("Tabelle3").Visible
'Makro nicht ausführen, wenn eines der Blätter ausgeblendet
If Not a Then Exit Sub
Run "PDF_Hoch"
Run "PDF_Hoch"
Run "PDF_Hoch"

End Sub

Vielen Dank!!

Grüße Feli

Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 13:31:04
daniel
Hi
wenn die Makros in den Tabellenblattmodulen stehen und nicht in einem allgemeinen Modul, dann musst du beim Aufruf auch den Tabellennamen mit angeben.
du kannst entweder den Codenamen des Tabellenblatts verwenden (das ist der, der im Projektbaum vor der Klammer steht) 
Call Tabelle1!PDF_Hoch

Call Tabelle2!PDF_Hoch

Call Tabelle3!PDF_Hoch

oder du nimmst den Indexnamen, das ist der Name, der im Projektexplorer in der Klammer steht und welchen du auch auf den Reitern siehst (dieser kann allerdings vom Anwender geändert werden) 
Call Sheets("Tabelle1").PDF_Hoch

Call Sheets("Tabelle2").PDF_Hoch

Call Sheets("Tabelle3").PDF_Hoch


Gruß Daniel
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 14:57:48
Feli
Hi daniel,

leider wird der Befehl nicht ausgeführt sondern ich bekomme den Fehler 400. Allerdings konnte ich auch unter help nicht herausfinden, wo der Fehler liegt:

Sub nn()
Dim a As Boolean
a = Sheets("Tabelle1").Visible And Sheets("Tabelle2").Visible And Sheets("Tabelle3").Visible
'Makro nicht ausführen, wenn eines der Blätter ausgeblendet
If Not a Then Exit Sub
Call Sheets("Tabelle1").PDF_Hoch
Call Sheets("Tabelle2").PDF_Hoch
Call Sheets("Tabelle3").PDF_Hoch
End Sub

Außerdem habe ich leider erst jetzt festgestellt, dass die die Blätter unabhängig von einander nacheinander abgespielt werden sollen.

D.h. Wenn Tabelle1 eingeblendet soll der Code PDF_Hoch (Tabelle1) ausgfeührt werden. Danach soll geprüft werden ob Tabelle2 eingeblendet ist, wenn ja soll der Code PDF_Hoch (Tabelle2) ausgfeührt werden. Wenn Tabelle2 ausgeblendet ist soll mit Tabelle3 fortgeführt werden.

Vielen herzlichen Dank im Voraus!!

Grüße Feli
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 15:24:32
daniel
HI
wo der Fehler 400 herkommt, kann ich dir nicht sagen, dazu müsste ich deine Datei kennen.
Wenn ich mir selber die Datei nach deinen Vorgaben aufbaue, funktioniert der Code ohne Fehler.

wenn das so laufen soll wie du beschreibst, musst du jedes Blatt einzeln prüfen:

if Sheets("Tabelle1").Visible = vbSheetVisible then Call Sheets("Tabelle1").PDF_Hoch
if Sheets("Tabelle2").Visible = vbSheetVisible then Call Sheets("Tabelle2").PDF_Hoch
usw für alle Tabellenblätter

Gruß Daniel
Anzeige
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 15:48:42
Feli
Hii,

anbei findest mal eine Datei, die sehr stark eingeschränkt ist
Ich hoffe das hilft.

https://www.herber.de/bbs/user/166609.xlsm

Grüße Feli
AW: Button mehrere Makros, wenn T.blatt eingeblendet ist
29.01.2024 16:32:25
daniel
Hi
ersetz mal das vbSheetVisible durch -1 oder xlSheetVisible (sorry, mein Fehler)

wenn du mit .Select einen bestimmten Zellbereich wechseln willst, dann geht das nur im selben Tabellenblatt, du kannst damit nicht auf ein anderes Blatt springen.
hierzu musst du entweder zuerst das neue Blatt selektieren oder den Sprung mit Application.Goto RNG ausführen.
Am besten ist, du verzichtest auf das SELECT+SELCTION und gibst stattdessen gleich den Zellbereich an:
RNG.ExportAsFixedFormat....

kleiner Tipp: wenn sich der Code in einem Tabellenblattmodul befindet, dann kann man dieses Blatt immer mit ME ansprechen (dann muss man nicht auf den Namen achten) bzw. man gibt dann bei Range und Cells gar kein Tabellenblatt an, denn bei Code im Tabellenblattmodul wird dann immer das Tabellenblatt es Moduls verwendet.
im Prinzip sollte sich dein Code dann so vereinfachen lassen: 

Sub PDF_Quer()

    Dim RNG As Range, QuerHoch  As Variant, Datei As String

    

    With Sheets("Tabelle0")

    Datei = ThisWorkbook.Path & "_Risikobewertung_" & ".pdf"

    End With

    

    

    Set RNG = Me.Range("A3:C35")

    

    QuerHoch = Me.PageSetup.Orientation

    

    ' ggf Orientierung umstellen

    If QuerHoch = xlPortrait Then Me.PageSetup.Orientation = xlLandscape

      

    'Markierung als PRF ausgeben

    RNG.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Datei, _

        IgnorePrintAreas:=False, OpenAfterPublish:=True

        

    'Orientierng zurückstellen

    If QuerHoch = xlPortrait Then Me.PageSetup.Orientation = QuerHoch

       

End Sub


Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Was ist an diesem Makro falsch
jens-claus

Hallo Excelfreunde,
ich hatte nachstehendes Makro im Einsatz, dies lief auch fehlerfrei.
Doch jetzt stoppt das Makro bei: .HPageBreaks(i).Delete
Das Makro soll jeweils bei Wechsel in der Spalte G eine neue Seite ausdrucken.
Wer kann mir helfen?
Besten Dank im voraus.
S...
02.12.2008 16:11:00
Thread-ID: 1029548
3 Beiträge
Anzeige
Alle Istfehler in einer Spalte per Makro löschen
Tom

Hallo!
In einigen Spalten meiner excel-Tabelle befinden sich Formeln, die "Istfehler" auswerfen. Diese würde ich gerne "automatisch" löschen. Da die Spalten aus über 8000 Zeilen bestehen, wäre ein Makro sehr hilfreich - nur: ich kann das nicht...
Konkret: Alle Istfehler unterhalb der 3....
01.03.2009 17:19:01
Thread-ID: 1055257
14 Beiträge
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
Anzeige
Was ist "Sprache des Makros"?
Reinhard

Hallo Wissende,
die Vba-Hilfe sagt zu Range:
********************************************************************************
Syntax 1
Ausdruck.Range(Cell1)
Ausdruck Bei Application optional, bei Range und Worksheet erforderlich. Ein Ausdruck, der ein Objekt zurückgibt. Um...
25.11.2009 20:32:49
Thread-ID: 1120084
8 Beiträge
makro zum Eintrage was gelöscht werden soll
WSzwick

Hallo,
Ich möchte aus einer Excel Spalte wo Hyperlings mit Pfadnamen enthalten sind den Pfadnamen löschen aber den Hyperlink behalten.
Z.B c:\Dokumente\excel\sgh.xls jetzt möchte ich den Pfad c:\Dokumente\excel\ löschen das nur noch in den Zellen sgh.xls steht. Der name sgh.xls ist V...
03.05.2010 19:03:08
Thread-ID: 1155182
7 Beiträge
Was ist eine "generic object variable"
Maria

Hallo Ihr Excel-Kundigen!Könnt Ihr mir vielleicht erklären, was unter "generic object variable" bzw. "any specific object variable" zu verstehen ist?Ich versuche aus Ressourcengründen bei einer For each... Next Schleife vom Variant-Variablentyp wegzukommen und die Excel-Hilfe gibt mir diese bei...
07.05.2002 18:19:55
Thread-ID: 119290
3 Beiträge
Ist ein Makro in der Datei vorhanden?
Jeziro

Hallo,
Ich habe in einem Ordner unzählige Excel Dateien (Endung .xls) von denen einige Macros enthalten und andere nicht. Ich möchte nun mit Hilfe eines Makros alle im Verzeichnis vorhandenen Dateien daraufhin untersuchen, ob sie ein Makro enthalten und die Dateien löschen, falls dies nicht...
18.09.2010 21:43:36
Thread-ID: 1178405
6 Beiträge
HILFE - was ist mit meiner ADOD.Connection los
Stefan

Ich bin echt am verzweifeln.
Folgendes hab ich versucht. Ich habe eine (funktionierende) Prozedur in ein neues Modul einer anderen Excel-Datei verschoben und wollte es dort ausführen. Dann bekam ich folgende Fehlermeldung:Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiertin Be...
21.05.2002 18:11:06
Thread-ID: 122490
2 Beiträge
Anzeige
Listenfeld 9 über ein makro ein bzw. ausblenden
Lisa

Hallo zusammen
Ihr Experten habt bestimmt eine Idee zu meinem Problem, zu dem ich selbst in der Recherche nichts finden kann!
In meiner Mappe habe ich ein Listfeld aus den Formularen eingefügt.
Dieses möchte ich gern über ein Makro ein und ausblenden lassen!
Geht es bei diesen F...
13.10.2011 12:25:58
Thread-ID: 1233673
3 Beiträge
Was ist an diesem Makro falsch?
Jens-Claus

Hallo Excelfreunde,
ich habe das nachstehende mit dem Makrorekorder aufgezeichnet. Die Sortierung nach dem Feld ist als Makro für spätere Teilergebnisse gedacht. Wenn ich das aufgezeichnete Makro laufen lassen funktioniert dies auch einwandfrei. Da, jedoch Daten ergänzt werden können, habe...
08.02.2012 11:21:29
Thread-ID: 1249744
6 Beiträge
Anzeige
Listboxeinträge (Bereich) per makro anpassen
Joachim

Hallo !
Ich möchte einer Listbox den Datenbereich per Makro ändern.
ActiveSheet.ListBox1
With ListBox1
.ListFillRange = "=tab!A1:A5"
End With
Es funktioniert leider so nicht....
danke !
gruß
joachim W.
03.05.2012 12:31:21
Thread-ID: 1261962
5 Beiträge
Makro um aus einem Wordformular eine Excelliste
Anna

Hallo,
ich brauch eure Hilfe weil ich leider alleine nicht mal bis zur ersten Zeile komme.
Gibt es eine Möglichkeit um jede Menge Word Formulare in Excel zu verarbeiten?
Genau genommen sind es immer einseitige Wordformulare von denen ich aktuell immer 1 Zeile untereinander in eine...
13.05.2013 22:42:21
Thread-ID: 1312839
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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