ListBox füllen (Speziell)

[Florian20]

Ja das weiß ich, aber eine list Box ist die beste Möglichkeit für das Projekt.

[Klaus-Dieter]

Hallo Florian,


habe mal was gebastelt. In den Textfeldern oberhalb der ListBox kannst du frei gewählte Texte eingeben. Alternativ wird eine ausgewählte Zeile aus der Listbox dort angezeigt, die du dann modifizieren kannst.
Wenn du auf die Schaltfläche anfügen klickst, werden die Inhalte der Textboxen am Ende des in der ComboBox angezeigten Blocks angefügt.
Bitte um Nachricht, ob das in die Richtige Richtung geht.

[Florian20]

Das item was neu in der list box hinzugefügt wird habe ich schon programmiert das ist nicht das Problem ? nur diese Update Funktion des sheets ist noch nicht ganz fertig

[schauan]

Hallöchen,

was fehlt denn noch für die "Update-Funktion"? Wie man das gewählte Item feststellt?
z.B.

Code:

For iCnt = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(iCnt) Then MsgBox ListBox1.List(iCnt) & vbCrLf
Next iCnt

[Florian20]

Hallo Guten Morgen,

Die Lösung in der Datei ist schon fast das was Ich meine.

Code:

If ComboBox1.Text <> "" Then

   iZeile = Range("A" & Application.Match(ComboBox1.Text, Tabelle1.Columns(1), 0)).End(xlDown).Row
   Rows(iZeile).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

       For iSpalte = 2 To 7
           Cells(iZeile, iSpalte) = ListBox1.List(iZeile, iSpalte)
       Next iSpalte

Ich dachte es mir so das die Daten nicht sofort in die celle kommt sondern erst in die listbox und dann in celle.

Die Daten wie sie in die Listbox kommen habe Ich schon.
nur die Daten in die cellen schreiben wenn es eine Auswahl in der Combobox gibt das geht noch nicht.

[schauan]

Hallo Flow,

auf welche Beispielmappe beziehst Du Dich denn mit dem Code?
In dem Codeschnipsel sehe ich nicht, wie die Auswahl in die Listbox kommt, dafür aber, wie Du Daten aus der Listbox in die Zellen schreibst.

Du schreibst es nun aber anders herum.

… das die Daten nicht sofort in die celle kommt sondern erst in die listbox und dann in celle.
Die Daten wie sie in die Listbox kommen habe Ich schon.
nur die Daten in die cellen schreiben wenn es eine Auswahl in der Combobox gibt das geht noch nicht.

[Florian20]

Hallo,

Ja genau Ich wollte es auch anders herum.
Und die letzte bsp. Mappe

Die Daten kommen über eine Sub die nicht in der Mappe drin ist.

Das Ist aber auch egal da Ich ja nur ein Problem habe die Daten zu lesen.

Bzw zu Updaten wenn in combobox1 was drin steht.

[Florian20]

Ich habe nun eine variante die es so macht wie Ich das möchte.

Problem:

Es wird zwar die Zeile eingefügt aber die Zeile ist nicht beschrieben

Code:

'Prüfen ob es ein Update eines Menü´s ist
If ComboBox1.Text <> "" Then

   iZeile = Range("A" & Application.Match(ComboBox1.Text, Tabelle1.Columns(1), 0)).End(xlDown).Row
   Rows(iZeile).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

   With ListBox1
       For i = 0 To .ListCount - 1
           Tabelle1.Cells(iZeile, 2) = .List(iZeile, 0)
           Tabelle1.Cells(iZeile, 3) = .List(iZeile, 1)
           Tabelle1.Cells(iZeile, 4) = .List(iZeile, 2)
           Tabelle1.Cells(iZeile, 5) = .List(iZeile, 3)
           Tabelle1.Cells(iZeile, 6) = .List(iZeile, 4)
           Tabelle1.Cells(iZeile, 7) = .List(iZeile, 5)
       Next i
   End With
Else

[Florian20]

Habe es hinbekommen,

Hab es einfach nicht gesehen :16:

es wahr die variable "i" in der For schleife, die habe Ich in die Listbox.list(i,0) gesetzt.

[snb]

So geht's einfacher

Code:

Tabelle1.Cells(1, 2).resize(,5)=application.transpose(Listbox1.column)