Schleife+Funktion geht nicht
30.10.2003 14:30:22
Steffen
ich brauche nochmal bitte Eure Hilfe:
Ich habe folgende Funktion:
Function TabelleVorhanden(TabellenName As String) As Boolean
Dim TB As Worksheet
TabelleVorhanden = False
For Each TB In Worksheets
If TB.Name = TabellenName Then
TabelleVorhanden = True
Exit For
End If
Next TB
End Function
Diese klappt in einem normalen Makro auch super, bei ich Sie aber in die Schleife:
Sub test()
'Blattschutz
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
If TabelleVorhanden("Leer") = True Then
For Each wks In wkb.Worksheets
wks.Protect Password:=PSWDTP, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next wks
End If
Next wkb
End Sub
ein, so geht sie nicht mehr, ich möchte Sie aber gern als Funktion verwenden, da ich Sie in meheren Schleifen benötige, was mache ich falsch???
Danke Euch schonmal im voraus:
Steffen