Neu eingefügtes Sheet aktivieren
Verfasst: Mo, 23.11.2015 15:45
Hallo
mit folg. Code wird geprüft, ob es ein Sheet mit einem bestimmten Namen, dieses wird, wenn es schon vorhanden ist gelöscht und an erster Pos. neu eingefügt. Am Ende ist immer das 2. Sheet aktiv. Wie kann ich das erste = neu eingefügtes Sheet aktivieren.
Danke Klaus
mit folg. Code wird geprüft, ob es ein Sheet mit einem bestimmten Namen, dieses wird, wenn es schon vorhanden ist gelöscht und an erster Pos. neu eingefügt. Am Ende ist immer das 2. Sheet aktiv. Wie kann ich das erste = neu eingefügtes Sheet aktivieren.
Code: Alles auswählen
Sub BlattInhVerzNeuErstellen
Dim calcDoc as Object
Dim strInh as String
strInh="alle Projekte"
calcDoc=thisComponent
'--Falls das Blatt Inhaltsverzeichnis vorhanden ist, löschen ansonsten anlegen
If calcDoc.Sheets.hasByName(strInh) = true Then
MsgBox ("Das Blatt """+strInh+""" ist vorhanden"+chr(13)+ _
"und wird gelöscht und neu erstellt!",0,strTitel)
calcDoc.Sheets.RemoveByName(strInh)
End If
calcDoc.Sheets.InsertNewByName(strInh,0)
end sub
