Wert via Msgbox suchen-Zeilenwert ausgeben
18.10.2019 13:40:37
Maya
ich bräuchte da mal bitte eure Hilfe.
Das Programm was ich schreiben möchte, soll folgende Funktion haben:
Der Nutzer wird aufgefordert eine PLZ einzugeben, der eingegebene Wert, wird dann in einem Tabellenblatt gesucht.
Wenn die PLZ gefunden wird, soll der Wert aus der jeweiligen Zeile in der Spalte J ausgegeben werden.
Ich habe bisher folgenden Code geschrieben
Sub Eingabe()
Dim Eingabe As String
Eingabe = InputBox("Bitte geben Sie eine PLZ ein")
End Sub
Sub PLZsuchen()
Dim i As Integer
Dim wks As Worksheet
Dim rng As Range
For i = 1 To Sheets("plz").UsedRange.Columns().Cells.Count
If Cells(i, 2).Value = Eingabe Then
End Sub
Ich hänge an dem Punkt, wo der Wert aus Spalte J für die jeweilige PLZ ausgelesen werden soll.
Bin über jede Hilfe dankbar..
Dankeschön:)
Anzeige