Scuhen und Ersetzen
04.01.2005 11:49:38
Flo
da es nun 2005 ist, wollte ich die folgende Formel durch suchen und ersetzen auf 05 bringen
'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Uhlig QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Schlee QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Reinhardt QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Lottes QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Kaiser QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Hoyer QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Enzmann QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Csernitz QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Bauer QS.xls]Jan 04'!G33+'H:\GA\QM\QS\Statistik QS\GJ 04\Erfassung Tagesblätter QS\[Monatsblatt Skorupa QS.xls]Jan 04'!G33
Er bringt mir aber bei der Erstezen Funktion die MEldung "Formel zu lang!". OK, hab da noch ne Funktion gefunden:
Private Sub CommandButton1_Click()
With Selection
.NumberFormat = "@"
.Replace What:="04", Replacement:="05", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
End With
End Sub
Diese funktioniert aber leider nciht in dieser Tabelle. Bei einem anderen Arbeitsblatt macht er es einwandfrei....
Hat jmd evtl eine Lösung?
Danke
Flo