Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


VBA-Lösung für Suchen und Ersetzen (STRG+H)
#1
Hallo Freunde,

das folgende aufgezeichnete Makro soll mir in Spalte F Einträge ersetzen (und dadurch Tipparbeit ersparen). In Listen, die in unregelmäßigen Abständen ergänzt werden, stehen in manchen Zeilen "erster Termin" bzw. "zweiter Termin". Der zweite bezieht sich generell auf das aktuelle Datum, der erste 10 Tage vom aktuellen Datum gerechnet in der Vergangenheit (=heute() bzw. =heute()-10)

Ich hatte nun zum Aufzeichnen gedacht, ich schreibe die beiden Formeln in Hilfszellen und vergebe Namen (Termin1 und Termin2), um diese als Suchkriterium zu benutzen. Allerdings weiß der Makrorekorder nicht, dass es sich um Namen handelt und ersetzt nur Text.

Code:
Sub Aktualisieren()
'
' Aktualisieren Makro
'

'
    Range("F:F").Replace What:="erster Termin", Replacement:="Termin1", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("F:F").Replace What:="zweiter Termin", Replacement:="Termin2", LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Meine Fragen:

1. Brauche ich für mein Vorhaben die Hilfszellen überhaupt?
2. Wie lautet die Anweisung für Replacement?

Schon jetzt vielen Dank für eure Hilfe.
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#2
Hallo Günter

Ich bin nicht der VBA-Experte aber ich würde vermuten dass statt "Termin1" Range(Termin1) funktioniert.
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
[-] Folgende(r) 1 Benutzer sagt Danke an shift-del für diesen Beitrag:
WillWissen
to top
#3
(06.11.2014, 06:58)shift-del schrieb: Hallo Günter

Ich bin nicht der VBA-Experte aber ich würde vermuten dass statt "Termin1" Range(Termin1) funktioniert.

Hi Detlef,

ganz lieben Dank. Bei deinem Vorschlag fehlten lediglich die Anführungseichen. So hat's einwandfrei geklappt:

Code:
Replacement:=Range("Termin1")
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#4
Zitat:Bei deinem Vorschlag fehlten lediglich die Anführungseichen).
Das wäre dann mein nächster Vorschlag gewesen. 19
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
to top
#5
Hi Günter,

sowas ginge auch:

Code:
Sub Aktualisieren()
  Range("F:F").Replace What:="erster Termin", Replacement:=Date - 10, LookAt:= _
      xlPart, SearchOrder:=xlByRows, MatchCase:=False
  Range("F:F").Replace What:="zweiter Termin", Replacement:=Date, LookAt _
      :=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

Gruß Uwe
[-] Folgende(r) 2 Benutzer sagen Danke an Kuwer für diesen Beitrag:
WillWissen, Wulfi
to top
#6
Hi Uwe,

auch dir ganz lieben Dank. Ich werde deinen Codevorschlag einbauen - ich erspare mir hier die Hilfszellen. Somit ist auch meine erste Frage erledigt.
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Ersetzen von Bestandteilen in Hyperlinks Icepic 2 42 29.11.2016, 17:23
Letzter Beitrag: Fennek
  #Wert! mit "Text" ersetzen VBA GustavL 10 130 29.11.2016, 14:47
Letzter Beitrag: GustavL
  Ersetzen mit "Zelleninhalt" bei Makro madcorby 4 80 11.11.2016, 17:56
Letzter Beitrag: schauan
  Excel VBA: Suchen und Ersetzen Goleo 1 50 08.11.2016, 14:52
Letzter Beitrag: Kuwer
  Suchen und Ersetzen innerhalb einer Zelle Nelson 4 98 04.11.2016, 14:16
Letzter Beitrag: Kuwer
  Lösung ohne Marko nur mit Formel artcreativity 14 316 31.10.2016, 15:20
Letzter Beitrag: artcreativity
  individuelle Excel Lösung verzweifelte Mitarbeiterin 5 174 14.09.2016, 12:58
Letzter Beitrag: Gast 123
  mehrfaches suchen & ersetzen pipo_ 5 264 07.09.2016, 14:47
Letzter Beitrag: pipo_
  Lösung zu: Automatische sortierung der Tische Gast 123 2 212 17.08.2016, 15:32
Letzter Beitrag: Gast 123
  Excel Lösung leere Zeilen einfügen sytec 17 865 03.08.2016, 19:29
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste