ListBox-Elemente durch Zelleninhalt ausw
20.01.2022 09:42:27
Jot
ich möchte in einer "Datenbank" mit einem Formular Einträge aufrufen, bearbeiten und zurückschreiben.
Die Auswahloptionen für eine ListBox ziehe ich aus einer anderen Tabelle. Im Formular wähle ich Optionen aus und schreibe sie in die Datenbank zurück (Code siehe unten).
Wie kann ich diese Werte aus der Zelle bei einem späteren Aufruf der Daten im Formular verwenden, um die entsprechenden Optionen wieder auszuwählen?
With UFPatent.LBScope
Cells(ar, 35).Value = "" 'Zelleninhalt loeschen um neu zu fuellen
For i = 0 To .ListCount - 1
If .Selected(i) Then
If Cells(ar, 35).Value = "" Then
ActiveSheet.Cells(ar, 35).Value = .List(i) 'Erster Fuellwert ohne Trennzeichen
Else
ActiveSheet.Cells(ar, 35).Value = ActiveSheet.Cells(ar, 35).Value & Chr(10) & .List(i) 'Weitere Fuellwerte = Inhalt + Zeilenwechsel + neuer Wert
End If
Else
End If
Next i
End With>