habe die cd von herber
weiss genau dass da irgendwo erklärt ist wie man in ner mappe beim oeffen
tabellen anlegt jan feb -.--bis dez
sorry ich finde das einfach nicht
hoffe erbarmt sich jemand
danke im voraus
gruss
roland_k
Sub Mappen()
Dim i As Integer
For i = 1 To 12
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2000, i, 1), "MMM")
Next i
End Sub
Gruß Matthias