so:
Sub ZellAdresse()
Dim c As Range
'Falls der zu durchsuchende Bereich im Aktiven Blatt ist:
Set c = ActiveSheet.Range("A1:A100").Find(what:="DeinWert")
If Not (c Is Nothing) Then
'Falls Ausgabezelle in Aktivem Blatt sein soll:
ActiveSheet.[c8] = c.Address(False, False)
End If
End Sub
Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">
geschrieben von Worti , 19.04.2006, 12:00 Uhr , 47 mal gelesen