active zelle mit listbox eintrag

Forumthread: active zelle mit listbox eintrag

21.11.2002 15:05:15

klaus

hallo leute hab mir ne kleine prozedur geschrieben die noch ne so recht funktioniert.

For i = [A1].End(xlDown).Row To 65536 Step 1
If Cells(i, 1).Value = ListBox1.List(ListBox1.ListIndex) Then Exit For
Next i
Cells(i, 1).Select

wenn ich die listbox starte, dann werden alle zellen in spalte A eine blaue textfarbe haben eingelesen. nun möchte ich, dass wenn ich auf einen dieser einträge in der listbox klicke die entsprechende zelle activ wird. funktioniert zwar nur sehr langsam und nicht richtig. die listbox ist in nem userform. hoffe ihr könnt mir helfen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: active zelle mit listbox eintrag

21.11.2002 15:18:43

Steffen D
Re: active zelle mit listbox eintrag

21.11.2002 16:13:15

klaus
Re: active zelle mit listbox eintrag

21.11.2002 16:34:46

klaus
Re: active zelle mit listbox eintrag

25.11.2002 14:40:19

Petra

Re: active zelle mit listbox eintrag

21.11.2002 15:18:43

Steffen D

For i = [A1].End(xlDown).Row To Range("A65536").End(xlUp).Row Step 1
If Cells(i, 1).Value = ListBox1.Text Then Exit For
Next i
Cells(i, 1).Select

Probier mal hiermit

Re: active zelle mit listbox eintrag

21.11.2002 16:13:15

klaus

ne funktioniert ebenso wenig wie mein eigenes.
es braucht ewig lang und führt das was ich will, die active zelle festlegen nicht aus

Re: active zelle mit listbox eintrag

21.11.2002 16:34:46

klaus

ne funktioniert gleich wie meins, sehr langsam und der fehelr, dass es irgendwie die zelle nicht aktiviert

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

Beliebteste Forumthreads (12 Monate)

Forumthread: active zelle mit listbox eintrag

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread