Hallo,
das Thema ComboBox 1 Wert ausgewählt -> ComboBox 2 Wert automatisch ist gelöst und geschlossen, aber da mein Thema so ähnlich ist, nehme ich Bezug darauf.
Ich habe das Problem, dass ich ich 2 Comboboxen habe, die beide die Worte: Riems, Jena Mariensee beinhalten. Ich möchte das so machen, dass ich nur in der Combobox 1 einen Ort auswähle und dann soll in der Combobox 2 das gleiche Wort erscheinen?
Als Anfänger habe ich davon nur leider keine Ahnung.
Im o.g. Thema steht, dass es 2 Möglichkeiten gibt. Ich habe leider keine der beiden verstanden und würde mich über etwas Hilfe dazu freuen.
Hier der bereits vorhandene Code.
Spoiler anzeigen
Wie ich die 2. Combobox (die nicht mehr ausgewählt werden soll) ausblende / unsichtbar machen kann, das habe ich schon herausgefunden....aber leider nicht, wie ich der Combobox 2 erzähle, dass sie den Wert der Combobox 1 übernehmen soll, sobald da etwas ausgewählt wurde.
Ich danke im Voraus für die Hilfe.
Verlinkung zum erwähnten Thread erstellt und Titel angepasst; Thema verschoben, da Excel ~VaporiZed
Edit:
Auf dieser Seite habe ich die Lösung gefunden: excelbeispiele.de/Datei_031.htm
Das habe ich ans das Ende hinzugefügt. Ich wähle meinen Wert /mein Wort in der 1. ComboBox aus und in der 2. ComboBox erscheint genau der gleiche Wert / das gleiche Wort. So wie ich es haben wollte.
Manchmal ist es leichter als gedacht.
VG
Johanne
das Thema ComboBox 1 Wert ausgewählt -> ComboBox 2 Wert automatisch ist gelöst und geschlossen, aber da mein Thema so ähnlich ist, nehme ich Bezug darauf.
Ich habe das Problem, dass ich ich 2 Comboboxen habe, die beide die Worte: Riems, Jena Mariensee beinhalten. Ich möchte das so machen, dass ich nur in der Combobox 1 einen Ort auswähle und dann soll in der Combobox 2 das gleiche Wort erscheinen?
Als Anfänger habe ich davon nur leider keine Ahnung.
Im o.g. Thema steht, dass es 2 Möglichkeiten gibt. Ich habe leider keine der beiden verstanden und würde mich über etwas Hilfe dazu freuen.
Hier der bereits vorhandene Code.
Visual Basic-Quellcode
- Option Explicit
- Private Sub TextBox_Bezeichnung_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- If Button = 2 Then TextBox_Bezeichnung.Paste 'right button
- End Sub
- Private Sub Button_Eingabe_Click()
- ' Ein paar Hilfsvariablen festlegen
- Dim StandortWahl As String
- Dim Zeile As Long
- Dim LetzteInventarnrStandort As Integer
- Dim AktZeilenwert As String
- Dim AktLfdNr As Integer
- Dim last As Long
- last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
- ' Die Daten in die Liste übernehmen
- ' Als erstes einmal die Eingaben in Variablen ablegen.
- 'Damit ist es gleich leichter auf diese Werte zurückzugreifen
- StandortWahl = ComboBox_Standort1
- ' Prüfen, ob überhaupt schon Daten da sind
- If Sheets("Inventar ab 2021").Range("A1").Value = "" Then
- ' Wenn nicht, dann einfach diesen Eintrag zum ersten machen
- Sheets("Inventar ab 2021").Range("A1").Value = Mid(StandortWahl, 1, 1) & "-" & Format(Now, "YY") & "-0001"
- ' Sub ist in diesen Fall hier zu ende
- Exit Sub
- End If
- 'letzte Nummer des aktuellen Standortes ermitteln
- LetzteInventarnrStandort = 0 ' Variablenwert löschen, sicher ist sicher
- For Zeile = 1 To 30000000
- AktZeilenwert = Sheets("Inventar ab 2021").Range("A" & Zeile).Value
- ' Wenn die aktuelle Zeile leer ist, dann sind alle Datensätze durchlaufen
- If AktZeilenwert = "" Then
- Exit For
- End If
- ' Prüfen, ob das erste Zeichen der vorhandenen Inventarnr. dem des ersten Zeichens von dem gewählten Standort entspricht
- If Mid(AktZeilenwert, 1, 1) = Mid(StandortWahl, 1, 1) Then
- ' Aber erst einmal prüfen, ob das Jahr das heutige Jahr ist
- If Mid(AktZeilenwert, 3, 2) = Format(Now, "YY") Then
- ' Wenn ja, die Nr. sich merken bzw. prüfen, ob diese größer als die letzte gemerkte ist
- AktLfdNr = Mid(AktZeilenwert, 6, 4)
- If AktLfdNr > LetzteInventarnrStandort Then
- LetzteInventarnrStandort = AktLfdNr
- End If
- End If
- End If
- Next Zeile
- ' Wenn für diesen Standort noch nichts vorhanden ist, dann bei 1 anfangen
- ' Da aber die Variable in der nächsten Zeile eh automatisch um 1 erhöht wird, kann hier ruhig LetzteInventarnrStandort = 0 sein
- ' jetzt die Daten eintragen
- 'Standort 1 auswählen
- Sheets("Inventar ab 2021").Range("A" & Zeile).Value = Mid(StandortWahl, 1, 1) & "-" & Format(Now, "YY") & "-" & Format(LetzteInventarnrStandort + 1, "0000")
- 'Inventarnummer
- 'Cells(last, 1).Value = TextBox_Inventarnummer
- 'Bezeichnung
- Cells(last, 2).Value = TextBox_Bezeichnung
- 'BezeichnungZusatz
- Cells(last, 3).Value = TextBox_BezeichnungZusatz
- 'Invertarrubrik
- Cells(last, 4).Value = ComboBox_Inventarrubrik
- 'Auftragsnummer
- Cells(last, 5).Value = TextBox_Auftragsnummer
- 'KostenBrutto
- Cells(last, 6).Value = TextBox_KostenBrutto
- 'Lieferdatum
- Cells(last, 7).Value = TextBox_Lieferdatum
- 'Seriennummer
- Cells(last, 8).Value = TextBox_Seriennummer
- 'Bundnummer / Inventarnummer ALT
- Cells(last, 9).Value = TextBox_Bundnummer
- 'Hersteller
- Cells(last, 10).Value = TextBox_Hersteller
- 'Lieferant
- Cells(last, 11).Value = TextBox_Lieferant
- 'Rechnungsnummer
- Cells(last, 12).Value = TextBox_Rechnungsnummer
- 'Bemerkung
- Cells(last, 13).Value = TextBox_Bemerkung
- 'Verwaltungskontenrahmen
- Cells(last, 14).Value = TextBox_Verwaltungskontenrahmen
- 'Organisationseinheit
- Cells(last, 15).Value = TextBox_Organisationseinheit
- 'Nutzer
- Cells(last, 16).Value = TextBox_Nutzer
- 'Standort 2
- Cells(last, 17).Value = ComboBox_Standort2
- 'GebäudeNr
- Cells(last, 18).Value = TextBox_GebäudeNr
- 'Etage
- Cells(last, 19).Value = TextBox_Etage
- 'RaumNr
- Cells(last, 20).Value = TextBox_RaumNr
- MsgBox "Eingabe Erfolgreich"
- End Sub
- Private Sub Button_KalenderStarten_Click()
- 'Kalender_Maske starten
- Kalender_Maske.Show
- End Sub
- Private Sub ComboBox_Standort1_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Standort1.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Standort1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Standort1.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bezeichnung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bezeichnung.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bezeichnung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bezeichnung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_BezeichnungZusatz_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_BezeichnungZusatz.BackColor = vbYellow
- End Sub
- Private Sub TextBox_BezeichnungZusatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_BezeichnungZusatz.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Inventarrubrik_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Inventarrubrik.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Inventarrubrik_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Inventarrubrik.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Auftragsnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Auftragsnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Auftragsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Auftragsnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_KostenBrutto_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_KostenBrutto.BackColor = vbYellow
- End Sub
- Private Sub TextBox_KostenBrutto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_KostenBrutto.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Lieferdatum_Enter()
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum.Value = ""
- End Sub
- Private Sub TextBox_Lieferdatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum.Value = ""
- End Sub
- Private Sub TextBox_Seriennummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Seriennummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Seriennummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Seriennummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bundnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bundnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bundnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bundnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Hersteller_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Hersteller.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Hersteller_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Hersteller.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Lieferant_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Lieferant.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Lieferant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Lieferant.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Rechnungsnummer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Rechnungsnummer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Rechnungsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Rechnungsnummer.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Bemerkung_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Bemerkung.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Bemerkung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Bemerkung.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Verwaltungskontenrahmen_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Verwaltungskontenrahmen.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Verwaltungskontenrahmen_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Verwaltungskontenrahmen.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Organisationseinheit_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Organisationseinheit.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Organisationseinheit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Organisationseinheit.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Nutzer_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Nutzer.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Nutzer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Nutzer.BackColor = vbWhite
- End Sub
- Private Sub ComboBox_Standort2_Enter()
- 'aktivierte Zelle gelb färben
- ComboBox_Standort2.BackColor = vbYellow
- End Sub
- Private Sub ComboBox_Standort2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- ComboBox_Standort2.BackColor = vbWhite
- End Sub
- Private Sub TextBox_GebäudeNr_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_GebäudeNr.BackColor = vbYellow
- End Sub
- Private Sub TextBox_GebäudeNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_GebäudeNr.BackColor = vbWhite
- End Sub
- Private Sub TextBox_Etage_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_Etage.BackColor = vbYellow
- End Sub
- Private Sub TextBox_Etage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_Etage.BackColor = vbWhite
- End Sub
- Private Sub TextBox_RaumNr_Enter()
- 'aktivierte Zelle gelb färben
- TextBox_RaumNr.BackColor = vbYellow
- End Sub
- Private Sub TextBox_RaumNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'deaktivierte Zelle weiß färben
- TextBox_RaumNr.BackColor = vbWhite
- End Sub
- Private Sub UserForm_Initialize()
- 'Standort 1
- ComboBox_Standort1 = ""
- With ComboBox_Standort1
- .AddItem "Riems"
- .AddItem "Jena"
- .AddItem "Mariensee"
- End With
- 'Bezeichnung
- TextBox_Bezeichnung.Text = ""
- 'BezeichnungZusatz
- TextBox_BezeichnungZusatz.Text = ""
- 'Invertarrubrik
- ComboBox_Inventarrubrik = ""
- With ComboBox_Inventarrubrik
- .AddItem "Bedampfungsanlage"
- .AddItem "Brutschränke/Brutgeräte"
- .AddItem "Bunsenbrenner"
- .AddItem "Büroeinrichtung"
- .AddItem "Bürotechnik"
- .AddItem "Cycler/PCR-Systeme"
- .AddItem "Datenverarbeitung"
- .AddItem "Dosierkleingeräte"
- .AddItem "Druckminderer"
- .AddItem "Durchflusszytometer"
- .AddItem "Entsorgung"
- .AddItem "Erste-Hilfe"
- .AddItem "Fahrzeuge"
- .AddItem "Filtrationsgeräte"
- .AddItem "Fischhälterung"
- .AddItem "Folienschweißgeräte"
- .AddItem "Fotografiegeräte+Zubehör"
- .AddItem "Gelauswertesystem"
- .AddItem "Gelgeräte"
- .AddItem "Histologie"
- .AddItem "Küchengeräte"
- .AddItem "Küchenzeile"
- .AddItem "Laborhandgeräte"
- .AddItem "Labormöbel"
- .AddItem "Laborreinigungsgeräte"
- .AddItem "Lagerregale"
- .AddItem "Leitern"
- .AddItem "Messgeräte Labor"
- .AddItem "Messgeräte allgemein"
- .AddItem "Mikroskope"
- .AddItem "Photometer/ELISA-Reader"
- .AddItem "Pipetten"
- .AddItem "Pipettierhilfen"
- .AddItem "Pipettierroboter"
- .AddItem "Präsentationsgegenstände"
- .AddItem "Reinig.-u. Desinfektionsautomat"
- .AddItem "Reinstwasseranlage/Ionenaust."
- .AddItem "Rührgeräte"
- .AddItem "Schüttelgeräte"
- .AddItem "Separator"
- .AddItem "Sequenzierungssysteme"
- .AddItem "Sicherheitswerkbänke"
- .AddItem "Sonstiges"
- .AddItem "Sterilisator/Autoklav"
- .AddItem "Strahlenschutz"
- .AddItem "Stromversorgungsgeräte"
- .AddItem "Telekommunikation"
- .AddItem "Thermomixer+Wechselblöcke"
- .AddItem "Tiefkühlmöbel+Zubehör"
- .AddItem "Tierhaltung"
- .AddItem "Transportgeräte"
- .AddItem "Ultraschallgeräte"
- .AddItem "Vakuumpumpen/Kompressor"
- .AddItem "Wasserbad/Thermostate"
- .AddItem "Weidezaunanlage"
- .AddItem "Werkstattausstattung"
- .AddItem "Wohnmöbel"
- .AddItem "Wäscherei"
- .AddItem "Zellaufschlussgeräte"
- .AddItem "Zentrifugen+Rotore"
- .AddItem "allg. Reinigungsgeräte"
- .AddItem "sonst. Heiz-, Wärme-, Kältegeräte"
- End With
- 'Auftragsnummer
- TextBox_Auftragsnummer.Text = ""
- 'KostenBrutto
- TextBox_KostenBrutto.Text = ""
- 'Lieferdatum
- Inventar_Eingabe_Maske.TextBox_Lieferdatum.Text = ""
- 'Seriennummer
- TextBox_Seriennummer.Text = ""
- 'Bundnummer / Inventarnummer ALT
- TextBox_Bundnummer.Text = ""
- 'Hersteller
- TextBox_Hersteller.Text = ""
- 'Lieferant
- TextBox_Lieferant.Text = ""
- 'Rechnungsnummer
- TextBox_Rechnungsnummer.Text = ""
- 'Bemerkung
- TextBox_Bemerkung.Text = ""
- 'Verwaltungskontenrahmen
- TextBox_Verwaltungskontenrahmen.Text = ""
- 'Organisationseinheit
- TextBox_Organisationseinheit.Text = ""
- 'Nutzer
- TextBox_Nutzer.Text = ""
- 'Standort 2
- ComboBox_Standort2 = ""
- With ComboBox_Standort2
- .AddItem "Riems"
- .AddItem "Jena"
- .AddItem "Mariensee"
- End With
- 'GebäudeNr
- TextBox_GebäudeNr.Text = ""
- 'Etage
- TextBox_Etage.Text = ""
- 'RaumNr
- TextBox_RaumNr.Text = ""
- End Sub
- Private Sub Button_Schließen_Click()
- 'Markierung löschen
- Worksheets("Inventar ab 2021").UsedRange.Interior.Color = RGB(255, 255, 255)
- 'Eingabefenster schließen
- Unload Inventar_Eingabe_Maske
- 'TextBox_Lieferdatum leeren
- TextBox_Lieferdatum.Value = ""
- End Sub
Wie ich die 2. Combobox (die nicht mehr ausgewählt werden soll) ausblende / unsichtbar machen kann, das habe ich schon herausgefunden....aber leider nicht, wie ich der Combobox 2 erzähle, dass sie den Wert der Combobox 1 übernehmen soll, sobald da etwas ausgewählt wurde.
Ich danke im Voraus für die Hilfe.
Verlinkung zum erwähnten Thread erstellt und Titel angepasst; Thema verschoben, da Excel ~VaporiZed
Edit:
Auf dieser Seite habe ich die Lösung gefunden: excelbeispiele.de/Datei_031.htm
Das habe ich ans das Ende hinzugefügt. Ich wähle meinen Wert /mein Wort in der 1. ComboBox aus und in der 2. ComboBox erscheint genau der gleiche Wert / das gleiche Wort. So wie ich es haben wollte.
Manchmal ist es leichter als gedacht.
VG
Johanne
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Johanne“ ()