29.11.2016, 15:59
(Dieser Beitrag wurde zuletzt bearbeitet: 29.11.2016, 16:35 von WillWissen.
Bearbeitungsgrund: Smilies deaktiviert
)
Hallo zusammen,
ich bin es schon wieder.
In meiner Anwendung verändere ich mit dem Befehl
With Application.Intersect(Range("D11:D16,D18:D22,D25:D38,D40:D44").EntireRow, .EntireColumn)
'in den kopierten Formeln "Firma 1" durch "Firma imax+1" ersetzen
.Replace What:="Firma 1", Replacement:="Firma " & iMax + 1, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, _SearchFormat:=False, ReplaceFormat:=False
die Bestandteile von Formeln nach einem Kopiervorgang.
Leider befindet sich in der Zelle D11 ein Hyperlink auf ein anderes Tabellenblatt, welcher entsprechend angepasst werden muss.
Wer hat eine Idee?
Gruß Michael
ich bin es schon wieder.
In meiner Anwendung verändere ich mit dem Befehl
With Application.Intersect(Range("D11:D16,D18:D22,D25:D38,D40:D44").EntireRow, .EntireColumn)
'in den kopierten Formeln "Firma 1" durch "Firma imax+1" ersetzen
.Replace What:="Firma 1", Replacement:="Firma " & iMax + 1, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, _SearchFormat:=False, ReplaceFormat:=False
die Bestandteile von Formeln nach einem Kopiervorgang.
Leider befindet sich in der Zelle D11 ein Hyperlink auf ein anderes Tabellenblatt, welcher entsprechend angepasst werden muss.
Wer hat eine Idee?
Gruß Michael