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