Hallochen,

ich würde dazu ein Makro schreiben.

LG Martina

Hallo Ignaz,

das Makro dazu würde wie folgt aussehen.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Sub Übereinstimmungen_finden()
Dim Suchbegriff As Range
Dim Addresse As String
With Range("C20:U27")
Set Suchbegriff = .Find(What:=Range("A1"), LookIn:=xlValues)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
End Sub

[/b]

Wobei hier nicht der Wert in eine Variable geschrieben wird, sondern die gefundene Stelle farblich (grün) markiert wird. Denn ich habe nicht ganz verstanden, was Du für einen Wert in eine Variable schreiben lassen möchtest, denn der Wert steht ja eigentlich in Zelle A1. Aber das schreiben in eine Variable wirst Du sicherlich alleine hinbekommen. Das Schreiben in die Variable muss an der Stelle im Makro geschehen, wo

[b]Suchbegriff.Interior.ColorIndex = 4[/b]

steht.

Ich hoffe, Du kommst klar.

@Martina: Die Antwort ist mehr als flüssig, da aus der Frage "VBA Find-Methode" bereits hervorgeht, dass Ignaz eine Makrolösung sucht.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke Oliver,

damit komme ich weiter.

Gruß
ignaz