Zeilennummer finden und in Variable speichern
11.12.2013 11:40:24
Stephan
Habe in der Vergangeheit schon viele gute Beiträge finden können, die mir geholfen haben. Aber im Moment stehe ich vor einem Problem, dass ich nicht lösen kann.
Ich habe eine Listbox, die mir auf eine Abfrage einige Details von Adressen ausgiebt. Ich kann nun eine Zeile in der Listbox anklicken. Danach drücke ich einen Button, der die Weiterverarbeitung auslöst und die entsprechende Tabellen-Zeile komplett in ein Userform überträgt. In der ersten Kolonne der Listbox ist der (einzigartige) Identifier für diesen Eintrag angegeben.
Theoretisch möchte ich nun diesen Identifier aus der markierten Zeile in der ListBox auslesen, in der Tabelle suchen und die zugehörige Zeile für die Weiterverarbeitung in einer (Makrointernen) variable speichern.
Das Auslesen aus der Listbox funktioniert. Ebenso das eintragen in die Userform, sofern ich statische Zahlen für die Variable nehme.
Sobald ich auf eine x-beliebige Version von "Find" zurückgreife, bekomme ich einen Runtime-Error 91.
Der Identifier kann sowohl Zahlen als auch Buchstaben enthalten.
Wäre echt froh, wenn mir jemand weiterhelfen kann.
Private Sub butBearbeiten_Click()
Dim Adressnummer As String
Dim Eintrag As Long
Dim WkSh As Worksheet
Set WkSh = ThisWorkbook.Worksheets("Adressen")
With libSuchausgabe
.TextColumn = 1
Adressnummer = .Text
'Eintrag = .Text
End With
Eintrag = WkSh.Columns("A:A").Find(What:=Adressnummer, LookIn:=xlValues,_ Lookat:=xlWhole). _
_
Row
Unload Me
frmKontaktbearbeiten.Show vbModeless
frmKontaktbearbeiten.txtKategorie.Value = WkSh.Cells(Eintrag, 2)
End Sub
Danke und Gruss
Stephan