UserForm ListBox

Forumthread: 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

AW: UserForm ListBox

14.04.2013 15:47:54

Hajo_Zi
AW: UserForm ListBox

14.04.2013 15:56:42

Luschi
AW: UserForm ListBox

14.04.2013 16:24:00

mehmet
AW: UserForm ListBox

14.04.2013 17:13:24

mehmet
AW: UserForm ListBox

14.04.2013 17:33:24

Luschi
Super, Dank Dir Luschi o.T.

14.04.2013 17:40:33

mehmet
AW: UserForm ListBox

14.04.2013 17:37:30

Gerd
AW: UserForm ListBox

14.04.2013 17:43:52

mehmet

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: UserForm ListBox

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread