If ohne Else
23.08.2013 10:14:57
MBie
Ich brauche schon wieder eure Hilfe. Diesmal hänge ich bei einer Formel, bei der ich die "sonst"-Funktion nicht richtig ausformulieren schaffe. Folgendes hab ich aktuell zusammengeschnipselt (funktioniert aber überhaupt nicht^^):
Public Sub HR_Suchmodul()
Dim Tn As String
Dim i As Integer
Tn = "Sachbezug"
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Tn Then Set WkSh = ThisWorkbook.Worksheets("Sachbezug")
IfNot Worksheets(i).Name Tn Then Set WkSh = Sheets.Add
Next i
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Tn Then Set WkSh = ThisWorkbook.Worksheets("Sachbezug")
IfNot Worksheets(i).Name = Tn Then Set WkSh = Sheets.Add
Next i
'...
EndSub
Dieser Code soll bewirken, dass wenn das Tabellenblatt "Sachbezug" schon vorhanden ist, dann soll wksh als dieses Arbeitsblatt definiert werden. Wenn dieses Arbeitsblatt nicht vorhanden ist, dann soll es neu erstellt werden.