Herbers Excel-Forum - das Archiv

Dateiname aus Zellen aut.speichern



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Dateiname aus Zellen aut.speichern
von: Wolfgang


Geschrieben am: 17.05.2002 - 10:36:48

Hallo,
der Dateiname eines Tabellenblatt soll aut.aus dem Inhalt von 2 Zellen des Tabellenblattes(Zelle D19 und D20)abgespeichert werden.
gibt es da eine Möglichkeit als makro
danke im voraus

nach oben   nach unten

Re: Dateiname aus Zellen aut.speichern
von: ajk


Geschrieben am: 17.05.2002 - 15:15:02

Hallo,

diese kleine Makro sollte Dir helfen. Evtl. mußt Du noch den Pfad, Paßwort... usw. angeben. Es wird ausgeführt, wenn die Mappe geschlossen wird (Einfügen in "diese Arbeitsmappe" im VBA-Editor):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim name
Dim minutee
Dim stunde
Dim sekunde

name = Range("d19").Value & Range("d20").Value

If Hour(Time) < 10 Then
stunde = "0" & Hour(Time)
Else
stunde = Hour(Time)
End If
If Minute(Time) < 10 Then
minutee = "0" & Minute(Time)
Else
minutee = Minute(Time)
End If
If Second(Time) < 10 Then
sekunde = "0" & Second(Time)
Else
sekunde = Second(Time)
End If

If name = "" Then
name = "Kein Name " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " um " & stunde & "." & minutee & "." & sekunde & "Uhr"
End If

ActiveWorkbook.SaveAs FileName:=name,FileFormat:=xlWorkbookNormal
End Sub

Gruß
AJK

nach oben   nach unten

Re: Dateiname aus Zellen aut.speichern
von: Wolfgang


Geschrieben am: 21.05.2002 - 08:44:49

Hallo AJK,
vielen Dank für deine Antwort,ich habe mich mal wieder nicht präzise genug ausgedrückt.Vieleicht ist es jetz verständlicher.
Ich kopiere ein Tabellenblatt(Werkstatt-Auftrag) aus einer Datei,
nun speicher ich dieses Tabellenblatt ab. es erschein das Fenster "speichern unter" in Laufwerk usw. und in Dateinname immer Mappe1. und genau hier soll aut. der Name aus Zelle D19 und D20 aus dem TbBlatt Werkstatt-Auftrag stehen,ohne Datum und Zeit. nur z.B.Kennzeichen(D19) und Typ(D20).d.h JJ-ZZ1111 Golf.
Ich möchte also nur das Tabellenblatt aut.speichern, und nicht die org.Datei.
Dank im voraus
Gruß Wolfgang

 nach oben

Excel-Beispiele zum Thema "Dateiname aus Zellen aut.speichern"
Dateinamen filtern Dateiname aus dem vollen Namen extrahieren
Dateiname vorgeben bei Druck in Printdatei Dateinamen in Listbox
Dateinamen in Tabelle einlesen Dateinamen eines Verzeichnisses als HTML-Datei
Grafik nach Eingabe des Dateinamens einfügen Dateinamen in TabStrip-Elemente einlesen
Datei entsprechend der Eingabe des Dateinamens öffnen Dateinamen in UserForm-ComboBox einlesen und Datei öffnen