Brauche Hilfe von euch (Datum kopieren und finden)
27.06.2005 08:46:06
Thorsten
nach viel zeitaufwendung hab ich nun dieses makro hier. Es funktioniert gut bis auf die kleinigkeit, dass es nur den wert von J270 in die entsprechende C spalte kopiert wenn ich in der B spalte manuell ein datum eintrage, d.h z.b bei B277 01.08.2005 dann findet er das datum und kopiert den wert in die nachbarspalte aber sobald in B277 meine formel =B276+TAG(DATUM(JAHR(B275);MONAT(B275)+1;-TAG(B275)))+1 steht dann findet er das datum nicht obwohl es auch der 01.08.2005 ist... woran könnte es liegen?? bin am verzweifeln falls ihr es lösen könnt dann ändert bitte mein unten stehendes makro so damit er in den spalten B274 bis B309 das datum erkennt welches sich hinter meiner formel verbirgt und nicht die formel! DANKE für jede Hilfe im voraus
Sub Makro1()
wert = Range("J270")
such = Range("E270")
Range("B274:B309").Select
Selection.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1) = wert
End Sub
bei unverständlichkeiten bitte fragen!
DANKE!