Das Archiv des Excel-Forums
Listboxinhalt in Zell-Kommentar kopieren
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel-Beispiele zum Thema " Listboxinhalt in Zell-Kommentar kopieren"