Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern unter Dialog mit Zellenprüfung

Forumthread: Speichern unter Dialog mit Zellenprüfung

Speichern unter Dialog mit Zellenprüfung
20.10.2014 14:17:52
psy
Hi zusammen,
in Excel besteht die Möglichkeit über Datei - Speichern unter eine Datei zu benennen und zu speichern. Oder man speichert direkt über das Diskettensymbol.
Gibt es eine Möglichkeit, dass wenn die Datei so gespeichert wird, eine Zellenprüfung stattfindet, ob gewisse Zellen einen Zellenwert haben?
Dabei geht es mir um folgendes. Ein Arbeitsdokument muss befüllt werden. Da die netten Leute oft vergessen ein paar grundlegende Zellen zu befüllen, möchte ich die netten Leute darauf hinweisen, das da was fehlt. Wie? Die Datei wird schreibgeschützt. Und wenn die netten Leute das Diskettensymbol bzw. Datei - Speichern unter wählen, dann soll ein Makro loslaufen und prüfen, ob drei Zellen befüllt sind. Wenn ja, öffnet sich das Speichern unter Dialogfeld, falls nein, kommt eine MSG-Box und weißt die netten Leute darauf hin, dass da was fehlt.
Danke für die Hilfe.
Gruß

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter Dialog mit Zellenprüfung
20.10.2014 14:27:47
Beverly
Hi,
folgenden Code ins Codemodul "DieseArbeitsmappe"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1") = "" Then  '

AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 07:40:25
psy
Hi Beverly,
vielen Dank für die Rückmeldung. An sich funktioniert der Code. Nur ein Problem besteht.
Wenn ich den Code im Codemodul "Diese Arbeitsmappe" eintrage, muss ich zwangsläufig noch einmal speichern. Dies ist dann aber nicht möglich.
Gruß

Anzeige
AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 07:46:34
Beverly
Hi,
öffne die Arbeitsmappe mit deaktivierten Makros und speichere sie dann.

AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 10:40:57
psy
Hi,
perfekt. Es funktioniert. Vielen Dank.
Nun hätte ich noch eine Frage. Ist es möglich, dass beim speichern unter Dialog nicht die Dateiendung xlsm sondern direkt xlsx ausgewählt ist?
Da die Datei schreibgeschützt ist, wird bei jedem Speicherversuch das Dialogfeld Speichern unter gewählt.
Habe nun versucht das ganze ein wenig zu ändern. Aber mhhh irgendwie stürzt mein Excel nun jedes mal ab. Anbei mal der Code.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("B12") = "" And Range("F12") = "" And Range("X12") = "" Then
MsgBox "Alles ausfüllen!!!"
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\USERS\" & Environ("UserName") & "\Desktop\" & Range("B12") & " " & Range("F12") & "  _
" & Range("X12") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End If
End Sub
Der Zusatz kommt aus einem anderen Makro und diente dazu, die Datei zu speichern.
Gruß

Anzeige
AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 07:49:19
psy
Hi Karin,
danke für die Rückmeldung. Dein Code funktioniert doch nun stehe ich vor einer kleinen Herausforderung.
Würde ja gern die Datei speichern mit dem neuen Code, doch leider geht das nicht. Um zu speichern müsste ich die drei Felder ausfüllen. Wenn ich die Felder ausfüllen würde, damit ich die Datei mit Code speichern kann, dann ist der Code überflüssig. Dreh mich da im Kreis.
Gruß

Anzeige
AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 07:52:44
Beverly
Hi,
meinen letzten Beitrag hast du gelesen?

AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 11:15:09
psy
Hi,
perfekt. Es funktioniert. Vielen Dank.
Nun hätte ich noch eine Frage. Ist es möglich, dass beim speichern unter Dialog nicht die Dateiendung xlsm sondern direkt xlsx ausgewählt ist?
Da die Datei schreibgeschützt ist, wird bei jedem Speicherversuch das Dialogfeld Speichern unter gewählt.
Habe nun versucht das ganze ein wenig zu ändern. Aber mhhh irgendwie stürzt mein Excel nun jedes mal ab. Anbei mal der Code.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("B12") = "" And Range("F12") = "" And Range("X12") = "" Then
MsgBox "Alles ausfüllen!!!"
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\USERS\" & Environ("UserName") & "\Desktop\" & Range("B12") & " " & Range("F12") & "  _
_
" & Range("X12") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End If
End Sub

Der Zusatz kommt aus einem anderen Makro und diente dazu, die Datei zu speichern.
Gruß

Anzeige
AW: Speichern unter Dialog mit Zellenprüfung
21.10.2014 12:45:07
Beverly
Hi,
wenn du die Mappe im xlsx-Format speichest, wird aller VBA-Code gelöscht - das ist dir schon klar?

;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Speichern-unter Dialog
steffen

Hallo,
wie kann ich es anstellen, dass im Speichern-Unter-Dialog
Application.Dialogs(xlDialogSaveAs).Show
kein Dateiname vorgegeben wird, also das Feld "Dateiname" leer ist?
Toll wäre noch, das Abbrechen des Dialogfensters zu unterbinden, so dass man gezwungen wird, einen Date...
06.10.2008 14:49:20
Thread-ID: 1014454
5 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
speichern unter Dialog
Beffen

Hallo nochmal. Die Probleme hören nicht auf ^^
hab in der Forumsliste gesucht, aber nichts passendes gefunden.
arbeite derzeit mit
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls", FileFormat:=xlNormal
On Error GoTo 0
...
10.01.2011 10:33:17
Thread-ID: 1194781
4 Beiträge
"Datei öffnen"-Dialog mit Pfadvorgabe
Holger

Hallo Excelaner,
wie kann ich eine Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat),")
Anweisung auf einen fixen Pfad (z.B. "H:/Test/" ) ausführen?
Es soll also im "Datei öffnen"-Dialog der Pfad schon vorbelegt werden.
Für Hilfe wäre ich sehr dankbar!
Gruß Holge...
12.01.2011 14:51:59
Thread-ID: 1195263
6 Beiträge
Speichern unter Dialog ohne Funktion
Beffen

Huhu,
folgende Frage, liebe Experten:
Ich weiss nicht warum, aber der Code
speichername = tb_name.Value
MsgBox speichername
If Dir("Zeiterfassung " & speichername & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls"...
19.01.2011 17:23:35
Thread-ID: 1196452
4 Beiträge
Anzeige
Speichern unter - ohne Dialog und ohne...
KLE

...Meldung, wenn Datei bereits vorhanden.
Hi,
...ich möchte gern eine Datei unter einem bestimmten Namen und Pfad speichern.
In dem Ordner wird es bereits eine Datei mit dem gleichen Namen geben, welche ohne Nachfrage/Hinweis überschrieben werden soll.
Wie kann ich das tun -...
25.10.2011 22:36:09
Thread-ID: 1235393
5 Beiträge
Anzeige
Aus Excel Word-Speichern-Unter-Dialog aufrufen
grossermanitu

Hallo,
ich erstelle aus Excel ein Word-Dokument das im Anschluss den Speichern-Unter-Dialog mit vorgegeben Pfad aufrufen soll. Das ganze funktioniert solange keine anderen Word-Dokumente offen sind.
Wie weiße ich nun zu, dass für das Word-Dokument das gerade erstellt wurde der Speicher...
25.06.2012 20:56:53
Thread-ID: 1268683
3 Beiträge
VBA Verzeichnis auswählen
PeTeR

Hallo VBA-Freaks,
ich suche nach einem Dialog zur Auswahl eines Verzeichnisses (nicht Datei!), aber mit Anzeige der darin enthaltenen Dateien.
Getopenfilname - muss ich eine Datei auswählen!
FileDialog(msoFileDialogFolderPicker) - sehe ich die Dateien im Verzeichnis nicht!
Viele...
04.12.2013 09:27:16
Thread-ID: 1341172
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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