Office: Listbox Eintrag editieren

hermre · 9. Oktober 2011

Hallo Zusammen

ich hoffe, es kann mir jemand helfen... folgendes Problem:
Ich habe eine Listbox in der ich Daten aus einer Tabelle anzeige.
Nun möchte ich einzelne Einträge ändern (Stand 1 und Stand 2 ) und speichern.
Die Daten bekomme ich in die Listbox, die Datensätze kann ich per Doppelklick auswählen und es füllt sie auch in die Textboxen - das ändern klappt aber leider nicht.

Vielen Dank schon jetzt für eure Unterstützung!

:)

Peter9 · 11. Oktober 2011

Hallo hermre

Ich habe das mal angepasst und in deiner Beispiel Mappe eingetragen
Schau mal das in Rot ist die Ergänzung

Denke mal das hilft Dir weiter

Hier der Code
Code:

Option Explicit

Dim Listind As Integer 'ListIndex merken
Dim arrDaten As Variant

' und hier das ergänzen der Listbox1
Private Sub CommandButton1_Click()
Dim x As Long
Dim FindIt As Range
Dim Loletzte As Long
With Listbox1
' Bitte anpassen jetzt werden TextBox 3 u. 4 in die Listbox
' u. in Tabelle übertragen
' .List(Listind, 1) = Userform1.Textbox1
'.List(Listind, 2) = Userform1.Textbox2
.List(Listind, 5) = Userform1.Textbox3
.List(Listind, 6) = Userform1.Textbox4
End With

Loletzte = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row '- 4
' ab hier wird in der Tabelle geschrieben
Set FindIt = ActiveSheet.Range("C3:C" & Loletzte).Find(Userform1.Textbox1.Value)
x = FindIt.Row
ActiveSheet.Cells(x, 7).Value = Userform1.Textbox3.Value
ActiveSheet.Cells(x, 8).Value = Userform1.Textbox4.Value
End Sub

Private Sub Userform_Initialize()
With Tabelle4.Range("B3").CurrentRegion
arrDaten = .Resize(.Rows.Count - 1).Offset(1).Value
End With
Listbox1.List = arrDaten
Listbox1.ColumnCount = UBound(arrDaten, 2)
Listbox1.ColumnWidths = "0;150;120;0;0;35;35"
End Sub

Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Listbox1
Userform1.Textbox1 = .List(.ListIndex, 1)
Userform1.Textbox2 = .List(.ListIndex, 2)
Userform1.Textbox3 = .List(.ListIndex, 5)
Userform1.Textbox4 = .List(.ListIndex, 6)
End With
'ListIndex bei doppelclick merken
Listind = Listbox1.ListIndex
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

« Gruß Peter9 »

hermre · 11. Oktober 2011

Perfekt!
Vielen Dank an dich Peter9

Office: Listbox Eintrag editieren

Listbox Eintrag editieren

Listbox Eintrag editieren

Listbox Eintrag editieren - Similar Threads - Listbox Eintrag editieren

VBA ListBox markieren wenn Eintrag gefunden

Selektierte Einträge in ListBox abwählen

Eintrag in Listbox finden und Markieren

VBA In Listbox bestimmten Eintrag ändern

Eintrag in ListBox klickbar machen

ListBox: Eintrag bearbeiten, Duplikatprüfung

ListBox Eintrag über Makro auswählen