VBA suche/finden/eintragen
21.09.2018 12:07:08
Marquardt
ich möchte in Spalte A einen Wert suchen und durch Eingabe der Spalte den Wert in die eingegebene Spalte/Zeile eintragen.
Die richtige Zeile wird gefunden, aber die Eingabe erfolgt immer in Spalte A.
Vielleicht hat jemand eine Idee!
Sub SuchespalteundzeileUndEingabe1()
Dim suchWert As String
Dim eingabeWert As String
Dim fndCell As Range
Dim findSpalte As Range
suchWert = InputBox("Geben Sie einen Wert ein:", _
"Suchwert Eingabe")
If suchWert = "" Then Exit Sub
Set fndCell = ActiveSheet.Columns(1).Find(what:=suchWert)
If fndCell Is Nothing Then
MsgBox suchWert & " wurde in Spalte A nicht gefunden!", vbCritical, "Suche erfolglos"
Else
spaltenWert = InputBox("Wert " & suchWert & " wurde in Zeile " & fndCell.Address(0, 0) & " _
gefunden." & "Bitte geben Sie die Spalte für den Wert an!", "Test1")
eingabeWert = InputBox(vbCrLf & "Bitte geben Sie den Wert für die Zelle ein!", "Test2")
ArrSpalten = spaltenWert
fndCell.Offset = eingabeWert
End If
End Sub