|
Hallo zusammen,
ich stecke mal wieder an einer Stelle fest. Vielleicht habt ihr eine Idee bzw. einen Ansatz dazu:
Also ich habe eine Tabelle in Excel und eine UserForm mit Listboxen. Im Laufe meines Programmes werden Elemente aus der Tabelle in die Listboxen geladen.
Die Listbox ist so eingestellt, dass man mehrere Elemente gleichzeitig auswählen kann. (MultiSelect= 1-fmMultiSelectMulti)
Nachdem man also Elemente ausgewählt hat und einen Button klickt, werden zuerst die ausgewählten Elemente in der Exceltabelle markiert. ( Ich schreibe ein "x" in die Zelle vor dem Element)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Sub MarcSelectedItems(ByVal Listbox As MSForms.Listbox, ByVal Tabellenname As String, ByVal tabname As String)
Dim oLo As ListObject
Dim j As Integer
j = 3
For Each oLo In Sheets(tabname).ListObjects
If oLo.Name = Tabellenname Then
For i = 0 To Listbox.ListCount - 1
If Listbox.Selected(i) Then
question = Listbox.List(i, 0)
For j = 2 To 200
If question = Worksheets(tabname).Cells(j, 2).Value Then
Worksheets(tabname).Cells(j, 1).Value = "x"
End If
Next j
End If
Next i
End If
Next
End Sub
|
Danach rufe ich eine Methode auf, die neue Taps in Excel erstellt und die Zeilen, die mit einem "x" markiert wurden, in diese neuen Taps kopiert.
1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub createNewTab(ByVal NewTabName As String, ByVal OldTabName As String)
Sheets.Add
ActiveSheet.Tab.ColorIndex = 4
ActiveSheet.Name = NewTabName
For j = 2 To 300
If Worksheets(OldTabName).Cells(j, 1).Value = "x" Then
Worksheets(OldTabName).Rows(j).Copy Worksheets(NewTabName).Rows(j)
End If
Next
End Sub
|
Das funktioniert alles ohne Probleme.
Jetzt kommt mein "Problem".
Ich möchte, dass bei einem erneuten Aufruf die Elemente in der Listbox, die ich in dem Ablauf davor schon einmal ausgewählt habe, automatisch wieder ausgewählt sind.
(Vielleicht hilft das dabei: die Elemente sind in Excel immernoch durch das "x" markiert.)
Bei dem erneuten Aufruf sollen auch keine neuen Taps in Excel erstellt werde, da diese ja schon vorhanden sind.
Man soll dann die Möglichkeit haben die Auswahl in der Listbox zu ändern/ zu ergänzen und in den vorher erstellten neuen Taps sollen dann die aktuell ausgewählten Elemente erscheinen.
Ich hoffe ich konnte das einigermaßen verständlich beschreiben und ihr könnt mir helfen.
|