Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Objekt mittels String referenzieren

Objekt mittels String referenzieren
07.08.2020 09:22:16
thisisholy
Hallo zusammen,
ziel ist es ein Sub zu haben auf das verscheidene Comboboxen zugreifen sobald ich diese mit Enter aktiviere.
Dieses Sub soll die Comboboxen variabel mit Inhalt füllen.
Ich rufe das Sub bei Enter in die Combobox auf und übergebe ActiveControl. Am Ende des Sub bei ActiveControl.List kommt die Meldung "Objekt erforderlich". Kann ich die Combobox mittels des übergeben Strings irgendwie referenzieren?
Nachfolgend der aktuelle Code:

Private Sub cmbProdukt_Enter()
Call cmbEinlesen(ActiveControl.Name)
End Sub

Sub cmbEinlesen(ActiveControl)
Dim wb As Workbook
Dim ws As Worksheet
Dim i, spalte As Integer
Dim ziel As ComboBox
Set wb = ActiveWorkbook
Set ws = Sheets("DropDownMenue")
Me.Controls(ActiveControl).Enabled = True
MsgBox ActiveControl
If ActiveControl = "cmbProdukt" Then spalte = 1
With ws
i = 2
Do Until .Cells(i, spalte) = ""
i = i + 1
Loop
i = i - 1
ActiveControl.List = .Range(.Cells(2, spalte), .Cells(i, spalte)).Value
End With
Set wb = Nothing
Set ws = Nothing
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Objekt mittels String referenzieren
07.08.2020 09:26:33
Rudi
Hallo,
me.controls(activecontrol).list = ...
Warum über den Namen und nicht gleich als Objekt?
Gruß
Rudi
AW: Objekt mittels String referenzieren
07.08.2020 09:31:21
thisisholy
Besten Dank Rudi, es funktioniert!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige