Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiname aus Zellen aut.speichern

Dateiname aus Zellen aut.speichern
17.05.2002 10:36:48
Wolfgang
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateiname aus Zellen aut.speichern
17.05.2002 15:15:02
ajk
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

Anzeige
Re: Dateiname aus Zellen aut.speichern
21.05.2002 08:44:49
Wolfgang
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
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige