Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für ausgewählte Tabellenblätter

Forumthread: Makro für ausgewählte Tabellenblätter

Makro für ausgewählte Tabellenblätter
07.05.2015 17:21:13
Burghard

Hallo, ich habe in zwölf einzelnen Tabellenblättern dieses funktionierende Makro:

Private Sub Worksheet_Calculate()
If WorksheetFunction.Sum(Range("B2:B83")) > 500 Then
MsgBox "ACHTUNG! Höchstbetrag von 500,00 € wird überschritten!"
End If
End Sub
Wenn ich nun die Summe ändern will, muss ich zwölf Mal ändern. Deshalb würde gerne dieses Makro im Bereich "Diese Arbeitsmappe" ausführen lassen und zwar für diese Tabellenblätter:
Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")) . Für eine Änderung bräuchte ich dann nur einmal die Höchstsumme ändern. Hilfe wäre nett.
Grüße Burghard

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Quick and Dirty
07.05.2015 17:24:45
Klaus M.vdT.
Hallo Burghard,
erstelle ein neues Blatt Namens "VbaZahl". Schreibe in Zelle A1 den Wert 500, sonst nichts. Blende das Blatt aus. Jetzt das Makro in jedem Blatt so anpassen:
Private Sub Worksheet_Calculate()
If WorksheetFunction.Sum(Range("B2:B83")) > Sheets("VbaZahl").Range("A1").Value Then
MsgBox "ACHTUNG! Höchstbetrag von " & Sheets("VbaZahl").Range("A1").Value & " € wird ü _
berschritten!"
End If
End Sub
Nicht schön, aber einfach und funktional!
Grüße,
Klaus M.vdT.

Anzeige
AW: Quick and Dirty / Geht!
07.05.2015 18:35:29
Burghard
Hallo Klaus,
vielen Dank für die superschnelle Antwort! Nette Lösungsidee! Funktioniert wie gewünscht! Danke!
Grüße Burghard

Danke für die Rückmeldung! owT.
07.05.2015 18:45:58
Klaus M.vdT.
.

;

Forumthreads zu verwandten 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
Makro für alle
christian

Hallo
wir setzen Office 2007 bzw. Excel auf einem Terminalserver ein. Nun möchte ich für alle ein Makro hinterlegen. Nach Möglichkeit soll das Makro in der Symbolleiste sein und nicht in der Schnellzugriffsleiste. Aber zu Not ginge das auch.
Viel wichtiger wäre mir zu wissen, wie ich...
14.08.2009 12:56:10
Thread-ID: 1095964
4 Beiträge
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
Anzeige
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
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
Anzeige
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
Makro für alle und immer
Jacqueline

Guten Tag liebe Exceler,
ich habe - mal wieder - ein Problem, welches für eure Lösungen gemacht ist.
Wir erstellen in unserer Abteilung immer mal wieder Makros, die allen zur Verfügung gestellt werden sollen. Am besten wäre für uns ein eigener Reiter mit allen Abteilungsmakros. Alle Mak...
17.05.2011 10:48:37
Thread-ID: 1214782
2 Beiträge
Alle Blätter mit "ABC" durchlaufen
Kai

Hallo,
Ich möchte per VBA alle Tabellenblätter durchlaufen, die mit "BESTAND" beginnen.
Blätter können zB. heisen:
"Bestand Alt"
"Bestand Neu"
"Bestand Heute"
...
und dort einen Code ausführen. Ich weiss nicht, ob ich da jedes Tabellenblatt einzeln selektieren muss,...
08.07.2011 10:28:56
Thread-ID: 1221345
19 Beiträge
Anzeige
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige