Office: ListBox-Items Werte zuweisen und speichern

Embee83 · 28. September 2010

Hallo Forenuser,

mein Projekt wächst und gedeiht und wird somit auch immer komplexer. Ganz viele Dinge konnte ich schon aus diesem tollen forum benutzen und auch daraus lernen. Nun habe ich allerdings mal wieder ein Problem und stehe vor einem riesigen Berg und weiss nicht wo ich anfangen soll bzw. wie ich diesen Berg erklimmen soll.

Folgendes Problem stellt sich dar:

Ich habe in einer UserForm eine ListBox die ich von einer anderen userForm aus mit Werten befülle. Rechts neben der ListBox befinden sich Eingabefelder, die Werte enthalten die zu jedem Eintrag in der ListBox gespeihert werden sollen. und zwar genau dann wenn man auf ein anderes Element der ListBox klickt.

Zur besseren Veranschaulichung füge ich eine Excel-Mappe bei wo die UserForm drin ist.

Ich hoffe es kann mir jemand helfen.

Vielen dank schonmal

Gruß Embee83

:)

EarlFred · 30. September 2010

Hallo Embee83m

mal eine andere Idee:
Fange Änderungen der Eingabefelder ab und "mißbrauche" die Listbox gleich als Speicherort.

Erstell Dir mal eine Mappe mit einer Userform, die ein Listenfeld und eine Textbox enthält.
Die Userform enthält folgenden Code:
Code:

Private Sub UserForm_Initialize()
Dim fArr() As String
ReDim fArr(0 To 5, 0 To 0)
For i = LBound(fArr) To UBound(fArr)
fArr(i, 0) = "Hier steht Wert Nummer " & i
Next i

'fArr um x Spalten erweitern
'für die Aufnahme der weiteren Daten
'Im Beispiel: 5 Spalten gesamt = 4 zusätzlich
'In diese (in der Listbox nicht sichtbaren) Spalten
'werden die Eingaben gespeichert
ReDim Preserve fArr(LBound(fArr) To UBound(fArr), 0 To 4)

'Array der Listbox zuweisen
Me.ListBox1.List = fArr
End Sub

Private Sub TextBox1_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 1) = Me.TextBox1
End With
End Sub

Private Sub UserForm_Terminate()
'Als Beispiel wird das Datenfeld hinter dem Listenfeld
'Ab Zelle A1 ausgegeben
With Me.ListBox1
[A1].Resize(.ListCount, UBound(.List, 2) + 1) = .List
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Embee83 · 11. Oktober 2010

Oh das funktioniert gut...*Smilie vielen vielen dank (auch wenn es spät kommt *wink.gif* ). Das eintragen der Daten klappt ja jetzt wunderbar *Smilie nun würde ich gerne noch einen Schritt weitergehen.

Wenn ich die Daten eingetragen habe, dann bin ich jetzt soweit, das auf Klick eine neue Excel-Mappe mit einem bestimmten Namen angelegt wird. Darauf bin ich schon ein bissl stolz dass selbst soweit alles in die reihe bekommen zu haben (wenn auch mit viel Internet-recherche, aber es funzt) *Smilie

Jetzt zu meinem Problem: Ich würde gerne den ganzen Prozess anders herum benutzen wollen. Sprich, dass wenn ich die über die ListBox eingetragenen Werte ändern möchte, die Daten aus der Tabelle in eine Listbox einer UserForm einlese und die eingelesenen Werte mit Hilfe der Eingabefelder ändern kann und dann wieder in die Tabelle schreiben kann. Wie gesagt, dass ist der Vorgang wie oben beschrieben nur andersrum. Weiss nicht genau wie ich das anstellen soll bzw. scheiterten meine eigenen Versuche kläglich *frown.gif*

Kann mir da jemand helfen ?

Hier nochmals der aktuelle Code:

Code:

Private Sub UserForm_Initialize()
Dim fArr() As String
'Dim AnzPrue As String
'AnzPrue = PAErstellen.AnzPrue.Text

ReDim fArr(0 To CInt(AnzPrue), 0 To 0)
For i = LBound(fArr) To UBound(fArr)
fArr(i, 0) = PAErstellen.PrueBez.Text & " " & i
'fArr(i, 0) = Tabelle1.Range("A", i)
Next i

'fArr um x Spalten erweitern
'für die Aufnahme der weiteren Daten
'Im Beispiel: 5 Spalten gesamt = 4 zusätzlich
'In diese (in der Listbox nicht sichtbaren) Spalten
'werden die Eingaben gespeichert
ReDim Preserve fArr(LBound(fArr) To UBound(fArr), 0 To 5)

'Array der Listbox zuweisen
Me.ListBox1.List = fArr
End Sub

Private Sub AuswPS_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 1) = Me.AuswPS
End With
End Sub

Private Sub statVorlast_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 2) = Me.statVorlast
End With
End Sub

Private Sub Amplitude_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 3) = Me.Amplitude
End With
End Sub

Private Sub Freq_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 4) = Me.Freq
End With
End Sub

Private Sub SOLLLw_Change()
'Änderungen (jede Eingabe) der Textbox wird abgefangen
'un in das Datenfeld hinter dem Listenfeld eingetragen
'Diese Textbox ändert zum Beispiel die Spalte mit Index 1
With Me.ListBox1
If .ListIndex >= 0 Then _
.List(.ListIndex, 5) = Me.SOLLLw
End With
End Sub

Private Sub UserForm_Terminate()

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank schonmal

Gruß Embee83

Office: ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern - Similar Threads - ListBox Items Werte

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Listbox item mit DblClick in Tabelle auf Zeile Springen?

Office: ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern

ListBox-Items Werte zuweisen und speichern - Similar Threads - ListBox Items Werte

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Listbox item mit DblClick in Tabelle auf Zeile Springen ?

Listbox item mit DblClick in Tabelle auf Zeile Springen?