Das Archiv des Excel-Forums

Listboxinhalt in Zell-Kommentar kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ComboBox ListBox
Bild

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

Bild


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




Bild


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


Bild


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


Bild


Betrifft: PERFEKT!!!!!!!
von: Boris
Geschrieben am: 01.10.2003 19:04:15

Hi Rainer,

super, vielen Dank! Das funzt AUSGEZEICHNET!

Grüße Boris


Bild


Betrifft: Merci fürs Feedback ;-)) o.T.
von: Ramses
Geschrieben am: 01.10.2003 19:14:29

...


Bild


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


 Bild

Excel-Beispiele zum Thema " Listboxinhalt in Zell-Kommentar kopieren"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download