Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox and Label

ComboBox and Label
01.07.2004 13:12:35
sigi
Hallo Spezialisten,
über eine Userform Combobox werden die Namen der Spalte A
eingelesen.
Nach der Auswahl der Combobox möchte ich im Label
die Auswahl von Spalte B anzeigen.
Mein Versuch dies so zu regeln scheitert.

Private Sub ComboBox1_Change()
Label1.Caption = Format(WorksheetFunction.Text(Columns(1), Combobox1.Value, (Columns(2)), ""))
End Sub


Private Sub UserForm_Initialize()
Dim sAdr As String
sAdr = ThisWorkbook.Worksheets("Übersicht"). _
Cells(Rows.Count, 3).End(xlUp).Address(False, False)
ComboBox1.RowSource = "Übersicht!c101:" & sAdr
End Sub

Wie kann ich dieses Problem lösen?
Danke!
Gruß
Sigi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox and Label
Nike
Hi,
mal so versuchen:

Private Sub ComboBox1_Change()
With ThisWorkbook.Worksheets("Übersicht")
Label1.Caption = WorksheetFunction.VLookup(CDbl(ComboBox1.Value), .Columns("A:B"), 2, True)
End With
End Sub


Private Sub UserForm_Initialize()
Dim rngCell As Range
Dim lngZeil As Long
With ThisWorkbook.Worksheets("Übersicht")
lngZeil = .Cells(.Rows.Count, 1).End(xlUp).Row
For Each rngCell In .Range(.Cells(1, 1), .Cells(lngZeil, 1))
ComboBox1.AddItem rngCell
Next
End With
End Sub

Bye
Nike
Anzeige
AW: ComboBox and Label
01.07.2004 14:15:41
sigi
Hallo Nike,
danke für Deine Hilfe, funktioniert prima
Gruß
Sigi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige