ich bitte um Hilfe bei einer Userform. Folgendes habe ich:
Beim Initialisieren der Userform werden 3 Listenboxen mit Informationen gefüllt ähnlich wie diese:
Sub Fill_PlanList()
Dim i As Integer
Dim strSelector As String
frm_ShapeTool.ShapeList_Plan.Clear
strSelector = "FS-"
For i = 1 To ActiveSheet.Shapes.Count
If Left(ActiveSheet.Shapes(i).Name, 3) = strSelector Then
frm_ShapeTool.ShapeList_Plan.AddItem ActiveSheet.Shapes(i).Name
End If
Next i
End Sub
Funktioniert Klasse. Der Benutzer kann nun in einem der Listenfelder ein Objekt auswählen und mit besonderen Funktionen weiterbearbeiten.
Was ich erreichen möchte:
Beim Öffenen möchte ich per VBA den Focus auf die Liste "ShapeList_Plan" und in dieser Liste auf ein bestimmtes Shape, dessen Name ich kenne ("FS-TrigramSquare"), lenken. Wie aktiviere ich dieses Shape, damit der Benutzer sofort ohne Anwahl beginnen kann zu arbeiten? Kann man einen Abbruch des Makros verhindern, wenn das erwartete Objekt nicht vorhanden ist?
Danke
Michael Rapp