Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
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
Peter
Hallo Excels,
wer kann helfen.
Ich möchte diesen Code irgendwie kürzen.

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox2
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox3
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox4
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox5
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox6
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
End Sub

Danke und Gruss
Peter

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

Betreff
Benutzer
Anzeige
AW: Code kürzen
K.Rola
Hallo,
Option Explicit
Option Base 1

Private Sub UserForm_Initialize()
Dim arr, c As Byte, i As Byte
arr = Array("Stck", "m", "Paar", "Pack", "Satz", "Ltr.", "kg", "Ro", "m²", "m³")
For c = 1 To 6
For i = 1 To 10
Controls("ComboBox" & c).AddItem arr(i)
Next
Next
End Sub

Gruß K.Rola
AW: Code kürzen
Peter
Hi K.Rola
ich verstehe das zwar noch nicht, aber es ist genial.
Besten Dank
Peter
AW: Code kürzen
K.Rola
Hallo,
die äußere Schleife durchläuft die 6 comboboxen.
Die innere Schleife holt sich die Items aus dem Array, fertig.
Gruß K.Rola
AW: Code kürzen
Holger
versuche es mal so:

Private Sub UserForm_Initialize()
Dim box As Control
For Each box In Controls
If Left(box.Name, 8) = "ComboBox" Then
With box
.AddItem "Stck"
End With
End If
Next
End Sub

Holger
Anzeige

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