Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Suchen und ersetzen
18.08.2014 15:49:52 Andreas Bess
NotSolved
18.08.2014 23:46:58 Gast64072
NotSolved
19.08.2014 06:54:48 Andreas
NotSolved
19.08.2014 11:52:43 Gast21861
NotSolved
19.08.2014 11:53:14 Gast56036
NotSolved
19.08.2014 11:54:53 Gast57926
NotSolved

Ansicht des Beitrags:
Von:
Andreas Bess
Datum:
18.08.2014 15:49:52
Views:
1283
Rating: Antwort:
  Ja
Thema:
VBA Suchen und ersetzen


Hallo zusammen,

 

wenn ich anstatt dem Zellenverwis zahlen verwende geht der Code.

 

ich müsste hier aber einen Zellenverweis ersetzen

Hat mir hier jemand eine Idee?
 

 
Sub tst()
Dim r As Range

With Sheets("Kalkulation Stammdaten")
Set r = .Range("M1:M1000")
r.Replace What:="Eingabemaske!$P$7", Replacement:=.Range("K2").Value, LookAt:=xlPart
r.Replace What:="Eingabemaske!$P$8", Replacement:=.Range("K3").Value, LookAt:=xlPart
r.Replace What:="Eingabemaske!$P$9", Replacement:=.Range("K4").Value, LookAt:=xlPart
End With
End Sub




Die Formeln varieren 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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Suchen und ersetzen
18.08.2014 15:49:52 Andreas Bess
NotSolved
18.08.2014 23:46:58 Gast64072
NotSolved
19.08.2014 06:54:48 Andreas
NotSolved
19.08.2014 11:52:43 Gast21861
NotSolved
19.08.2014 11:53:14 Gast56036
NotSolved
19.08.2014 11:54:53 Gast57926
NotSolved