Hallo Holger,
warum führst du nicht den bestehenden Thread weiter? Das geht auch nachträglich noch. Dann eben hier:
Alles was du hättest tun müssen, ist die Sheetnamen in den Variablen am Beginn des Makros an deine Bedürfnisse anzupassen. Da du immer noch nicht geschrieben hast, in welchem Bereich sich deine Suchdaten befinden habe ich diesen jetzt auf das gesamte Blatt ausgeweitet (so wie bei deinem Code). Hier also nochmal der Code, nun angepasst für die Suche im gesamten Blatt.
Sub DatumSuchen()
Datum = Sheets("004-Heute").Range("D5")
Set Suchbereich = Sheets("003-Datenbank").Cells
Set c = Suchbereich.Find(Datum)
If Not c Is Nothing Then
x = c.Row - Suchbereich.Row + 1
With Suchbereich
c.Offset(0, 1) = "Text1"
c.Offset(0, 2) = 2 'usw.
End With
Suchbereich.Parent.Select
c.Select
End If
End Sub
Dieser Code muss natürlich dorthin, wo jetzt dein Makro steht. Am besten du überschreibst das einfach.
Noch eine Frage: Gibt es das zu findende Datum im Zielblatt nur ein einziges Mal oder mehrfach? Fall mehrere Daten gefunden werden sollen ist nochmal eine kleine Anpassung nötig.
Außerdem solltest du überprüfen, ob sowohl Suchdatum als auch die Datumsangaben im Zielblatt tatsächlich im Datumsformat und nicht im Textformat vorliegen. Das Datumsformat erkennst du daran, dass es rechtsbündig ausgerichtet ist, obwohl der Bereich nicht rechtsbündig formatiert wurde.
zu: "Die Zicken, die mir der VBA-Editor präsentierte will ich gar nicht erst auflisten."
Doch, genau das ist wichtig bei Problemen. Ich kann ja deienn Bildschirm nicht sehen. Die Meldungen können somit helfen, herauszufinden was bei dir schiefläuft. Bei mir geht alles.
Gruß Mr. K.
|