Hi,

versuche es hiermit

Sub zellinhalt_suchen()
    Dim raZelle As Range
    With Worksheets("Tabelle4").Columns(1)
        Set raZelle = .Find(Worksheets("Tabelle1").Range("A1"), lookat:=xlWhole, LookIn:=xlValues)
        If Not raZelle Is Nothing Then
            Worksheets("Tabelle1").Range("A2") = raZelle.Offset(0, 2).Value
        End If
    End With
    If raZelle Is Nothing Then MsgBox "Suchbegriff nicht gefunden"
    Set raZelle = Nothing
End Sub

Der zu suchende Wert steht in Tabelle1 A1, der gefundene wird in Tabelle1 A2 eingetragen

Bis später,
Karin

vielen dank karin.
hat mir erst mal ganz geholfen..
nun hab ich meine datei nochmal überarbeitet und wollte fragen wie ich dein programm überarbeiten oder vervollständigen muss, dass er wenn das gesuchte gefundne ist, nach einem weiteren kriterium vergleichen soll.
wenn das zweite nicht erfüllt ist einfach weitersuchen. und dann erst die meldung.

danke

Hi,

da musst du schon ein wenig genauer beschreiben, was genau du machen willst. Wo soll das Kriterium entnommen werden? Wo soll gesucht werden? Wo soll es hingeschrieben werden?

Bis später,
Karin