Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

User-Form ComboBoxen füllen ohne Änderung

Forumthread: User-Form ComboBoxen füllen ohne Änderung

User-Form ComboBoxen füllen ohne Änderung
01.09.2004 17:36:26
Petro
Hallo,
habe folgendes Problem:
in einer Userform habe ich 9 ComboBoxen,
die erste ist zum wählen einer Gruppe die dann den zu wählenden Inhalt der 8 anderen bestimmt, solange aber in der ersten nichts gewählt ist bleiben die 8 anderen mit dem Wert der bereits im Arbeitsblatt vorhanden ist gefüllt und sollte erst nach Änderung der jeweiligen Box NUR in dem Feld des Arbeitsblattes geändert werden Folgender Code:

Private Sub UserForm_Initialize()
Sheets("Spieler").Select
Range("A4:F558").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
SPTag = Sheets("DKB").Cells(1, 53).Value
temp_verein = ""
izeile = 0
iRowL = Sheets("Spieler").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Spieler")
For iRow = 4 To iRowL
If Not IsEmpty(.Cells(iRow, 1)) And .Cells(iRow, 1).Value <> temp_verein Then
temp_verein = .Cells(iRow, 1).Value
CB_Verein.AddItem .Cells(iRow, 1).Value
izeile = izeile + 1
End If
Next iRow
End With
CB_Sp1.Value = Sheets(SPTag).Range("B60").Value
CB_Sp2.Value = Sheets(SPTag).Range("B65").Value
CB_Sp3.Value = Sheets(SPTag).Range("B70").Value
CB_Sp4.Value = Sheets(SPTag).Range("B75").Value
CB_Sp5.Value = Sheets(SPTag).Range("B80").Value
CB_Sp6.Value = Sheets(SPTag).Range("B85").Value
CB_Sp7.Value = Sheets(SPTag).Range("B90").Value
CB_Sp8.Value = Sheets(SPTag).Range("B95").Value
End Sub



Private Sub CB_Verein_Change()
Verein_wahl = CB_Verein.Value
izeile = 0
CB_Sp1.ColumnCount = 3
CB_Sp1.ColumnWidths = "100"
CB_Sp2.ColumnCount = 3
CB_Sp2.ColumnWidths = "100"
CB_Sp3.ColumnCount = 3
CB_Sp3.ColumnWidths = "100"
CB_Sp4.ColumnCount = 3
CB_Sp4.ColumnWidths = "100"
CB_Sp5.ColumnCount = 3
CB_Sp5.ColumnWidths = "100"
CB_Sp6.ColumnCount = 3
CB_Sp6.ColumnWidths = "100"
CB_Sp7.ColumnCount = 3
CB_Sp7.ColumnWidths = "100"
CB_Sp8.ColumnCount = 3
CB_Sp8.ColumnWidths = "100"
iRowL = Sheets("Spieler").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Spieler")
For iRow = 4 To iRowL
If Not IsEmpty(.Cells(iRow, 4)) And .Cells(iRow, 1).Value = Verein_wahl Then
CB_Sp1.AddItem .Cells(iRow, 4).Value
CB_Sp1.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp1.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp2.AddItem .Cells(iRow, 4).Value
CB_Sp2.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp2.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp3.AddItem .Cells(iRow, 4).Value
CB_Sp3.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp3.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp4.AddItem .Cells(iRow, 4).Value
CB_Sp4.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp4.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp5.AddItem .Cells(iRow, 4).Value
CB_Sp5.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp5.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp6.AddItem .Cells(iRow, 4).Value
CB_Sp6.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp6.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp7.AddItem .Cells(iRow, 4).Value
CB_Sp7.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp7.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
CB_Sp8.AddItem .Cells(iRow, 4).Value
CB_Sp8.List(izeile, 1) = .Cells(iRow, 2) ' zweite Spalte
CB_Sp8.List(izeile, 2) = .Cells(iRow, 3) ' dritte Spalte (nicht sichtbar)
izeile = izeile + 1
End If
Next iRow
End With
CB_Sp1.AddItem ""
CB_Sp1.List(izeile, 1) = ""
CB_Sp1.List(izeile, 2) = ""
CB_Sp2.AddItem ""
CB_Sp2.List(izeile, 1) = ""
CB_Sp2.List(izeile, 2) = ""
CB_Sp2.AddItem ""
CB_Sp2.List(izeile, 1) = ""
CB_Sp2.List(izeile, 2) = ""
CB_Sp3.AddItem ""
CB_Sp3.List(izeile, 1) = ""
CB_Sp3.List(izeile, 2) = ""
CB_Sp4.AddItem ""
CB_Sp4.List(izeile, 1) = ""
CB_Sp4.List(izeile, 2) = ""
CB_Sp5.AddItem ""
CB_Sp5.List(izeile, 1) = ""
CB_Sp5.List(izeile, 2) = ""
CB_Sp6.AddItem ""
CB_Sp6.List(izeile, 1) = ""
CB_Sp6.List(izeile, 2) = ""
CB_Sp7.AddItem ""
CB_Sp7.List(izeile, 1) = ""
CB_Sp7.List(izeile, 2) = ""
CB_Sp8.AddItem ""
CB_Sp8.List(izeile, 1) = ""
CB_Sp8.List(izeile, 2) = ""
Sheets(SPTag).Select
End Sub



Private Sub CB_Sp1_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B60").Value = CB_Sp1.List(CB_Sp1.ListIndex, 0)
Sheets(SPTag).Range("I60").Value = CB_Sp1.List(CB_Sp1.ListIndex, 1)
Sheets(SPTag).Range("H60").Value = CB_Sp1.List(CB_Sp1.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp2_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B65").Value = CB_Sp2.List(CB_Sp2.ListIndex, 0)
Sheets(SPTag).Range("I65").Value = CB_Sp2.List(CB_Sp2.ListIndex, 1)
Sheets(SPTag).Range("H65").Value = CB_Sp2.List(CB_Sp2.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp3_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B70").Value = CB_Sp3.List(CB_Sp3.ListIndex, 0)
Sheets(SPTag).Range("I70").Value = CB_Sp3.List(CB_Sp3.ListIndex, 1)
Sheets(SPTag).Range("H70").Value = CB_Sp3.List(CB_Sp3.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp4_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B75").Value = CB_Sp4.List(CB_Sp4.ListIndex, 0)
Sheets(SPTag).Range("I75").Value = CB_Sp4.List(CB_Sp4.ListIndex, 1)
Sheets(SPTag).Range("H75").Value = CB_Sp4.List(CB_Sp4.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp5_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B80").Value = CB_Sp5.List(CB_Sp5.ListIndex, 0)
Sheets(SPTag).Range("I80").Value = CB_Sp5.List(CB_Sp5.ListIndex, 1)
Sheets(SPTag).Range("H80").Value = CB_Sp5.List(CB_Sp5.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp6_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B85").Value = CB_Sp6.List(CB_Sp6.ListIndex, 0)
Sheets(SPTag).Range("I85").Value = CB_Sp6.List(CB_Sp6.ListIndex, 1)
Sheets(SPTag).Range("H85").Value = CB_Sp6.List(CB_Sp6.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp7_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B90").Value = CB_Sp7.List(CB_Sp7.ListIndex, 0)
Sheets(SPTag).Range("I90").Value = CB_Sp7.List(CB_Sp7.ListIndex, 1)
Sheets(SPTag).Range("H90").Value = CB_Sp7.List(CB_Sp7.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub CB_Sp8_Change()
SPTag = Sheets("DKB").Cells(1, 53).Value
Sheets(SPTag).Range("B95").Value = CB_Sp8.List(CB_Sp8.ListIndex, 0)
Sheets(SPTag).Range("I95").Value = CB_Sp8.List(CB_Sp8.ListIndex, 1)
Sheets(SPTag).Range("H95").Value = CB_Sp8.List(CB_Sp8.ListIndex, 2)
ActiveWorkbook.Save
End Sub



Private Sub OKBut_Click()
Unload Me
End Sub

Habe nun aber das Problem das das füllen mit den Standardwerten als Änderung des Feldes erkannt wird und somit die Routine :" 

Private Sub CB_Sp)1-8)_Change()"
in Aktion tritt und meine Werte überschreibt,
Diese Routinen "


Private Sub CB_Sp(1-8)_Change()" sollten aber nur aktiv werden wenn wirklich die ComboBox geändert wird (manuell).
Hat hierzu jemand eine Lösung ?
Danke
Peter
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: User-Form ComboBoxen füllen ohne Änderung
Petro
Danke,
hat sich erledigt.
Habe mal wieder zu umständlich gedacht, mit
Private Sub CB_Sp(1-8)_Click()"
geht's.
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Comboboxen wie Autofilter
Klaus

Hallo zusammen
Ich habe eine Userform mit mehreren Comboboxen. Nun sollen in der ersten Combobox die Werte aus Tabelle1 A:A ohne Duplikate ausgelesen werden und nach einer Auswahl der Autofilter in Spalte A gesetzt werden. in der zweiten Combobox sollen dann die Werte aus Tabelle1 B:B ausge...
31.10.2008 09:39:00
Thread-ID: 1020780
2 Beiträge
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Comboboxen Spalten Anzahl
gp

Hallo Zusammen,
ist die Anzahl der Spalten von ComboBoxen begrenzt?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
26.01.2009 11:08:00
Thread-ID: 1043791
5 Beiträge
48 Comboboxen mit einem Code formatieren?
Ann-Katrin

Hi,
ich möchte allen Comboboxen innerhalb einer UF das Stundenformat
"hh:mm" zuweisen.
Bislang habe ich die Boxen einzeln angesprochen.
Private Sub ComboBox1_Change() ComboBox1 = Format(ComboBox1, "hh:mm") End Sub
Da sich in der UF 48 Comboboxen befinden, möchte ich Frage...
08.02.2009 18:07:00
Thread-ID: 1048395
17 Beiträge
zwei comboboxen auslesen
Dee

Hi Ihr,
Ich habe zwei Kategorien mit ComboBoxen (Deutschland, Amerika), welche bei unregelmäßige Nummer tragen
Deutschland (ComboBox 2/6/7/10/13)
Amerika (ComboBox 5/8/9/11/12)
Beide können jeweils mit yes und no belegt sein. Ich möchte mir jetzt die einzelnen Fälle in einem Te...
22.04.2009 19:14:52
Thread-ID: 1070463
8 Beiträge
Comboboxen Kuriositäten
Volti

Hallo zusammen,
habe schwere Probleme mit den Comboboxen aus der Toolbox, die wie mir scheint, nach jedem Update immer schlimmer werden.
1. Resizingprobleme: Es kommt verstärkt vor, dass der angezeigte Inhalt im Auswahlfeld nach Verlassen der Seite (z.B. kurzzeitig anderes Programm wie...
02.06.2009 10:45:10
Thread-ID: 1078566
3 Beiträge
Comboboxen formatieren
Ludicla

Hey Profis,
wie müßte ein Code aussehen der mehrere Comboboxen formatiert?
ich hab an die 100 Stück - sicher es geht auch einzelen
ich schaff keinen einfachen Code und mach alles einzeln.
Gruss Ludicla.
04.06.2009 14:58:16
Thread-ID: 1079162
7 Beiträge
Comboboxen für abhängige Auswahlen?
Claudia

Liebes Forum,
ich habe eine Tabelle mit drei Spalten. Die darin enthaltenen Infos werden von Spalte 1 zu 3 immer feiner. Z.B. steht in Spalte 1 "Wilde Tiere" und "Zahme Tiere". In Spalte 2 dann die jeweils zugehörigen Einträge "Tiger" (natürlich Wilde Tiere) und "Hase" (Zahme Tiere). Und in...
19.06.2009 09:53:10
Thread-ID: 1082797
6 Beiträge
Auswahl bei Comboboxen
Quantum

Hallo,
da ich zu viele Daten habe, würde ich gerne mit einer zusätzlichen Combobox die Auswahl in der anderen Combobox beschränken auf Daten aus einen bestimmten Bereich.
In der ersten Spalte, ab der 4 Zelle steht die Gruppenzugehörigkeit, wenn ich in der Combobox4 die Gruppe wähle, w...
22.06.2009 09:16:16
Thread-ID: 1083369
19 Beiträge
Tabelle mit 2 Comboboxen auslesen
Chris

Hallo,
ich würde gerne einen Wert aus einer Tabelle mit Hilfe von 2 Comboboxen auslesen um ihn dann weiter zu verwenden. Vom Prinzip her, hab ich eine Box für die Zeile und eine für die Spalte. Nur hab ich keinen Plan wie ich am besten daraus die EINE Variable mache.
Mir würden ein paar...
24.06.2009 09:41:28
Thread-ID: 1083992
3 Beiträge
Gleiche Ereignisse für alle UF-Comboboxen
Martin

Hallo liebe Excel-Gemeinde,
ich verwende für alle Comboboxen und Textboxen in einer UserForm den gleichen Code für das "Enter" und das "Exit"-Ereignis:
Private Sub ComboBox36_Enter() ComboBox36.BackColor = &H80FFFF ComboBox36.BorderStyle = fmBorderStyleSingle End Sub
Privat...
02.07.2009 13:29:56
Thread-ID: 1085947
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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