Wert in Spalte suchen und Zelle aktivieren

Hallo zusammen,
sitze nun schon länger an meinem VBA-Code und finde nicht die richtige Lösung im Netz.
Ich möchte die Spalte H durchsuchen, nach einem Wert, den ich aus einer Zelle auslese. Als Rückinfo soll die Zeilennummer in eine Zelle geschrieben werden oder die entsprechende Zelle in der Spalte aktiviert werden.
Das klappt auch soweit, solange ein Wert vorhanden ist. Wenn der Wert nicht vorhanden ist kommt immer eine Fehlermeldeung.
Wer kann mir helfen?
Vielen Dank
Michael

Sub Codesuche()
Dim Zeile As Long
Dim Eingabe As String
Sheets("PLdat").Select
Range("h7").Select
Eingabe = Worksheets("Kunde").Cells(5, 4).Value
Zeile = Sheets("PLdat").Columns("h:h").Find(What:=Eingabe, After:=ActiveCell, LookIn:= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Range("d7").Value = Zeile
Range("d7").Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Codesuche() Dim Zeile As Range Dim Eingabe As String Sheets("PLdat").Select Range("h7").Select Eingabe = Worksheets("Kunde").Cells(5, 4).Value Zeile = Columns("h:h").Find(What:=Eingabe, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not Zeile Is Nothing Then MsgBox ("Nicht vorhanden") End If Range("d7").Value = Zeile Range("d7").Select End Sub

ich hätte angenommen Du möchtest was in die Zelle schreiben falls gefunden. Du möchtest aber jetzt eine Msgbox mit dem Text "Nicht gefunden" obwohl gefunden.
Und den Fehler möchtest Du nicht Behandelt haben.
Ich kann Dir da Leider nicht weiter helfen, da ich die Aufgabe wohl Falsch verstanden habe.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Gruß Hajo

Sub Codesuche() Dim Zeile As Range Dim Eingabe As String Sheets("PLdat").Select Range("h7").Select Eingabe = Worksheets("Kunde").Cells(5, 4).Value Zeile = Columns("h:h").Find(What:=Eingabe, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not Zeile Is Nothing Then Range("D7").Value = Zeile.Row Range("D7").Select Else MsgBox ("Nicht vorhanden") End If End Sub

Sub Codesuche() Dim Zeile As Long Dim Eingabe As String Sheets("PLdat").Select Range("h7").Select Eingabe = Worksheets("Kunde").Cells(5, 4).Value On Error GoTo xx Zeile = Sheets("PLdat").Columns("h:h").Find(What:=Eingabe, After:=ActiveCell, LookIn:= _ xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Row Range("d7").Value = Zeile Range("d7").Select Exit Sub xx: MsgBox "Wert nicht gefunden " & Eingabe End Sub

Beliebteste Forumthreads (12 Monate)

Wert in Spalte suchen und Zelle aktivieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Spalte suchen und Zelle aktivieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread