Listenfeld ein-/auslesen

Hallo Excelgemeinde,
ich bin leider in Excel zu wenig versiert, um das Problem selbst zu lösen.
Ich will die Daten in Tabelle dynamisch mit einem Listenfeld auf einer Userform verbinden.
Und zwar so, dass die Daten aus der Tabelle (Bereich A3:A16 und B3:B16) in das Listenfeld übernommen werden.
Leider erscheint in meiner Listbox nur eine Spalte.?
Mit MultiselectMulti-Eigenschaft und mit FmListStyleOption lassen die Daten auch prima an-/auswählen.
Im Tabellenbereich D3:D16 ist der Status (x oder o) hinterlegt.
Ich möchte nun, dass beim Öffnen der Userform, dass diejenigen Elemente markiert dargestellt werden, welche mit einem x hinterlegt sind.
Auf der Userform soll, die Auswahl dann geändert werden können und der neue Status x oder o in die Tabelle zurückgeschrieben werden.
Kann mir hier jemand helfen.
Erik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private bolInit As Boolean 'Merker das Markierungen aus Tabelle in Listbox gesetzt werden Private Sub ReadWrite_Listbox(ByVal bolRead As Boolean) 'markierte Zeilen in Listbox selektieren (bolRead = True) _ oder Listbox-Auswahl in Tabelle eintragen bolRead = False) Dim iItem As Integer Dim strSource As String Dim wksSource As Worksheet, strRange As String 'Datenquelle aus Eigenschaften der Listbox in Variable einlesen und ggf _ Hochkommata entfernen strSource = Replace(Me.ListBox1.RowSource, "'", "") 'Tabellenblatt mit Quelldaten setzen Set wksSource = ThisWorkbook.Worksheets(Left(strSource, InStr(1, strSource, "!") - 1)) 'Zellbereich der Quelle auslesen strRange = Mid(strSource, InStr(1, strSource, "!") + 1) With wksSource.Range(strRange) For iItem = 0 To Me.ListBox1.ListCount - 1 If bolRead = True Then 'ggf. Eintrag in Listbox markieren Me.ListBox1.Selected(iItem) = _ LCase(.Cells(iItem + 1, 1).Offset(0, 3).Value) = "x" Else 'Eintrag in Tabellenblatt markieren If Me.ListBox1.Selected(iItem) = True Then .Cells(iItem + 1, 1).Offset(0, 3).Value = "x" Else .Cells(iItem + 1, 1).Offset(0, 3).ClearContents End If End If Next End With End Sub Private Sub ListBox1_Change() If bolInit = True Then Exit Sub Call ReadWrite_Listbox(bolRead:=False) End Sub Private Sub UserForm_Initialize() 'markierte Zeilen in Tabelle in Listbox selektieren bolInit = True Call ReadWrite_Listbox(bolRead:=True) bolInit = False End Sub

Hallo Erik,
wenn mehrere Listboxen nach dem gleichen Schema abgearbeitet werden sollen, dann muss du Sub ReadWriteListbox mit Parametern/Variablen allgemeiner Formuliert werden.
In den Call-Anweisungen müssen diese Parameter dann entsprechend gesetzt werden.
Nachfolgend ein modifiziertes Makro.
Ob die Listboxen dann mehreren Multiseiten des Userforms stehen spielt keine Rolle.
Du musst dann nur entscheiden, ob du für alle Listboxen eine Schaltfläche zum Übernehmen ins Tabellenblatt verwenden willst, oder jede Listbox separat.
LG
Franz

Private Sub CommandButton1_Click()
'Button zum Übertragen der Listbox-Auswahl in die Tabelle
If bolInit = True Then Exit Sub
Call ReadWrite_Listbox(objListbox:=Me.ListBox1, bolRead:=False)
Call ReadWrite_Listbox(objListbox:=Me.ListBox2, bolRead:=False)
End Sub
Private Sub UserForm_Initialize()
'mi "x" markierte Zeilen in Tabelle in Listboxen selektieren
bolInit = True
Call ReadWrite_Listbox(objListbox:=Me.ListBox1, bolRead:=True)
Call ReadWrite_Listbox(objListbox:=Me.ListBox2, bolRead:=True)
bolInit = False
End Sub
Private Sub ReadWrite_Listbox(objListbox As msforms.ListBox, ByVal bolRead As Boolean, _
Optional ByVal iOffset As Integer = 3)
'markierte Zeilen in Listbox selektieren (bolRead = True) _
oder Listbox-Auswahl in Tabelle eintragen bolRead = false)
'objListbox = Variable für die zu verarbeitende Listbox
'iOffset = Anzahl Saplten rechts von 1. Spalte der ListboxSource in die x/o stehen _
sollen, Vorgabewert = 3
Dim iItem As Integer
Dim strSource As String
Dim wksSource As Worksheet, strRange As String
strSource = Replace(objListbox.RowSource, "'", "")
Set wksSource = ThisWorkbook.Worksheets(Left(strSource, InStr(1, strSource, "!") - 1))
strRange = Mid(strSource, InStr(1, strSource, "!") + 1)
With wksSource.Range(strRange)
For iItem = 0 To objListbox.ListCount - 1
If bolRead = True Then
objListbox.Selected(iItem) = _
LCase(.Cells(iItem + 1, 1).Offset(0, iOffset).Value) = "x"
Else
If objListbox.Selected(iItem) = True Then
.Cells(iItem + 1, 1).Offset(0, iOffset).Value = "x"
Else
.Cells(iItem + 1, 1).Offset(0, iOffset).Value = "o"
End If
End If
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listenfeld ein-/auslesen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread