VBA-Änderungsscript - trotzdem Datei-Suche
19.09.2005 09:18:11
Fabio
durch Hilfe des Forums habe ich es geschafft, das in "meiner" Tabelle
a) erst die "Letze" Zeile Kopiert wird
b) dann die Daten der letzen Zeile "entsprechend" ersetzt werden (die Suchen/Ersetzen-Werte sind in der Zelle A3/A5 definiert.
Meine Dateien haben den Namen (z.B. für den 13.09.2005) 050913.xls. Excel soll ja mit der Suchen/Ersetzen jeweils das "neue" Datum eintragen.
Beispiel : in A3 steht "050913" in A5 steht "050914"
Nun das Problem : Er ergänzt die Zeile, er tauscht die Daten auch aus. Nur findet er nicht die "Datei" zum ersetzen. "Markiere ich die Zeile manuell, gehe ich manuell auf Suchen nach "050913" und Ersetzen durch "050914" funktioniert es Problemlos.
Weiß jemand Rat ?
Hier das Script :
Sub letzte_zeile_kopieren()
Rows(Range("A65535").End(xlUp).Row).Copy
Rows(Range("A65535").End(xlUp).Row + 1).Insert
Rows(Range("A65535").End(xlUp).Row).Select
Selection.Replace What:=Sheets("Tage").Range("A3"), _
Replacement:=Sheets("Tage").Range("A5"), LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Danke !
Fabio