in einer ListBox werden mit nachfolgendem Programmcode zeilenweise die Inhalte von 3 Zellen unter vorheriger Berücksichtigung bestimmter Terminkriterien aufgelistet:
Zeile 1: With frmNächsteTermine
Zeile 2: .lstTermine.ColumnCount = 3
Zeile 3: .lstTermine.ColumnWidths = "110;90;35"
Zeile 4: If ActiveCell.EntireRow.Select Then
Zeile 5: .lstTermine.AddItem ActiveCell.Value
Zeile 6: .lstTermine.Column(0, Anzahl) = ActiveCell.Offset(0, 0).Value
Zeile 7: .lstTermine.Column(1, Anzahl) = ActiveCell.Offset(0, 1).Value
Zeile 8: .lstTermine.Column(2, Anzahl) = ActiveCell.Offset(0, 2).Value
Zeile 9: Anzahl = Anzahl + 1 (Anzahl der gelisteten Einträge)
Zeile 10: End If
Zeile 11: End With
Darüberhinausgehend möchte ich die betreffenden Zeilen im Tabellenblatt markieren. In Zeile 4 wird die jeweils aktive Zeile bereits markiert, die anzuzeigenden Zellinhalte werden in die ListBox übertragen. Wie lässt sich anhand der Markierung auf die zugehörige Zeilennummer schließen und diese sowie folgende Zeilennummern in einer Variablen speichern um sie dann zu markieren?
mfg
reiner