Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ComboBox ListFilRange Eintrag ändern

ComboBox ListFilRange Eintrag ändern
06.08.2020 07:33:06
Hans
Hallo,
ich bräuchte ein Makro das bei allen ComboBoxen (können bis zu 32 Stück verschiedene sein) in einem Tabellenblatt den "ListFilRange" Eintrag wie folgt ändert:
'G:\1\1\Kalkulationsdaten.xls'!.....
die ….. , stehen für die verschiedenen ComboBox-Namen
Gruß Hans
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox ListFilRange Eintrag ändern
06.08.2020 22:10:10
Mullit
Hallo,
probier mal, gehe jetzt mal von ActiveX-Boxen aus:
Option Explicit
Public Sub test()
Const STRING_REPLACEMENT As String = "'G:\1\1\Kalkulationsdaten.xls'!"
Dim objOLEObject As OLEObject
For Each objOLEObject In ActiveSheet.OLEObjects
With objOLEObject
If .progID = "Forms.ComboBox.1" Then _
.ListFillRange = Replace$(Expression:=.ListFillRange, Find:=Left$(String:=. _
ListFillRange, _
Length:=InStr(.ListFillRange, "!")), Replace:=STRING_REPLACEMENT)
End With
Next
End Sub

Gruß, Mullit
Anzeige
AW: ComboBox ListFilRange Eintrag ändern
06.08.2020 22:32:46
Mullit
Hallo,
gleich nochmal ne Formularvariante hinterher ;-):
Option Explicit
Public Sub test()
Const STRING_REPLACEMENT As String = "'G:\1\1\Kalkulationsdaten.xls'!"
Dim objDropDown As Excel.DropDown
For Each objDropDown In ActiveSheet.DropDowns
With objDropDown
.ListFillRange = Replace$(Expression:=.ListFillRange, Find:=Left$(String:=. _
ListFillRange, _
Length:=InStr(.ListFillRange, "!")), Replace:=STRING_REPLACEMENT)
End With
Next
End Sub

Gruß, Mullit
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige