Find in anderem Tabellenblatt, Laufzeitfehler
16.07.2019 18:50:37
Landumin
Ich hoffe, ihr könnt mir bei meinem Anliegen weiterhelfen:
Ich möchte im Tabellenblatt "Eingabe" aus einer Dropdown-Liste in C5 einen Kundennamen (z.B. Maier) auswählen , damit später im entsprechenden Kundenblatt "Maier" nach einem definierten Jahr gesucht werden kann. Die Jahreszahl (z.B. 2020) wähle ich ebenfalls im "Eingabe"-Blatt aus einer Dropdown-Liste aus (D5).
Ziel ist es, via Klick auf die Schaltfläche im entsprechenden Kundenblatt (Variable a) das gesuchte Jahr (Variable b) in der Zeile 50 zu finden (die Spalte ist unbekannt), in einem weiteren Schritt benötige ich dann die Spaltenposition der Variable b für weitere Aktionen.
Allerdings hänge ich direkt an einem Fehler, die Suche "Set b = Worksheets("Kundenbatt").Rows(50).Find(a, lookat:=xlWhole, LookIn:=xlValues, searchorder:=xlByRows, MatchCase:=True)" liefert immer den Fehler: "Index außerhalb des gültigen Bereichs". Weiß jmd, wie ich es schaffe, dass im "Kundenblatt" gesucht wird?
Da ich ein VBA-Neuling bin, finde ich leider keine passende Lösung (habe bereits zahlreiche Foren durchforstet).
----------------------------------------------------------
Option Explicit
Dim Kundenblatt As String
Dim y As Long
Dim z As Long
Dim s As Long
Dim k As Long
Dim b As Range
Dim a As Long
Dim x As Long
Public Sub Schaltfläche1_Klicken()
Kundenblatt = Worksheets("Eingabe").Range("C5")
a = Worksheets("Eingabe").Range("D5")
Set b = Worksheets("Kundenbatt").Rows(50).Find(a, lookat:=xlWhole, LookIn:=xlValues, _
searchorder:=xlByRows, MatchCase:=True)
x = Worksheets("Kundenblatt").Cells(89, b.Column).Value
z = Worksheets("Kundenblatt").Cells(90, b.Column + 3).Value
End Sub
Ich hoffe, ihr könnt mir weiterhelfen!
Vielen Dank :)
VG
