Thema: Prüfen ob Tabellen vorhanden | Herbers Excel-Forum

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P

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

Hallo Daniel,
beides einwandfrei !!!
Danke !
mfg
Kurt P

Hallo,
so müsste es gehen.

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

Gruß Tino

hi,
zeigt die vorhandenen an
gruß
robert

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