Hallo zusammen,
ich habe einfach ein Problem mit meinem VBA-Code und finde dafür einfach keine Lösung, sodass ich hoffe, dass Ihr mir helfen könnt.
Das Problem ist folgendes:
Ich gebe in die Zelle I9 in dem Tabellenblatt mit dem Namen Eingabemaske eine Zahl ein (z.B. 50500).
Mit Hilfe eines Makros soll in einem anderen Tabellenblatt (hier mit dem Namen Honorartafeln) in einer Tabelle der Wert gesucht werden, welcher der nächstkleinere ist.
Die Tabelle schaut so aus:
Spalte A Spalte B Spalte C
35.000,00 6.976,00 8.913,00
40.000,00 7.733,00 9.901,00
45.000,00 8.487,00 10.856,00
50.000,00 9.234,00 11.810,00
75.000,00 12.568,00 16.041,00
100.000,00 15.622,00 19.854,00
150.000,00 21.105,00 26.593,00
Da ich als Zahl nun 50500 eingab, müßte das Makro mir den Wert 50000 markieren.
Der bisherige Code schaut so aus:
Sub Markieren()
Dim suche As String, I As Long, Letzte As Long ', Obergrenze As Integer
Sheets("Kopie Honorartafel").Select
If [A110] = "" Then
Letzte = [A110].End(xlUp).Row
Else
Letzte = 110
End If
suche = Sheets("Eingabemaske").Range("I9").Value
On Error Resume Next
For I = 81 To Letzte
If Cells(I, 1) = suche Then Cells(I, 1).Select
Next
End Sub
Ich wäre Euch dankbar, wenn Ihr mir helfen könnt. Ich grübel wie verrückt, probierte mehrere Varianten aus, ich finde jedoch einfach keine Lösung.
Vielen Dank im voraus!
Martin