Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nur in einem Arbeitsblatt

Makro nur in einem Arbeitsblatt
18.07.2022 11:09:24
Thomas
Hallo Zusammen,
ich habe 2 mögliche Codes zum Ausführen einer Abfrage. Es geht nur darum, wie ich den Code in einem einzelnen Arbeitsblatt verwende.
Code1:
' 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If Cells(6, 7) Or Cells(6, 10) Or Cells(6, 13) Or Cells(6, 16) Or Cells(6, 19) Or Cells(6, 22) Or Cells(6, 25) = "" Then
'MsgBox "Maske ist noch nicht vollständig befüllt"
'Cancel = True
'End If
'End Sub
Dieser funktioniert, aber ist ja wegen "workbook" für die gesamte Arbeitsmappe aktiv. Wie muss nun der Code aussehen für die selbe Funktion nur in einem Arbeitsblatt?
Mein Vorschlag: es tut sich aber nichts ...
Code2:

Private Sub Worksheet_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(6, 7) Or Cells(6, 10) Or Cells(6, 13) Or Cells(6, 16) Or Cells(6, 19) Or Cells(6, 22) Or Cells(6, 25) = "" Then
MsgBox "Maske ist noch nicht vollständig befüllt"
Cancel = True
End If
End Sub
Danke für eure Hilfe!
Gruß Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro nur in einem Arbeitsblatt
18.07.2022 11:24:45
Daniel
Hi
1. ist deine Abfrage Bullshit
du musst für jede Zelle prüfen, ob der Inhalt leer ist, also

If Cells(6, 7) = "" Or Cells(6, 10) = "" Or Cells(6, 13) = "" ....
2. BeforeSave kann nur für die Mappe funktionieren!
sollte eigentlich klar sein.
wenn du mehrer Blätter hast und nur das Blatt mit der Maske geprüft werden soll, dann musst du das Blatt vor jedem Cells angeben:

If sheets("Maske").Cells(6, 7) = "" Or Sheets("Maske").Cells(6, 10) = ""....
damit du nicht jedesmal das Sheets("Maske") schreiben musst, kannst du die With-Klammer verwenden.
hierbei wird das bei WITH definierte Objekt immer dort eingesetzt, wo ein Ausdruck mit einem Punkt beginnt: 

With Sheets("Maske")
If .Cells(6, 7) = "" Or .Cells(6, 10) = "" Or .Cells(6, 13) = "" ... Then
MsgBox "Maske ist noch nicht vollständig befüllt"
Cancel = True
End If
End With
wenn die Prüfung nur ausgeführt werden soll, wenn das Blatt Maske auch aktiv ist, kannst du das extra abfragen:

If ActiveSheet.Name = "Maske" Then
Gruß Daniel
Anzeige
AW: Makro nur in einem Arbeitsblatt
18.07.2022 11:35:52
MCO
Hallo Thomas!
Ich hab dir mal Deine Variante korrigiert, so wie auch von Daniel vorgeschlagen und zusätzlich einmal so geschrieben, wie ich es aufgebaut hätte.
Ist nur ein Vorschlag....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets(1)
If .Cells(6, 7) = "" Or .Cells(6, 10) = "" Or .Cells(6, 13) = "" Or .Cells(6, 16) = "" Or .Cells(6, 19) = "" Or .Cells(6, 22) = "" Or .Cells(6, 25) = "" Then
MsgBox "Maske ist noch nicht vollständig befüllt"
Cancel = True
End If
End With
With Sheets(1)
Set Rng = Union(.Cells(6, 7), .Cells(6, 10), .Cells(6, 13), .Cells(6, 16), .Cells(6, 19), .Cells(6, 22), .Cells(6, 25))
If Rng.Count  Rng.SpecialCells(xlCellTypeConstants).Count Then
MsgBox "Maske ist noch nicht vollständig befüllt"
Cancel = True
Rng.SpecialCells(xlCellTypeBlanks).Select
End If
End With
End Sub
Gruß, MCO
Anzeige
AW: Makro nur in einem Arbeitsblatt
18.07.2022 11:41:31
GerdL
Moin Thomas!

Private Sub Worksheet_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook.Worksheets("Tabelle99") 'anpassen
If WorksheetFunction.CountA(Union(.Cells(6, 7), _
.Cells(6, 10), _
.Cells(6, 13), _
.Cells(6, 16), _
.Cells(6, 19), _
.Cells(6, 22), _
.Cells(6, 25)))
Gruß Gerd
AW: Makro nur in einem Arbeitsblatt
19.07.2022 11:01:14
Thomas
Ich danke euch!
AW: Makro nur in einem Arbeitsblatt
19.07.2022 13:29:02
Thomas
Leider klappt, das noch nicht so ganz,
mit dem Code von GerdL hab ich trotz Befüllen der relevanten Zellen die Ausgabe der Messagebox,
wisst ihr woran das liegen könnte?
Danke euch für weitere Tipps!
Worauf ich geachtet habe:
- Einfügen des Codes in "diese Arbeitsmappe"
- Aufrufen des Arbeitsblatts "Übersicht" nochmal explizit mit Select (mit oder ohne die Zeile keine Veränderung)
- Alle Zellen befüllt:
.Cells(6, 7), _
.Cells(6, 10), _
.Cells(6, 13), _
.Cells(6, 16), _
.Cells(6, 19), _
.Cells(6, 22), _
.Cells(6, 25)
Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Sheets("Übersicht").Select (aktiv oder auskommentiert)
With ThisWorkbook.Worksheets("Übersicht")
If WorksheetFunction.CountA(Union(.Cells(6, 7), _
.Cells(6, 10), _
.Cells(6, 13), _
.Cells(6, 16), _
.Cells(6, 19), _
.Cells(6, 22), _
.Cells(6, 25)))

Anzeige

307 Forumthreads zu ähnlichen Themen

Durchrechnung nur für ein Blatt ausschalten
KlausF

Hallo Excelperten!
In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
Geht das überhaupt so eingeschränkt?
Besten...
13.09.2008 15:37:53
Thread-ID: 1009517
3 Beiträge
Anzeige
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Nur Tabellenblatt speichern nicht ganze Arbeitsm
Horst

Hey !
Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
Kann ich das irgend wie per Marko oder zu Fuß erledigen?
Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunk...
19.03.2009 09:54:34
Thread-ID: 1061709
3 Beiträge
Anzeige
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Automatisch berechnen nur in einem Tabellenblatt
Gerrit

Moin,
habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
Gibt's hier ne Möglichkeit?
Vielen Dank!
Gerrit
20.06.2009 23:56:05
Thread-ID: 1083169
22 Beiträge
Range(C12:E30) als .txt speichern / exportieren ?
udo-d

Hallo Profis,
hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
eines best. Tabellenblattes ( Name zB: "Auswertung" )
Bereich C12:E30 als Textdatei exportieren / speichern kann ?
im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
12.10.2009 17:56:56
Thread-ID: 1109157
12 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
Anzeige

Links zu Excel-Dialogen

MessageBox

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
2
33
13
2
9
7
21
11
13
4
17
21
3
1
4
10
3
2
8
1
2
1
9
4
3