Re: active zelle mit listbox eintrag
25.11.2002 14:40:19
Petra
ich hab selbiges problem mit einem umweg gelöst.Und zwar hab ich den ermittelten wert einer combobox (is ja ähnlich) in eine versteckte Zeile der tabelle einfügen lassen, und dann mit einer funktion die zellen verglichen. Dann klappt das auch mit dem aktivieren.
Function finden()
Dim rgZelle As Range
Dim rgBereich As Range
Dim gesuchterWert As Range
Dim gefunden As String
Range("c1") = 0
Set gesuchterWert = Worksheets("Kunden").Range("B1")
'Welcher Bereich soll durchsucht werden
Set rgBereich = Worksheets("Kunden").Range("Kundenaktuell")
'Für jede Zeile in dem Bereich
For Each rgZelle In rgBereich
'Wenn der Wert gleich dem Wert in Zelle C1 ist
If rgZelle.Text = gesuchterWert.Text Then
'dann soll die Zeile, in der sich diese Zelle befindet aktiviert werden
rgZelle.EntireRow.Select
End If
'Das soll solange sein, bis alle Zellen durchsucht sind
Next
'Im Funktionsnamen wird die Variable zurückgegeben
finden = gefunden
End Function