Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox-Auswahl in eine Zelle schreiben

Listbox-Auswahl in eine Zelle schreiben
Tim
Hallo,
ich habe eine UserForm mit einer ListBox.
Kann mir jemand sagen, was ich tun muss, damit bei Auswahl eines Eintrags der entsprechende Begriff in immer die gleiche Zelle (Blatt2, K120) geschrieben wird.
Wird ein anderer Wert in der Liste ausgewählt, soll der aktuelle Eintrag in K120 überschrieben.
Wird der erste Eintrag in der Liste ausgewählt, soll "" in K120 geschrieben werden.
VG und vielen Dank im Voraus für jeden Tipp,
Tim

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listbox-Auswahl in eine Zelle schreiben
30.07.2012 17:42:44
Matthias
Hallo Tim
Private Sub ListBox1_Click()
Tabelle2.Range("K120") = Me.ListBox1.Value
End Sub
Gruß Matthias
AW: Listbox-Auswahl in eine Zelle schreiben
30.07.2012 17:45:22
Tim
Hallo Matthias,
vielen Dank für die schnelle Hilfe - und so einfach ! :-)
Klappt bestens.
VG und einen schönen Nachmittag,
Tim
achso wg. 1.Eintrag = leer---> dann so ...
30.07.2012 17:53:26
Matthias
Hallo Tim
Private Sub ListBox1_Click()
If ListBox1.ListIndex = 0 Then
Tabelle2.Range("K120").ClearContents
Else
Tabelle2.Range("K120") = Me.ListBox1.Value
End If
End Sub

Beachte bitte das ich mit dem CodeNamen der Tabelle arbeite (Der RegisterblattName ist unwichtig!)
Willst Du immer das es im 2.Tabellenblatt lt. Index eingetragen werden soll
musst Du statt Tabelle2 einfach Sheets(2) ... benutzen.
Das ist dann das 2.Blatt von links.
Das muss natürlich auch existieren, sonst müsste noch eine Fehlerbehandlung rein.
Nur Interessehalber:
Warum willst Du eigentlich bei Auswahl des ersten Eintrages einen Leerstring in die Zelle schreiben ?
Gruß Matthias
Anzeige
AW: achso wg. 1.Eintrag = leer---> dann so ...
30.07.2012 17:58:03
Tim
Spitze - vielen Dank auch dafür, Matthias !
Auch das klappt bestens. :-)
VG,
Tim
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge