Makro Wert aus Zelle auslesen und ersetzen

Hallo Alex,

wenn Bereiche angesprochen werden, die auf unterschiedlichen Blättern liegen, musst du exakt referenzieren.

Für die Werte, die die alten Werte ersetzen sollen, probiere z.B.:

'Hier Blattname anpassen

WertAlt = Sheets("Tabelle1").Range("B22")

WertNeu = Sheets("Tabelle1").Range("C22")

oder

With Sheets("Tabelle1")

    WertAlt = .Range("B22")

    WertNeu = .Range("C22")

End With

Der Befehl zum Ersetzen muss dann so geändert werden:

Sheets("Rückstellungen").Range("B13:B18").Replace what:=WertAlt, replacement:=WertNeu

Claus

Hallo Alex,

probiere es mal so:

Sub Ersetzen()

Dim WertAlt, WertNeu
WertAlt = Range("B22")

WertNeu = Range("C22")Range("B13:B18").Replace what:=WertAlt, replacement:=WertNeu

End Sub

Claus

Das hat super geklappt.

Danke.

Hast du vielleicht auch noch eine Idee, wie ich das machen kann, dass der B13 bis B18 in einem anderen Tabellenblatt mit den Werten ersetzt?

Also wenn B13 bis B18 nicht im gleichen Tabellenblatt wie B22 stehen, sondern im Tabellenblatt Rückstellungen?

Vielen Dank im Voraus für deine Hilfe.

Viele Grüße

Alex

Hallo Ernst,



auf der Webseite sind die Währungen mit Punkt als Dezimaltrenner angelegt. Je nach Wert kann dann beim Import ein Datum daraus werden. Also zuerst Rechtsklick => Abfrage bearbeiten => Optionen und dort "Datumserkennung deaktivieren" aktivieren. Stelle nach
dem Import den Cursor in die erste Zelle und gehe auf Suchen und Auswählen => Ersetzen: Suchen nach Punkt, Ersetzen durch Komma. Damit hast du dann Werte im Blatt. Sollten noch Datumswerte vorkommen, klicke in den Spaltenkopf und formatiere die Spalte mit
Zahlen mit 2 Dezimalstellen.

Den Vorgang mit Suchen un Ersetzen musst du leider nach jeder Aktualisierung wieder durchführen. Wenn du das automatisieren möchtest, lasse während dem Vorgang den Makrorekorder ein Makro aufzeichen, dann musst du zukünftig nach dem Importieren nur das MAkro
aufrufen.



Mit freundlichen Grüßen

Claus

Hallo Sabrina,

eine Funktion gibt dir einen Wert zurück und ist nicht für Formatierungen geeignet. Aber in der Prozedur (Sub) könntest du einfach den hartcodierten Range mit ActiveCell ersetzen.

Der Benutzer muss dann zuerst die gewünschte Zelle selektieren und dann das Makro aufrufen.

Wenn du das für einen größeren Bereich machen möchtest, kannst du auch mit einer Schleife über den Bereich arbeiten.

Mit freundlichen Grüßen

Claus