Re: Zellen via Makro verknüpfen
07.02.2003 10:47:35
Endrik
Danke Bernd,für dieses Blatt/Mappe geht das aber wie kann ich diesen Code in mein Makro/VBA einbauen, Habe versucht die Namen der Blätter
( Jan.2003 usw. durch mmm.yyyy) zu ersetzen geht aber nicht.
DAs ist der Code für die Monatsblätter:
For Mon = 1 To 12
Monat = DateSerial(Jahr, Mon, 1)
Sheets.Add before:=Worksheets(Mon)
ActiveSheet.Name = Format(Monat, "mmm.yyyy")
[A1] = Format(Monat, "mmmm_yyyy")
[A2] = "Name, Vorname"
Columns(1).ColumnWidth = 13.86
Aber irgendwie find ich keinen Lösungsansatz, das ist das Makro
für die auswahl:
Sub Datenübertragung_Blätter()
Sheets(Array("Jan.2003", "Feb.2003", "Mrz.2003", "Apr.2003", "Mai.2003", "Jun.2003", _
"Jul.2003", "Aug.2003", "Sep.2003", "Okt.2003", "Nov.2003", "Dez.2003")).Select
Sheets("Dez.2003").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-3
Range("A5").Select
End Sub
und ich will die in "" stehenden Sachen ja gleich so aus führen
hab es mit select all versucht aber das funktioniert nicht.
vielleicht hast Du oder jemand anders eine Idee
Danke endrik