VBA: Werte neben dem Suchbegriff in Bereich
21.10.2013 21:22:00
UliBrenn
In einem Formular soll bei einem change-Ereignis in einer Textbox der Inhalt in einem im Namenmanager definierten Bereich (Spalte A) gesucht werden und der Wert rechts neben der Zelle (also eine Spalte weiter) in eine Textbox übertragen werden.
Ich kenne offset, rows, list und count als mögliche Methoden. Kriege aber den Code nicht zusammen.
Und finde trotz intensiver Suche keine passendes Makro im Netz bzw. Lösungsansatz.
Über untenstehendes Makro konnte ich meinen Wert schon finden.
Ich glaube aber, es ist der falsche Ansatz. Es fehlt auch noch die Aufnahme des Wertes rechts neben des Suchwertes in Spalte A. Wäre toll, wenn mich jemand auf die Spur bringen würde Danke!!!!
Sub SucheRechtDaneben()
Dim Suchbegriff As String
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
For i = 1 To 15000
Suchbegriff = Range("C1").Value
If Suchbegriff = Cells(i, 1).Value Then Exit For
Cells(i, 4).Value = Suchbegriff
Next i
End Sub
Anzeige