Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

active zelle mit listbox eintrag

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
Anzeige
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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige