Finden und Wert ausgeben...........

Sub TestMakro1()
With Worksheets("Zahlenabgleich").Columns("H:H")
Set c = .Find(1904, LookIn:=xlValues)
If Not c Is Nothing Then
ErsteZelle = c.Address
Do
Set c = .FindNext(c)
NächsteZelle = c.Address(0, 0)
'Dieser Versuch geht nicht
'TestZelle = NächsteZelle.Offset(0, 1).Value
MsgBox TestZelle
Loop While Not c Is Nothing And c.Address  ErsteZelle
End If
End With
End Sub

Gruß Sonnenpeter