AW: Prüfen ob Tabellen vorhanden
05.01.2010 09:31:14
Daniel
Hi
vielleicht so (nicht getestet):
dim i as long
dim Erg as string
on error resume next
for i = 1 to 12
err = 0
sheets(Format(CDate("1." & i & ".2010"), "MMM") ).select
if err 0 then Erg = Erg & ", " & Format(CDate("1." & i & ".2010"), "MMM")
next
on error goto 0
if Erg = "" then
msgbox "Alles i.O"
Else
msgbox "Fehlende Monate: " & Mid$(Erg, 3)
end if
oder so:
dim Monate as String
dim sh as worksheet
Monate = "Jan Feb Mrz Apr Mai Jun Jul Aug Sep Okt Nov Dez"
For each sh in Activeworkbook.Worksheets
Monate = Replace(Monate, sh.Name, "")
next
if len(Monate) = 11 then
msgbox "Alles i.O."
else
Msgbox "Fehlende Monate: " & Monate
end if
Gruß, Daniel