Finden und Wert ausgeben...........
15.07.2007 13:06:00
Sonnenpeter
ich habe da eine Suchroutine und möchte gerne den Wert der danebenliegenden Zelle (also in Spalte "I") 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