14.09.2018, 16:08
14.09.2018, 16:21
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.
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.
14.09.2018, 16:24
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
17.09.2018, 06:38
Hallöchen,
was fehlt denn noch für die "Update-Funktion"? Wie man das gewählte Item feststellt?
z.B.
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 iCnt17.09.2018, 07:27
Hallo Guten Morgen,
Die Lösung in der Datei ist schon fast das was Ich meine.
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.
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 iSpalteIch 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.
17.09.2018, 08:30
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.
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.
Zitat:… 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.
17.09.2018, 11:35
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.
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.
17.09.2018, 11:47
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
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
Else17.09.2018, 11:53
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.
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.
17.09.2018, 12:07
So geht's einfacher
Code:
Tabelle1.Cells(1, 2).resize(,5)=application.transpose(Listbox1.column)