Thema Datum  Von Nutzer Rating
Antwort
31.12.2023 14:04:58 Modelmaster
NotSolved
31.12.2023 15:37:48 ralf_b
NotSolved
31.12.2023 16:08:51 Modelmaster
NotSolved
Blau Auslesen in List box
31.12.2023 16:22:34 Flatulenz
NotSolved
31.12.2023 17:38:37 Gast85237
NotSolved
31.12.2023 16:24:21 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Flatulenz		 Datum:
31.12.2023 16:22:34		 Views:
141		 Rating:
     
Antwort:
  Ja
Thema:
Auslesen in List box

moin 

die Listbox befindet sich auf einer Userform?

dann z.B. so

zum Füllen der Listbox

Private Sub UserForm_Initialize()
    Dim lngAnzahl As Long, lngLetzte As Long
    With Worksheets("Tabelle3")
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lngAnzahl = 2 To lngLetzte
            ListBox1.AddItem .Cells(lngAnzahl, 1).Value
        Next
    End With
End Sub

zum schreiben des Eintrags in die Tabelle1

Private Sub ListBox1_Click()
    Worksheets("Tabelle1").Range("F10").Value = ListBox1.Text
End Sub

 

Grüßli

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.12.2023 14:04:58 Modelmaster
NotSolved
31.12.2023 15:37:48 ralf_b
NotSolved
31.12.2023 16:08:51 Modelmaster
NotSolved
Blau Auslesen in List box
31.12.2023 16:22:34 Flatulenz
NotSolved
31.12.2023 17:38:37 Gast85237
NotSolved
31.12.2023 16:24:21 ralf_b
NotSolved