title image


Smiley Re: Via VBA auslesen wie viel Sheets eine Tabelle hat? (und mehr...)
hallo elektroman99,



worksheets.count liefert die Anzahl der Worksheets.

Je nach dem, was man eigentlich will, kann das Ergebnis irgendwie so aussehen:





ub pruefen()

Dim Laender(3) As String

Dim ok As Boolean



Laender(0) = "Deutschland"

Laender(1) = "Großbritanien"

Laender(2) = "Italien"

Laender(3) = "Spanien"



For j = 0 To UBound(Laender)

ok = False

For i = 1 To Worksheets.count

If Worksheets(i).Name = Laender(j) Then

ok = True

End If

Next i

If ok = False Then txt = txt & " " & Laender(j)

Next j



Call MsgBox(txt, vbInformation, "Fehlende Länder:")

End Sub



viele Grüße. Heide

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: