mein heutiges Problem: :-)
ich generiere mit einem Script einen Kalendermonat in einem neuen Sheet und bezeichne dieses Sheet mit dem Monat und dem Jahr, für das es gültig ist wie folgt:
ws.name = Format(d, "mmmm") & " " & jahr
Nun will ich, dass es zusätzlich vergleicht, ob dieser Monat schon vorhanden ist und mir dann eine Fehlermeldung ausgibt.
Ich habe schon mal in den alten Postings geschaut und bin über folgenden Treat gestolpert:
https://www.herber.de/forum/archiv/28to32/t30152.htm
Leider funktioniert der angegebene Quelltext nicht und ich habe einmal ein wenig herumprobiert und habe folgendes zustande gebracht:
dim name as string
n = Worksheets.Count
name = Format(d, "mmmm") & " " & jahr
For i = 1 To n
If Worksheets(i).name = name Then
MsgBox "Das Tabellenblatt ist schon vorhanden", 48, "Hinweis"
Exit Sub
End If
Next i
Mein Problem ist jetzt nur, dass es nur funktioniert, wenn ich den Dezember generiere. Bei allen anderen Monaten funktioniert dieses Script nicht und ich werde erst beim benennen des Sheets herausgeschmissen, weil er schon ein Sheet hat, das genauso heisst.
Wenn ich das Programm ein Einzelschritte durchgehe, sehe ich immer, dass in der Variablen NAME Dezember drinne steht.
Hat von euch einer eine Ahnung, was ich falsch gemacht habe und wie man es eleganter gelöst bekommt.
Falls euch irgendwie was unklar ist, was ich meine oder wie der Gesamtzusammenhang des Programmes ist, kann ich euch auch gerne mal das Programm insgesamt zuschicken.
Danke euch schon einmal und bis denn
Gruß
Sascha