Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
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
Inhaltsverzeichnis

UserForm ListBox

UserForm ListBox
14.04.2013 15:36:32
mehmet
Hallo Forum,
als Anhang ist eine Datei mit UserForm1/ListBox1.
Die Liste aus Sheet1 wird wie gewuenscht dargestellt.
Nun soll, wenn aus UserForm1/ListBox1 in Zeile z.B. 3 angeklicket wird,
die Infos aus Sheet2 I3:K3 dargestellen werden.
Oder wenn z.B. im UserForm1/ListBox1 die Zeile 17 angeklickt wird, so soll die Zeile I17:K17 (aus Sheet2) dargestellt werden.
Ist sowas darstelltbar.
Dank im Voraus
Gruss
mehmet
https://www.herber.de/bbs/user/84876.xls

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm ListBox
14.04.2013 15:47:54
Hajo_Zi
Hallo Mehmet,
ja, wenn Du dazu Elemente anordnest z.b. Label. Arbeite mit Listbox1.listindex.

AW: UserForm ListBox
14.04.2013 15:56:42
Luschi
Hallo mehmet,
hier mal ein Lösungsansatz:

Private Sub ListBox1_Click()
Dim rg As Range
Dim i As Integer
i = Me.ListBox1.ListIndex
If i > -1 Then
Set rg = ThisWorkbook.Worksheets("Sheet2").Range("I1:K1").Offset(i, 0)
MsgBox rg.Address()
End If
Set rg = Nothing
End Sub
Gruß von Luschi
aus klein-Paris

AW: UserForm ListBox
14.04.2013 16:24:00
mehmet
Hallo Luschi,
herzlichen Dank. Ist eine gute Lösung.
Ich habe allerdings nicht ganz verstanden was Hajo meinte.
Nochmal danke schön an euch beiden.
Gruss
mehmet

Anzeige
AW: UserForm ListBox
14.04.2013 17:13:24
mehmet
Hallo,
sorry, ich nochmal
Ich komme gerade nicht weiter.
Habe vieles ausprobiert:
MsgBox rg.Address().Value
MsgBox rg.Target.Value = Value
MsgBox rg.Address.Value = Value
MsgBox rg1.Address.Value
etc geht nicht
Statt Address soll Value dargestellt werden
Gruss
mehmet

AW: UserForm ListBox
14.04.2013 17:33:24
Luschi
Hallo mehmet,
rg ist der Range-Bereich für die 3 Zellen. Um die Werte dieser Zellen abzurufen, geht das so:
MsgBox rg.Address()
MsgBox rg.Cells(1, 1).Value
MsgBox rg.Cells(1, 2).Value
MsgBox rg.Cells(1, 3).Value
Gruß von Luschi
aus klein.Paris

Anzeige
Super, Dank Dir Luschi o.T.
14.04.2013 17:40:33
mehmet
.

AW: UserForm ListBox
14.04.2013 17:37:30
Gerd
Hallo Mehmet,
es käme drauf an wo du darstellen möchtest.
Private Sub ListBox1_Click()
Dim vnt As Variant, rng As Range, i As Long
i = Me.ListBox1.ListIndex
If i > -1 Then
Set rng = ThisWorkbook.Worksheets("Sheet2").Range("I1:K1").Offset(i, 0)
vnt = Application.Transpose(Application.Transpose(rng))
MsgBox Join(vnt, ", ")
End If
vnt = Empty
Set rg = Nothing
End Sub

Gruß Gerd

AW: UserForm ListBox
14.04.2013 17:43:52
mehmet
Hallo Gerd,
klappt wunderbar. Dank Dir.
Viele Gruesse
mehmet

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige