Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro - Werte ersetzen, aber nur sverweiß

Forumthread: Makro - Werte ersetzen, aber nur sverweiß

Makro - Werte ersetzen, aber nur sverweiß
28.06.2016 09:31:43
Berndt
Hallo Freunde,
ich möchte via Makro einen Bereich (D5:S1588) markieren.
Dieser Bereich hat verschiedenste Formeln.
Das Makro soll aber nur die Sverweise durch Werte ersetzen. die restlichen Formeln sollen bestehen bleiben.
Gibt es Möglichkeiten, dies zu programmieren?
Eine Schleife scheint mir bei der Anzahl an Zeilen nicht wirklich geeignet.
VG Berndt

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Werte ersetzen, aber nur sverweiß
28.06.2016 09:42:01
Daniel
Hi
das hier für den Fall, wenn die SVerweise wild verstreut im angegebenen Zellbereich stehen können. 
dim Zelle as range
for each Zelle in Range("D5:S1588").SpecialCells(xlcelltypeformulas)
if LCase(Zelle.Formula) like "=vlookup(*" then Zelle.Formula = Zelle.Value
next
bei einem sinnvollen Tabellenaufbau sollte man dafür sorgen, dass innerhalb einer Spalte alle Werte vom gleichen Typ sind und wenn die Spalte eine Formel enthält, dass alle Zellen dieser Spalte die gleiche Formel enthalten.
dann ließe sich das ganze etwas optimeren: 
dim Spalte as Range
For Each Spalte In Range("D5:S1588").Columns
if LCase(Spalte.Cells(1, 1).Formula) like "=vlookup(*" then Spalte.Formula = Spalte.Value
Next
die erste Schleife muss über 25.000 Zellen prüfen, die zweie Spalte nur 16
Gruß Daniel

Anzeige
AW: Makro - Werte ersetzen, aber nur sverweiß
28.06.2016 11:03:10
Berndt
also ich habe mir mal deinen Code für die Zellen gegriffen.
Sieht sehr verständlich aus. Danke dafür.
hab ihn marginal abgeändert: 
dim Spalte as Range
For Each Spalte In Range("D5:Q1588").Columns
if LCase(Spalte.Cells(1, 1).Formula) like "=IFERROR(*" then Spalte.Formula = Spalte.Value
Next
Die Schleife läuft über die Formeln, ersetzt diese aber nicht (in dem Falle =WennFehler (*) )

Anzeige
AW: Makro - Werte ersetzen, aber nur sverweiß
28.06.2016 11:11:53
Daniel
Hi
naja welche Formeln du ersezt, kannst du ja steuern.
wenn du deinen SVerweis noch in ein WennFehler gekapselt hast, und der SVerweis nicht am Anfang der Formel steht, dann eben noch ein Joker * vor dem Vlookup:
... Like "*vlookup*" ...
Gruß Daniel

Anzeige
AW: Makro - Werte ersetzen, aber nur sverweiß
28.06.2016 12:22:21
Berndt
Funktioniert. Ich danke vielmals

Forumthreads zu verwandten Themen

Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Anzeige
Nach Sheet namen suchen und Formel erstellen
Dirk

Hallo zusammen,
ich möchte in verschiedenen Worsheets dessen Vorhandensein vor dem öffnen nicht bekannt ist, in immer der gleichen Zelle (HK613) die Formel =STDEV(HK$5:HK$604) schreiben. Wie kann ich mittels VB nach bestimmenten worksheet namen suchen, und wenn vorhanden die Formel dort rei...
15.05.2009 17:08:23
Thread-ID: 1075555
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige