Anzeige
Archiv - Navigation
1156to1160
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
Inhaltsverzeichnis

makro funktion

makro funktion
rolf
Hallo
mit diesem makro suche ich nach einen namen in einer tabelle.(userform,listbox,combobox)
die einträge stehen in einer listbox.der name wird gleichzeitig in der listbox u.in der tabelle gefunden u.markiert.
dies funktioniert aber nur mit windows xp.
was muss ich ändern damit es auch mit einer älteren version funktioniert.
Private Sub ComboBox2_Change()
Dim lZeile As Long
Sheets("Abstammungen").Activate
lZeile = Sheets("Abstammungen").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Cells(lZeile, 1).Value = ComboBox2.Value
'Call UserForm1_Activate
On Error GoTo Ende
Columns("B:B").Select
Selection.Find(What:=(ComboBox2.Value), After:=ActiveCell, LookIn:=xlFormulas, Lookat _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
SearchRow = ActiveCell.Row - 1
ListBox1.ListIndex = SearchRow
Ende:
End Sub
mfg rolf

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: makro funktion
27.05.2010 11:35:37
Rudi
Hallo,
vielleicht ohne Select und Activate.
Private Sub ComboBox2_Change()
Dim lZeile As Long
With Sheets("Abstammungen")
lZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'Cells(lZeile, 1).Value = ComboBox2.Value
'Call UserForm1_Activate
On Error GoTo Ende
SearchRow = .Columns("B:B").Find _
(What:=(ComboBox2.Value), _
After:=.Cells(2, 1), _
LookIn:=xlFormulas, _
Lookat:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Row - 1
ListBox1.ListIndex = SearchRow
End With
Ende:
End Sub

Gruß
Rudi
Anzeige
AW: makro funktion
27.05.2010 11:39:47
ChrisL
Hi Rolf
Vielleicht kannst du mal ein Beispiel laden. Die Variable lZeile wird gar nicht verwendet (Folgezeilen sind auskommentiert). Wenn das Suchkriterium nur einmal vorkommt würde ich Match anstelle von Find verwenden. Zudem wenn die ComboBox und Listbox die gleichen Einträge haben, könnte man ja direkt den ListIndex übernehmen resp. den ListIndex verwenden, um die Zeilenzahl in der Tabelle zu ermitteln.
Evtl. kannst du auch noch erklären, warum die Zelle in der Tabelle selektiert werden soll. Ein Select ist meist nicht nötig.
cu
Chris
AW: makro funktion
27.05.2010 13:16:12
rolf
Hallo Chris
das suchkriterium vorkommt öfter vor (doppelte namen).
die zelle in der tabelle soll selektiert werden um sie schnell zu finden.
Hier ein beispiel.
https://www.herber.de/bbs/user/69764.xls
mfg rolf
Anzeige
AW: makro funktion
27.05.2010 15:54:18
ChrisL
Hi Rolf
Schwer zu durchblicken, aber denke folgendes müsste reichen...
Private Sub ComboBox2_Change()
ListBox1.ListIndex = ComboBox2.ListIndex + 1
Cells(ComboBox2.ListIndex + 2, 1).Select
End Sub
cu
Chris
AW: makro funktion
27.05.2010 17:47:56
rolf
hallo Chris
in der listbox wird der eintrag angezeigt.
super danke.
nun müsste nur noch die zeile in der tabelle angezeigt werden in dem der name steht.
mfg rolf
AW: makro funktion
27.05.2010 19:19:36
ChrisL
Hi Rolf
Die Zeile... ComboBox2.ListIndex + 2
Mit...
Cells(ComboBox2.ListIndex + 2, 1).Select
selektierst du die Zelle in Spalte A der jeweiligen Zeile
Verstehe nicht ganz wie/was du angezeigt bekommen möchtest... evtl. Spalte B...
Cells(ComboBox2.ListIndex + 2, 2).Select
cu
Chris
Anzeige
AW: makro funktion
27.05.2010 21:44:44
rolf
hallo Chris
danke für deine mühe.
wenn jetzt noch die zeile in der tabelle markiert wird oder der focus auf die zelle gesetzt wird,wäre es perfeckt.
mfg rolf
es funktioniert
27.05.2010 22:21:50
rolf
hallo
ich habe es !!
danke
mfg rolf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige