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
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
