Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema ListBox | |
|---|---|
 Screenshot zu ListBox |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
Listboxinhalt in Zell-Kommentar kopieren
- Listboxinhalt in Zell-Kommentar kopieren von Jens vom 01.10.2003 17:43:52
- AW: Listboxinhalt in Zell-Kommentar kopieren - von Ramses am 01.10.2003 18:41:19
- OT @ Ramses - von Boris am 01.10.2003 18:48:20
- No Problem :-)) - von Ramses am 01.10.2003 19:01:20
- PERFEKT!!!!!!! - von Boris am 01.10.2003 19:04:15
- Merci fürs Feedback ;-)) o.T. - von Ramses am 01.10.2003 19:14:29
- Merci fürs Feedback ;-)) o.T. - von Ramses am 01.10.2003 19:14:29
- PERFEKT!!!!!!! - von Boris am 01.10.2003 19:04:15
- No Problem :-)) - von Ramses am 01.10.2003 19:01:20
- AW: Listboxinhalt in Zell-Kommentar kopieren - von Jens am 02.10.2003 07:13:11
- OT @ Ramses - von Boris am 01.10.2003 18:48:20
- AW: Listboxinhalt in Zell-Kommentar kopieren - von Ramses am 01.10.2003 18:41:19
 |
Betrifft: Listboxinhalt in Zell-Kommentar kopieren
von: Jens
Geschrieben am: 01.10.2003 17:43:52
Hallo zusammen,
ich habe folgendes vor. Aus einerUF-Listbox sollen alle Inhalte in ein Kommentarfeld im TB kopiert werden. Einen ansatz für Code habe ich auch, aber komme nicht weiter. Wie bekomme ich den Code so geändert das der Listbox-Inhalt (Listbox mit 3 Spalte) in ein Kommentar in "E2" eingefügt wird?
Private Sub Listbox_Positionen_in_E2()
Worksheets("Kalkulation").Range("E2").ClearContents
Dim i As Integer
Dim Wert As String
On Error Resume Next
For i = 0 To ListBox1.ListCount
Wert = Wert & "* " & ListBox1.List(i, 0) & " ;_
" & ListBox1.List(i, 1) & " ; " & ListBox1.List(i, 2) & Chr(10)
Next i
Range("E2") = Mid(Wert, 1, Len(Wert) - 1)
End Sub
 |
Betrifft: AW: Listboxinhalt in Zell-Kommentar kopieren von: Ramses
Geschrieben am: 01.10.2003 18:41:19
Hallo
Private Sub Listbox_Positionen_in_E2()
Worksheets("Kalkulation").Range("E2").ClearContents
Dim i As Integer
Dim Wert As String
On Error Resume Next
For i = 0 To ListBox1.ListCount
Wert = Wert & "* " & ListBox1.List(i, 0) & " ;_
" & ListBox1.List(i, 1) & " ; " & ListBox1.List(i, 2) & Chr(10)
Next i
Range("E2").AddComment
Range("E2").Comment.Visible = False
Range("E2").Comment.Text Text:=Mid(Wert, 1, Len(Wert) - 1)
End Sub
Fehlerprüfungen musst du halt selber einbauen :-)
Gruss Rainer
| |
Betrifft: OT @ Ramses von: Boris
Geschrieben am: 01.10.2003 18:48:20
Hi Rainer,
darf ich ausnahmsweise mal ganz unverschämt fragen, ob du dir mal diese Frage von mir anschauen kanst:
https://www.herber.de/forum/messages/317710.html
Wenn´s nicht geht, ist gut. Wenn du´s nicht weisst, is auch gut. Wenn´s geht und du es weisst, ist es allerdings SEHR GUT! ;-))
Will dich aber nicht über Maßen in Beschlag nehmen.
Grüße Boris
| |
Betrifft: No Problem :-)) von: Ramses
Geschrieben am: 01.10.2003 19:01:20
Hallo Boris,
nachdem die Eigenschaft "ListFillRange" statisch ist, d.h. nur beim initialisieren ( öffnen der Mappe usw ) eingelesen wird, musst du das eigentlich nur immer wiederholen :-) und EXCEL dazu bewegen, dass es das immer wieder macht :-))
Am besten eignet sich dazu
Private Sub ComboBox1_GotFocus() Me.ComboBox1.ListFillRange = "x" End Sub
Somit wird jedesmal wenn die Combobox den Focus erhält, der Range neu zugewiesen, und EXCEL liest ihn dann neu ein ;-)
Der Trick mit der adaptiven Liste ist übrigens guuuut :-). Den merk ich mir.
Gruss Rainer
| |
Betrifft: PERFEKT!!!!!!! von: Boris
Geschrieben am: 01.10.2003 19:04:15
Hi Rainer,
super, vielen Dank! Das funzt AUSGEZEICHNET!
Grüße Boris
| |
Betrifft: Merci fürs Feedback ;-)) o.T. von: Ramses
Geschrieben am: 01.10.2003 19:14:29
...
| |
Betrifft: AW: Listboxinhalt in Zell-Kommentar kopieren von: Jens
Geschrieben am: 02.10.2003 07:13:11
Hallo Rainer, vielen Dank für deine Hilfe.
Der Code funktioniert genau wie ich es mir vorgestellt habe, die Fehlerprüfung bekomme ich selbst hin. Nochmals vielen Dank
Jens
| |