Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Prüfen ob Tabellen vorhanden | Herbers Excel-Forum


Betrifft: Prüfen ob Tabellen vorhanden von: Kurt P
Geschrieben am: 05.01.2010 09:02:03

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

  

Betrifft: AW: Prüfen ob Tabellen vorhanden von: Daniel
Geschrieben am: 05.01.2010 09:31:14

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


  

Betrifft: AW: Prüfen ob Tabellen vorhanden -) von: Kurt P
Geschrieben am: 05.01.2010 10:38:54

Hallo Daniel,

beides einwandfrei !!!
Danke !

mfg
Kurt P


  

Betrifft: AW: Prüfen ob Tabellen vorhanden von: Tino
Geschrieben am: 05.01.2010 09:36:35

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


  

Betrifft: AW: Prüfen ob Tabellen vorhanden von: robert
Geschrieben am: 05.01.2010 09:41:23

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



  

Betrifft: Auch Dir Robert herzlichen Dank ! -) von: Kurt P
Geschrieben am: 05.01.2010 11:45:27




  

Betrifft: Tino auch einwandfrei, DANKE -) von: Kurt P
Geschrieben am: 05.01.2010 10:40:52




Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Tabellen vorhanden"