Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code kürzen

Code kürzen
01.02.2016 13:46:51
Patrick
Hallo zusammen,
ich schreibe momentan einen Konfigurator und wollte mal fragen ob sich der folgende Code irgendwie kürzen lässt. Vielleicht mit einer Schleife oder so?!
Vielen Dank schonmal!
With cx_amu1_option_1
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With
With cx_amu1_option_2
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With
With cx_amu1_option_3
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With
With cx_amu1_option_4
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With
With cx_amu1_option_5
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code kürzen
01.02.2016 13:56:27
otto
Hi,
wenn es die einzigen Cpmboboxen der UF sind, dann z.B.:
Dim cb as Object
For Each cb in Userform1.Controls
If Typename(cb) = "ComboBox" Then
cb.Additem 'dein text
End If
Next
otto

AW: Code kürzen
01.02.2016 13:56:31
Daniel
Hi
wenn in den cx_amu1_option_? die selben werte stehen dann so
With cx_amu1_option_1
.AddItem ""
.AddItem va_amu1_rel
.AddItem va_amu1_siko
.AddItem va_amu1_ht
.AddItem va_amu1_blhp
.AddItem va_amu1_open
.AddItem va_amu1_mh
.AddItem va_amu1_ths
End With
cx_amu1_option_2.List = cx_amu1_option_1.List
cx_amu1_option_3.List = cx_amu1_option_1.List
cx_amu1_option_4.List = cx_amu1_option_1.List
cx_amu1_option_5.List = cx_amu1_option_1.List
Gruß Daniel

Anzeige
AW: Code kürzen
01.02.2016 13:57:23
ChrisL
Hi Partick
Hier eine Variante:
Private Sub UserForm_Initialize()
Call FillCB(ComboBox1)
Call FillCB(ComboBox2)
Call FillCB(ComboBox3)
Call FillCB(ComboBox4)
Call FillCB(ComboBox5)
End Sub


Private Sub FillCB(cb As ComboBox)
With cb
.AddItem ""
.AddItem "x"
.AddItem "y"
End With
End Sub

Oder so...
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 5
Call FillCB(Controls("ComboBox" & i))
Next i
End Sub


Private Sub FillCB(cb As ComboBox)
With cb
.AddItem ""
.AddItem "x"
.AddItem "y"
End With
End Sub

cu
Chris

Anzeige
AW: Code kürzen
01.02.2016 14:13:49
Patrick
Vielen Dank für die schnellen Antworten, die Methode von Daniel gefällt mir glaube ich am besten :)

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige