Wert suchen und in andere Zeile springen
25.09.2018 22:55:19
K
Bin neu in VBA und ich stecke fest...
Also sagen wir mal ich habe folgende Tabelle:
.....A..................................B...........C
1. HausA........................... 1.......... K1
2. HausB.......................... 2...........K2
3. HausC.......................... 3...........K3
Ich möchte in einem Eingabe Feld ein Wert eingeben aus C und der soll mir dann den wert aus der gleichen Zeile von B und A raus geben.
Ich möchte also z.b. K2 eingeben in dem Inputfeld und er soll mir 2 sagen und HausB
Wie macht man das?
Habe bisher folgenden Code, aber ich komm nicht drauf wie es weiter geht :-(
Sub Zelle()
Dim finden As Range
Dim Wert As String
Wert = InputBox("Bitte Wert eingeben", "Makro", "Bsp.:K1")
Set finden = Range("A2:D9").Find(what:=Wert)
MsgBox "Die Suche lautet: " & finden & " hier fehlt mir de Befehl das er eine Zeile vorher _
anzeigt
End Sub