Live-Forum - Die aktuellen Beiträge
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
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


Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
Anzeige

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
Anzeige

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige