AndreasBess
08-18-2014, 07:14 AM
Hallo zusammen,
WENN ICH Anstätt Zellenverweis Zahlen verwende Geht der Kodex.
ICH müsste hier Aber einen Verweis zellen ersetzen. Hat hier Jemand EINE Idee ?
Sub tst ()
Dim r As Range Mit Sheets ("Kalkulation Stammdaten")
Set r = .Range ("M1: M1000")
r.Replace War: = "! Eingabemaske $ P $ 7", Ersatz :. = Range ("K2") Wert, LookAt :. = XlPart
r.Replace War: =, Ersatz "Eingabemaske $ P $ 8!": .. = Range ("K3") Wert, LookAt: = xlPart
r.Replace War: "Eingabemaske $ P $ 9" =, Ersatz :. = Range ("K4") Wert, LookAt :. = XlPart
End Mit
End Sub sterben formeln variieren Immer. Nur der Zellenbezug IST Gleich. Bsp. = Eingabemaske! $ P $ 7 * 0,49 / 1000 = Eingabemaske! $ P $ 7 * 0,14 / 784 = Eingabemaske! $ P $ 7 * 0,98452 / 452 ICH danke Euch für Den Rat
WENN ICH Anstätt Zellenverweis Zahlen verwende Geht der Kodex.
ICH müsste hier Aber einen Verweis zellen ersetzen. Hat hier Jemand EINE Idee ?
Sub tst ()
Dim r As Range Mit Sheets ("Kalkulation Stammdaten")
Set r = .Range ("M1: M1000")
r.Replace War: = "! Eingabemaske $ P $ 7", Ersatz :. = Range ("K2") Wert, LookAt :. = XlPart
r.Replace War: =, Ersatz "Eingabemaske $ P $ 8!": .. = Range ("K3") Wert, LookAt: = xlPart
r.Replace War: "Eingabemaske $ P $ 9" =, Ersatz :. = Range ("K4") Wert, LookAt :. = XlPart
End Mit
End Sub sterben formeln variieren Immer. Nur der Zellenbezug IST Gleich. Bsp. = Eingabemaske! $ P $ 7 * 0,49 / 1000 = Eingabemaske! $ P $ 7 * 0,14 / 784 = Eingabemaske! $ P $ 7 * 0,98452 / 452 ICH danke Euch für Den Rat