Forums Neueste Beiträge
 

Dateiname mit Datum

11/04/2008 - 22:13 von Johann Rupp | Report spam
Hallo Excelspezialisten,

habe ein für Euch sicher kleines Makroproblem. Mit einem Button wird ein
Makro gestartet, mit dem ein Tabellenblatt aus einem geöffnetem Workbook in
ein anderes Workbook unter neuem Blattnamen gespeichert wird.
(Sheets("Tabelle1").Name = "Messung vom " & Date) Ich hàtte gerne, daß wenn
das aktuelle Datum vor dem 1.07. liegt, der neue Blattname z.B. "Messung vom
1. Halbjahr 2008" und natürlich für Datum 1.07. und spàter "Messung vom 2.
Halbjahr 2008" lautet.
Tücke des Objekts, ich bekomms nicht gebacken! Könnt ihr helfen?
Vielen Dank,
Gruß Johann
 

Lesen sie die antworten

#1 Claus Busch
11/04/2008 - 22:33 | Warnen spam
Hallo Johann,

Am Fri, 11 Apr 2008 22:13:16 +0200 schrieb Johann Rupp:

habe ein für Euch sicher kleines Makroproblem. Mit einem Button wird ein
Makro gestartet, mit dem ein Tabellenblatt aus einem geöffnetem Workbook in
ein anderes Workbook unter neuem Blattnamen gespeichert wird.
(Sheets("Tabelle1").Name = "Messung vom " & Date) Ich hàtte gerne, daß wenn
das aktuelle Datum vor dem 1.07. liegt, der neue Blattname z.B. "Messung vom
1. Halbjahr 2008" und natürlich für Datum 1.07. und spàter "Messung vom 2.
Halbjahr 2008" lautet.



das neue einkopierte Blatt ist automatisch das aktive Blatt. Probiere es
also so innerhalb deines Codes:
If Date < DateSerial(2008, 7, 1) Then
ActiveSheet.Name = "Messung vom 1. Halbjahr 2008"
Else
ActiveSheet.Name = "Messung vom 2. Halbjahr 2008"
End If


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen