Verknüpfen von ComboBoxen

Hallo Ihr da draußen.
Ich bin VBA-Neuling und habe Fragen ohne Ende. Aber jetzt erstmal zu meinem aktuellen Problem.
In einer Datei habe ich im Tabellenblatt "Menü" eine ComboBox aus der man aus einer hinterlegten Liste aus verschiedenen Häusern auswählen kann. Die Auswahl wird dann auch in die Zelle "C6" eingetragen. Das habe ich auch schon geschafft.
Jetzt kommen aber meine Probleme. Die zweite ComboBox soll dann nur die Etagen aus einer bestehende Liste anzeigen, die diesem Haus zugeordnet sind. Bei der dritten Box ist es ähnlich. Sie soll sich auf die zwei vorherigen Eingaben beziehen und nur die Räume anzeigen welche dem gewählten Haus und der gewählten Etage entsprechen. Nach Auswahl der 3 Kriterien möchte ich nun mittels CommandButton auf das zugehörige Tabellenblatt des Raumes springen. Zum besseren Verständnis habe ich die Datei mal auf dem Server abgelegt und zwar unter:
https://www.herber.de/bbs/user/26012.xls
Ich hoffe es kann mir jemand weiterhelfen. Ich danke schon mal im Vorraus für eure Bemühungen.
Gruß René

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo René,
hier der Code von GetList() nochmal kommentiert:


Private Function GetList(N As String) As String
Const Suchbereich = "G:O"
Dim sp As Range
Dim s1 As Range
Dim erster As Boolean, eadr As String
erster = True
Set sp = Range(Suchbereich)(1)
'Schleife:
Do
'Finde N im Suchbereich
Set sp = Range(Suchbereich).Find(What:=N, after:=sp, LookAt:=xlWhole)
'nicht gefunden? Meldung und Abbruch
If sp Is Nothing Then
MsgBox N & " im Suchbereich nicht gefunden!"
GetList = ""
Exit Function
End If
'erster Schleifendurchlauf?
If erster Then
'ja, erste gefundene Zelle merken
erster = False
eadr = sp.Address
Else
'nein: wenn Suchergebnis gleich erstem Suchergebnis, dann Fehler, weil nicht
'      im Fettdruck gefunden
If eadr = sp.Address Then
MsgBox N & " im Suchbereich nicht gefunden!"
GetList = ""
Exit Function
End If
End If
'Schleifenende, wenn gefundener Wert in Fettdruck steht, sonst nächten Wert suchen
Loop Until sp.Font.Bold = True
'Sp auf CurrentRegion erweitern (siehe VBA-Hilfe):
Set sp = sp.CurrentRegion
'Rückgabewert setzen: besteht aus Adresse der zweiten bis letzten Zelle des Bereches
'                     (also ohne die Überschrift)
GetList = Range(sp(2), sp(sp.Count)).Address(0, 0)
End Function

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verknüpfen von ComboBoxen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread