Hallo Zusammen,
ich habe ein seltsames Problem.
Ich gehe alle meine Mappen per Schleife durch und frage dabei ab ob eine bestimmte gefunden wird.
Mein Problem bei der Abfrage ist, dass der Name:
wkb.name einmal als Test.XLS und ein anderes mal als Test.xls interpretiert wird.
Dies führt dazu das meine Abfrage nicht passt.
Wie kommt so etwas und kann man dies auch ohne UCase lösen?
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
If wkb.Name = "TPA.xls" Then
wkb.Unprotect (PSWDTP)
For Each wks In wkb.Worksheets
If wks.Name "Leer" Then
'Blatt einfügen
Set WSF = BT.Worksheets.Add(After:=BT.Sheets("Leer"))
Namenstext = wks.Name
WSF.Name = Namenstext
End If
Next wks
End If
Next wkb
Danke im Voraus.
MFG
Steffen Schmerler