Datum über makro finden
10.12.2007 09:08:41
a.
ich habe ein kleines problemchen mit einem makro.
Fehlerbeschreibung:
in zelle A2 berechne ich mir mit "=DATUM(RECHTS(xxx!A3;4);TEIL(RECHTS(xxx!A3;10);4;2);LINKS(RECHTS(xxx!A3;10);2))" ein Datum aus einem text eines anderen tabellenblattes.
in der zeile B5 bis M5 berechne ich mir durch "=MONATSENDE(DATUM(JAHR($A$2);1;1);0)" das ende jedes einzelnen monats. die formel dient eigentlich nur um immer mit dem aktuellen jahr zu arbeiten und für das schaltjahr.
Nun soll anhand eines makro mit folgendem quellcode das datum aus A2 im bereich "B:M" gesucht und kopiert werden und die gesamte spalte kopieren.
Sub Copy()
Dim gefundeneZelle As Range
Set gefundeneZelle = Range("B:M").Find(What:=Range("A2"))
If gefundeneZelle Is Nothing Then
MsgBox "Der Eintrag '" & Range("A2") & "' wurde nicht gefunden!", vbInformation
Else
gefundeneZelle.EntireColumn.Select
End If
End Sub
leider findet er dabei keine übereinstimmung. da es funktioniert wenn ich das datum hart eintrage im bereich B:M vermute ich ein formatierungsproblem.
Das datum aus A2 wird korrekt übergeben.
hoffe das meine erklärung i.o. und hoffe natürlich auch hilfe zu finden
mfg