Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für alle Tabellenblätter (Filter,ausblenden.

Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie
Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
--------------------------------------------------
Sub Monat_anpassen()
'
' Monat_anpassen Makro
'
'
Range("A2:AI2").Select
Selection.AutoFilter
Range("A3:AI27").Select
Range("A27").Activate
ActiveSheet.Range("$A$2:$AI$51").AutoFilter Field:=35, Criteria1:=RGB(255, _
199, 206), Operator:=xlFilterCellColor
Selection.ClearContents
Selection.AutoFilter
Range("D3").Select
End Sub
-------------------------------------------------------------- 

Public Sub ausblenden()
Application.ScreenUpdating = False
Dim L As Long
For L = 3 To 27
Rows(L).Hidden = WorksheetFunction.Sum(Range("C" & L & ":By" & L)) = 0
Next
Application.ScreenUpdating = True
End Sub

----------------------------------------------------------------
Sub Seite_Druckbereich()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AC$51"
ActiveSheet.PageSetup.PrintArea = False
With ActiveSheet.PageSetup
.Zoom = 68 'Zoomfaktor 68%
'.FitToPagesWide = 1 '1 Seite breit
.LeftMargin = Application.InchesToPoints(0.31496062992126)
.RightMargin = Application.InchesToPoints(0.31496062992126)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.31496062992126)
.Orientation = xlLandscape
End With
End Sub
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 15:13:47
Reinhard
Hallo Maggie, 
Option Explicit
Sub Alle()
Dim wks As Worksheet
For Each wks In Worksheets
Call Monat_anpassen(wks)
Call ausblenden(wks)
Call Seite_Druckbereich(wks)
Next wks
End Sub
Sub Monat_anpassen(ByRef wks As Worksheet)
' Monat_anpassen Makro
With wks
.Range("A2:AI2").AutoFilter
.Range("A3:AI27").Select
.Range("A27").Activate
.Range("$A$2:$AI$51").AutoFilter Field:=35, Criteria1:=RGB(255, _
199, 206), Operator:=xlFilterCellColor
Selection.ClearContents
Selection.AutoFilter
.Range("D3").Select
End With
End Sub
Public Sub ausblenden(ByRef wks As Worksheet)
Dim L As Long
Application.ScreenUpdating = False
With wks
For L = 3 To 27
.Rows(L).Hidden = WorksheetFunction.Sum(.Range("C" & L & ":By" & L)) = 0
Next
End With
Application.ScreenUpdating = True
End Sub
Sub Seite_Druckbereich(ByRef wks As Worksheet)
With wks
.PageSetup.PrintArea = "$A$1:$AC$51"
.PageSetup.PrintArea = False
With .PageSetup
.Zoom = 68 'Zoomfaktor 68%
'.FitToPagesWide = 1 '1 Seite breit
.LeftMargin = Application.InchesToPoints(0.31496062992126)
.RightMargin = Application.InchesToPoints(0.31496062992126)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.31496062992126)
.Orientation = xlLandscape
End With
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 15:42:21
Hajo_Zi
Hallo Reinhard,
ich hätte vermutet Du kannst kein Select auf eine nicht aktive Tabelle machen.
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.

AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 15:50:12
Maggie
Hallo Reinhold,
klappt leider nicht... .
Laufzeitfehler 1004 - Die Select Methode des Range Objekts konnte nicht ausgeführt werden....
.Range("A3:AI27").Select
Gruß
Maggie
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 16:02:11
Daniel
Hallo Maggi,
probier mal das:
Sub bla()
For Each b In Worksheets
b.Select
[...deine 3 Makros...]
next
End Sub
b ... steht als Platzhalter für jedes Arbeitsblatt der aktuellen Mappe
d.h. du kannst es auch anders nennen (Blatt o.ä. ...)
Viele Erfolg
Daniel Ov
Anzeige
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 19:16:40
Reinhard
Hallo Maggie,
ja, ist normal, Hajo hat ja schon geschrieben warum der Fehler kommen muß.
Du kannst in meiner Prozedur Alle in der For-Schleife zuoberst schreiben:
wks.activate.
Funktioniert, ist aber ohne Stil.
Lass das weg und probier mal (ungetestet): 
Sub Monat_anpassen(ByRef wks As Worksheet)
' Monat_anpassen Makro
With wks
.Range("A2:AI2").AutoFilter
.Range("$A$2:$AI$51").AutoFilter Field:=35, Criteria1:=RGB(255, _
199, 206), Operator:=xlFilterCellColor
.Range("A3:AI27").ClearContents
.Range("A3:AI27").AutoFilter
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 18:49:30
Rolf
Hallo Reinhard,
das muss ich jetzt einfach mal loswerden.
Du hast geniale Lösungen auf Lager, von denen ich, als VBA-Greenhorn, nur träumen kann.
Warum mir jetzt - in diesem Moment - Mark Twain einfällt, weiß ich nicht.
Vermutlich Freud'sche Fehlleistung. Der Spruch ist aber dennoch nachdenkenswert.
Der Mensch ist das religiöse Tier. Er ist das einzige Tier, das seinen Nächsten wie sich selber liebt und, wenn dessen Theologie nicht stimmt, ihm die Kehle abschneidet.
Gruß, Rolf
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 20:54:41
Reinhard
Hallo Rolf,
ich und genial in Vba? :-) danke, dem ist aber beileibe nicht so.
Ich spiele hier bei Herber in der dritten Bundesliga knapp über dem Relegationsplatz.
Und ich sehe schon was in den beiden oberen Ligen so gezeigt wird an Können.
Was Mark Twain so sagte, übrigens Erich Kästner ist da ähnlich, u.v.m., ist schon lesenswert.
Warum du nun bei mir auf diese Aussage von mark Twain kommst ist mir nicht klar.
Daß der Mensch auch nur ein Tier ist, ja das weiß ich.
PS: Vor vielen Jahren lief mal in einem dritten Programm eine mehrteilige Doku mit dem Titel
"das Tier Mensch"
Sie ist sehr wert gesehen zu werden. Da wurde vieles gleiches aufgezeigt.
Im Sinne der Weltrelegionen, ich bezeichne sie sowieso alle als Sekten, bin ich nicht gläubig.
Ich bin meine eigene Sekte :-)
Daran daß genügend Menschen "Liebe deinen Nächsten" so im Kopf/Herzen haben und es auch umsetzen daß sie das auf jeden anwenden der grad ihr Nächster ist, also neben ihnen steht, um das
prozentual bezogen auf Milliarden. Menschen auszudrücken glaube ich nicht.
Es gilt immer noch das Prinzip aus der Evolution was auch in heutigen Genen steckt.
Erst komme ich, dann meine Familie, dann mein Dorf, dann dazu noch das Nachbardorf,
dann viele Dörfer der Umgebung (Bundesland), dann der Staat aller Tiere die so sind wie ich,
hier also Deutsche, dann alle die in Europa, dann alle auf der Erde wenn es gegen marsmenschen geht...
Ich liebe garantiert nicht alle meine Nächsten. Andrerseits habe ich (noch) nicht jmdm. die Kehle durchgeschnitten.
Zum Thema Evolution. Stell dir mal vor, in Urzeiten gab es mal einen See und zwei Dörfer am See.
Sie lebten alle vom Fischfang. Jetzt geschah irgendwas und beide Dörfer stelleten fest,
der Fischfang reicht nicht mehr aus um beide Dörfer mit Nahrung zu versorgen.
Die Logik sagt, mal angenommen daß wären damals alle menschen auf der Welt gewesen,
überlebt hat das Dorf das gewann als sich beide Dörfer gegenseitig abmursten.
Das zieht sich durch die Geschichte. Und wir haben logischerweise die Gene derjenigen die
besser darin waren andre abzumurksen. Was auch bedeutet, um eigene Truppen zu schonen
zuerst zuzuschlagen und das auch ggfs. noch hinterrücks.
The winner takes all.
Was ich geschreiben habe ist dann doch winzigist OT in Bezug auf ein Excelforum.
Hier ist nicht der Ort um das zu debattieren.
Gruß
Reinhard
Anzeige
AW: Makro für alle Tabellenblätter (Filter,ausblenden.
06.05.2012 22:57:28
Maggie
Danke Euch,
musste es doch etwas anders lösen, hatte vergessen, dass ich alle bis auf die ersten 3 Tabellenblätter brauche.
Jetzt brauche ich nur noch den Druckbereich, aber das ist nicht so wichtig, denn den kann ich mit dem E-Mailversand verbinden.
so sieht mein Ergebnis bisher aus...
Sub Monat_anpassen()
Dim I As Integer
For I = 4 To Sheets.Count
Sheets(I).Select
' Monat_anpassen Makro
Range("A2:AI2").Select
Selection.AutoFilter
Range("A3:AI27").Select
Range("A27").Activate
ActiveSheet.Range("$A$2:$AI$51").AutoFilter Field:=35, Criteria1:=RGB(255, _
199, 206), Operator:=xlFilterCellColor
Selection.ClearContents
Selection.AutoFilter
Range("D3").Select
Range("A3:A27").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Next I
End Sub

Gruß
Maggie
PS. Sorry Reinhard, das ich aus Dir einen Reinhold gemacht habe...
Anzeige

333 Forumthreads zu ähnlichen Themen

Blattschutz mit Ausnahmen per VBA
Fritz_W

Hallo Excelfreunde,
ich würde gerne per Makro folgendes erledigen:
Im jeweils aktiven Tabellenblatt sollte ein Blattschutz mit Passwort (z.B. "geschuetzt" gesetzt werden.
Eingaben sollten jedoch weiterhin in allen Zellen des Zellbereichs "B2:K12" möglich sein, die zu diesem Zeitpun...
13.04.2009 12:33:19
Thread-ID: 1068425
5 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
Blatt schützen in Verbindung mit Sortieren
Toby76

Hallo beisammen,
ich habe große Datenmengen aus SAP ausgelesen und will sie zur Bearbeitung an Kollegen weitergeben (siehe Musterdatei anbei). Die Kollegen sollen aber nur die gelb markierten Felder bearbeiten können, den Rest habe ich über Blatt schützen geschützt. Beim Schützen habe ich i...
08.09.2009 14:52:03
Thread-ID: 1101273
6 Beiträge
Anzeige
@Luschi:Aufheben des Vba-Kennwort-Schutzes per API
Andre´

Hallo Luschi,
habe den Beitrag Makro per VBA ändern vom 06.01.2011 verfolgt.
https://www.herber.de/forum/archiv/1192to1196/t1194138.htm
Dort hattest Du geschrieben,
PS: für jeden Interessierten zeige ich die Lösung in 3 Tagen; brauche noch ein paar Tests! Hast Du dies schon...
16.01.2011 10:48:43
Thread-ID: 1195787
9 Beiträge
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 Beiträge
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 Beiträge
VBA Code Tabellenschutz mit Passwort
Max

Hallo zusammen,
hat jemand ein Standard VBA Code um ein Tabellenblatt ("Tabelle1") einzublenden. Das Einblenden der Tabelle soll über ein CommandButton inklusive einer Passwortabfrage erfolgen. Ebenso soll das spätere Ausblenden der Tabelle über einen CommandButton erfolgen.
Danke im vo...
28.12.2012 11:37:27
Thread-ID: 1292225
5 Beiträge
Anzeige

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
4
6
2
5
7
8
6
6
1
4
2
6
4
2
4
3
8
12
4
10
3
4
5
1
2