Anzeige
Archiv - Navigation
724to728
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
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Eine Auswahl abhängig von einer Zelle
27.01.2006 13:28:44
einer
Hallo,
Man stelle sich eine Liste mit mehreren Spalten vor, die erste spalte enthält Länder, die zweite enthält Postleitzahlen (natürlich viele PLZ für ein Land).
auf einer anderen Seite will ich auf diese Liste zugreifen. Man soll sich direkt die Daten einer Region herholen können. Zuerst soll in einer Spalte das Land ausgewählt werden, in der Spalte daneben soll die Postleitzahl angegeben werden (es sollten dann nur noch die PLZ zur Verfügung stehen, die in diesem Land vorkommen)...und dann sollen die Daten der Region auftauchen (gezogen aus der ganz oben beschriebenen Liste).
Ich habe schon verschiedene Entwürfe mit Gültigkeit und SVerweis, aber wie bekomme ich es hin, das im zweiten Feld dann nur noch die in Frage kommenden PLZ auftauchen. (also abhängig vom Land das man ausgewählt hat).
lg / nic

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine Auswahl abhängig von einer Zelle
27.01.2006 13:49:51
einer
https://www.herber.de/bbs/user/30439.xls
Hallo
Ein Beispiel im Anhang.
Gruss
Chris

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
ComboBox2.Enabled = True
Dim iZeile As Long
ComboBox2.Clear
For iZeile = 2 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) = ComboBox1 Then ComboBox2.AddItem Cells(iZeile, 2)
Next iZeile
Else
ComboBox2.Clear
ComboBox2.Enabled = False
End If
End Sub


Private Sub UserForm_Initialize()
Dim iZeile As Long, iiZeile As Long
Dim Vorhanden As Boolean
For iZeile = 2 To Range("A65536").End(xlUp).Row
Vorhanden = False
For iiZeile = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(iiZeile) = Cells(iZeile, 1) Then
Vorhanden = True
Exit For
End If
Next iiZeile
If Vorhanden = False Then ComboBox1.AddItem Cells(iZeile, 1)
Next iZeile
End Sub

Anzeige
AW: Eine Auswahl abhängig von einer Zelle
27.01.2006 15:21:13
einer
Hallo Chris,
danke für die schnelle und brauchbare Antwort. Aber wie kann ich dann den Wert der ComboBox2 in eine Zelle kopieren? evtl. mit einem weiteren Button?
AW: Eine Auswahl abhängig von einer Zelle
27.01.2006 15:50:05
einer
Hallo
Ja, ein Button wäre nicht schlecht.
Worksheets("Tabelle1").Range("A1") = ComboBox2
Gruss
Chris
AW: Eine Auswahl abhängig von einer Zelle
30.01.2006 07:44:28
einer
Vielen Dank, das funktioniert alles prima.
eine kleine Frage hätt ich noch: Was muss ich ändern wenn der Inhalt der Comboboxen in der der Userform nicht von den ersten zwei Spalten abhängen soll, sondern von anderen?
AW: Eine Auswahl abhängig von einer Zelle
30.01.2006 13:14:33
einer
Hi nic
Brauchst alle Range und Cells anzupassen. z.B. Range("A65536") = Range("C65536").
Cells funktioniert so: Cells(Zeile, Spalten-Index) d.h. Spalten-Index 1 = A, 2 = B, 3 = C usw.
z.B.

Private Sub UserForm_Initialize()
Dim iZeile As Long, iiZeile As Long
Dim Vorhanden As Boolean
For iZeile = 2 To Range("C65536").End(xlUp).Row
Vorhanden = False
For iiZeile = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(iiZeile) = Cells(iZeile, 3) Then
Vorhanden = True
Exit For
End If
Next iiZeile
If Vorhanden = False Then ComboBox1.AddItem Cells(iZeile, 3)
Next iZeile
End Sub

Gruss
Chris
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige