Hallo Robert,
da du mit einer Formel arbeitest und diese so in seiner Form bestehen lässt, ist es logisch dass diese sich aktualisiert.
Entweder musst du die Formel durch seinen Wert ersetzen und bei dem nächsten Klick einfach eine Formel neu einfügen und durch seinen Wert ersetzen oder aber du schreibst den Wert ohne Formel in die Zelle ein.
So lange du weisst welche Zelle den Wert erhalten muss klappt es wie folgt:
Sub Stamp()
Range("F177").Formula = "=VLOOKUP(A175,Verarbeitung!B5:C20,2,FALSE)"
Range("F177").Copy
Range("F177").PasteSpecial xlPasteValuesAndNumberFormats 'Falls er das Format mit übernehmen soll wobei es hier eh schon in der Zelle stehen wird.
End Sub
Alternativ dazu ohne Formel
Sub FindeText()
Dim CatchTarget, Ergebnis As String
Dim c As Range
With Range("B5:B20") 'Suchfeld hier nur die kolonne angeben. Er findet dann die entsprechende Zeile
Set c = .Find([CatchTarget], LookIn:=xlValues)
If Not c Is Nothing Then
Debug.Print "Cells(" & c.Row & "," & .Column & ")" 'Gibt dir die Zelle wieder
Ergebnis = Cells(c.Row, 3) 'Kolonne C = 3
End If
End With
End Sub
|