Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.11.2023 08:36:48
VBA 2D- oder 3D-Array?
29.11.2023 07:42:24
Zellbezug kopieren
29.11.2023 07:06:35
VBA für das ausblenden von Tabellenblättern
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listboxinhalt in Zell-Kommentar kopieren

Listboxinhalt in Zell-Kommentar kopieren
01.10.2003 17:43:52
Jens
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listboxinhalt in Zell-Kommentar kopieren
01.10.2003 18:41:19
Ramses
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


OT @ Ramses
01.10.2003 18:48:20
Boris
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
Anzeige
No Problem :-))
01.10.2003 19:01:20
Ramses
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
Anzeige
PERFEKT!!!!!!!
01.10.2003 19:04:15
Boris
Hi Rainer,

super, vielen Dank! Das funzt AUSGEZEICHNET!

Grüße Boris
Merci fürs Feedback ;-)) o.T.
01.10.2003 19:14:29
Ramses
...
AW: Listboxinhalt in Zell-Kommentar kopieren
02.10.2003 07:13:11
Jens
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige