Name eines erzeugten Steuerelements ermitteln?
02.09.2016 19:15:15
Kasimir
Ich habe da eine kleine Frage. Mit nachfolgendem VBA-Code erzeuge ich in einer UserForm ein Spreadsheet-Steuerelement.
Private Sub UserForm_Initialize()
Dim objspreadsheet As OWC11.Spreadsheet
Standardtexte.Range("B1:BH7").Copy
Set objspreadsheet = Me.Frame1.Controls.Add("OWC11.Spreadsheet", "Spreadsheet1", True)
With objspreadsheet
.Height = 188.25
.Left = 6
.Top = 12
.Width = 642
.DisplayToolbar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.Range("A1:BG7").Paste
.Columns("A:BG").EntireColumn.AutoFit
.Range("A1").Select
.Rows("1:8").RowHeight = 20
.Rows("9:262144").RowHeight = 0.1
.Columns("BH:ZZZ").ColumnWidth = 0.1
.Range("C1:BH8").Locked = False
.Worksheets("Tabelle1").Protect
End With
Set objspreadsheet = Nothing
End Sub
Diese Anwendung versucht, ActiveX-Steuerelemente zu initialisieren, die unsicher sein können. Wenn Sie der Quelle der Datei vertrauen, wählen Sie "OK" und die Steuerelemente werden mit Ihren aktuellen Arbeitsbereichseinstellungen initialisiert.
erhalte. Wenn ich das Spreadsheet erst erstelle, wenn ich die UserForm aufrufe, kommt die Meldung nicht. Ist zwar eine Krücke, funktioniert aber.
Nun möchte ich in der UserForm aber auf das Spreadsheet zugreifen, z.B. mit einem Button Daten aus dem Spreadsheet in eine Tabelle übertagen, weiß aber nicht wie, weil ich den Namen des Spreadsheets nicht kenne. Kann mir jemand sagen, wie ich das Steuerelement ansprechen muss.
Danke Euch schon mal für die Hilfe,
Kasimir
Anzeige