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
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
Sub CheckTab()
Dim meAr()
Dim i%, ii%
On Error Resume Next
For i = 1 To 12
If Sheets(MonthName(i, True)).Index < 1 Then
Redim Preserve meAr(ii)
meAr(ii) = MonthName(i, True)
ii = ii + 1
End If
Next i
If ii > 0 Then
MsgBox "Die Tabelle(n) fehlen" & vbCr & vbCr & Join(meAr, vbCr)
End If
End Sub
Sub tt()
Dim i%
Dim xsht As String
For i = 1 To Worksheets.Count
xsht = xsht & Chr(10) & Sheets(i).Name
Next i
MsgBox "Vorhandene Tabellen " & vbCr & vbCr & xsht
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen