Office: (Office 2007) Speichern mit Zellbezug

Hollodrio · 9. Februar 2005

Hallo,

Ich bin VBA Neuling und habe die Aufgabe bekommen eine Mappe zur Erfassung von Stückzahlen zu erstellen.
Ich habe hier im Forum viel zum Thema "Speichern mit Zellbezug" gefunden und mir so auch etwas zusammengebastelt. Doch irgendwie will es nicht.
In meiner angehangenen Beispielmappe gibt es einen Button bei dem die Datei unter dem Namen von Zelle "B1" plus einen Zusatz gespeichert werden soll.
Wenn die Datei schon vorhanden ist soll sie überschrieben werden wenn nicht neu erstellt.
Wieterhin würde ich gerne die Bezeicnung von Zelle "B1" haben und nicht den Wert bzw. den 1. des jeweiligen Monats. also Stkz_Online_Monatsname Jahr.xls

Danke schon im vorraus

:)

Lumpensammler · 10. Februar 2005

Hallo, Hollodrio,

Du hast keine Speicherung eingebaut:
Code:

Option Explicit

Sub CommandButton1_Click()

Dim SpeicherName As Variant
Dim Meldung As String
Dim Titel As String
Dim Voreinstellung1
Dim Wert As Integer
Dim Ordner As String

Meldung = "alle Eingaben korrekt?" & Chr(13) & _
"Liste sichern?"
Titel = "Liste speichern"

Voreinstellung1 = "Stkz_Online_" & Worksheets("Stückzahlen_Online").Range("B1").Value & ".xls"

SpeicherName = Application.InputBox(Meldung, Titel, Voreinstellung1)
If SpeicherName = False Then Exit Sub
Ordner = "U:\Fehlererfassung\QM_Fehlererfassung"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Ordner & "\" & SpeicherName
Application.DisplayAlerts = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
LS

Hollodrio · 10. Februar 2005

Danke Lumpensammler klappt prima.
Nun wäre da noch die Frage mit der Bezecihnung von Zelle "B1".
Vielleicht kann mir da ja noch jemand helfen.
Kann man den Focus auf das jeweils aktuelle Datum setzen?

Danke im Vorraus

Lumpensammler · 10. Februar 2005

Hallo, Hollodrio,

das kann man z.B. über die Nutzung des formatierten Datumsbefehles auch erreichen; für den heutigen Tag dann in der Form:
Code:

"Stkz_Online_" & Format(Date, "DD. MMMM YYYY") & ".xls"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
LS

Hollodrio · 11. Februar 2005

Danke für die Antwort, aber wie verknüpf ich das mit meiner Zelle "B2"

Hollodrio · 11. Februar 2005

Danke an alle hat alles geklappt, man muss manchmal nur ein bissl denken :-)

Hollodrio · 12. Februar 2005

Ich habe doch noch ein kleines Problem:
Wenn ich beim Speichern auf "Abrechen" klicke bekomme ich eine Fehlermeldung mit Laufzeitfehler 13 in folgender Codezeile:
Code:

If SpeicherName = False Then Exit Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim auskommentieren dieser Zeile und ebenfalls Klick auf "Abbrechen" wird die Datei aber unter dem Namen "Falsch.xls" gespeichert.
Hier der komplette Code:
Code:

Sub CommandButton1_Click()

Dim SpeicherName As String
Dim Meldung As String
Dim Titel As String
Dim Voreinstellung1
Dim Wert As Integer

Meldung = "alle Eingaben korrekt?" & Chr(13) & _
"" & Chr(13) & _
"Liste sichern?"
Titel = "Liste speichern"

Voreinstellung1 = "Stkz_Online_" & Format(Worksheets("Stückzahlen_Online").Range("B1").Value, "MMMM_YYYY") & ".xls"

SpeicherName = Application.InputBox(Meldung, Titel, Voreinstellung1)

If SpeicherName = False Then Exit Sub
Ordner = "D:\Studium\Praktikum\Fehlererfassung"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Ordner & "\" & SpeicherName
Application.DisplayAlerts = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eigentlich soll aber nur abgebrochen werden.

Danke im vorraus

User · 12. Februar 2005

Hallo Hollodrio,

den Fehler kann ich nicht nachvollziehen. Gehe doch mal im Einzelschritt durch und schaue welchen Wert "SpeicherName " hat nach dem Dialog.

In dem Code fehlt noch die Zeile
Dim Ordner As String
was aber nichts mit dem Fehler zu tun hat.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

jinx · 12. Februar 2005

Moin, Hollodrio,

ändere den Datentyp für SpeicherName von String auf Variant.

User · 12. Februar 2005

Hallo Hollodrio,

nach dem Hinweis von jinx habe ich noch mal getestet.

Vielleich hilft auch
If SpeicherName = False Or SpeicherName = Empty Then Exit Sub

Gruß Hajo

Hollodrio · 13. Februar 2005

Hallo ihr 2 "Trekkis" ;-)

Habe beide Tipps von euch eingebaut und es funkt prima.
Danke euch und noch einen schönen Sonntag.

Office: (Office 2007) Speichern mit Zellbezug

Speichern mit Zellbezug

Speichern mit Zellbezug

Speichern mit Zellbezug

Speichern mit Zellbezug

Speichern mit Zellbezug - Similar Threads - Speichern Zellbezug

Vorlagen (nach)bearbeiten und speichern

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Den Pfad verändern

Excel per Button Speichern und Schliessen und "X - Button" deaktivieren

Datei als OLE-Objekt via FilePicker auswählen und speichern

offene Word-Datei per VBA speichern

Speichern unter per Zellbezug