Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und ersetzen per Makro

Suchen und ersetzen per Makro
11.10.2022 14:49:21
Dieter
Moin aus Hamburg,
in einem Tabellenblatt generiere ich eine Reihe von Excel Formeln als Text. Beispiel:
Inhalt von Zelle A1: =
Inhalt von Zelle A2: C1
Inhalt von Zelle A3: +
Inhalt von Zelle A4: C2
Das erzeugt in Zelle A6 mit der Formel TEXTVERKETTEN(;Wahr;A1:A4) diese Zeichenfolge
(keine Formel): =C1+C2
Mit markierter Zelle A6 und Strg-F wird nach '=' gesucht und durch '=' ersetzt.
Dadurch entsteht ein echtes Gleichheitszeichen und in Zelle A6 werden die Inhalte von
C1 und C2 (z.B. 3 und 5) zu 8 addiert.
Das funktioniert an Stelle von A6 auch für ganze Bereiche.
Diese manuelle Verfahren ist mir zu fehleranfällig. Deshalb habe ich während des manuellen
Ersetzens dieses Makro aufgezeichnet:

Sub Makro8()
' Makro8 Makro
ThisWorkbook.Sheets("Eng").Range("Eng_FrmDmy2").Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Hiermit werden aber keine von Excel verarbeitbare Formeln erzeugt. Es bleibt bei
Zeichenfolgen.
Schon mal Danke vorab und beste Grüße
Dieter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und ersetzen per Makro
11.10.2022 14:57:47
{Boris}
Hi,
mach es so:
Selection.Value = Selection.Value
BTW: =TEXTKETTE(A1:A4) reicht,.
VG, Boris
AW: Suchen und ersetzen per Makro
11.10.2022 15:47:09
Dieter
Hallo Boris,
Dein Vorschlag funktioniert, wenn es sich um wenige Zellen
in den ersten Spalten der Tabelle handelt. In meiner Tabelle
stehen etwa 1300 Zellen im Spaltenbereich TA bis AAA.
Da verabschiedet sich das Makro mit 'zu wenig Speicher'.
Selbst, wenn ich eine einzelne Zelle in der Mitte meiner
Tabelle behandele, steigt das Makro aus.
Beste Grüße
Dieter
AW: Suchen und ersetzen per Makro
11.10.2022 16:49:08
Daniel
Hi
dann könntest du probieren, ob es besser geht wenn du es einzeln machst:

dim Zelle as range
for each Zelle in Selection
if Zelle.Value Like "=*" Then Zelle.Formula = Zelle.Value
next
(ggf auch Zelle.FormulaLocal = Zelle.Value wenn die Formeln in Deutsch geschrieben sind.
Gruß Daniel
Anzeige
AW: Suchen und ersetzen per Makro
11.10.2022 15:03:12
Daniel
Hi
Da fehlt noch ein Schritt.
Du musst Zelle A6 kopieren und als Wert einfügen.
Diesen Wert kannst du dann mit Ersetzten in eine Formel wandeln, aber nicht die Formel selbst.
Gruß Daniel
AW: Suchen und ersetzen per Makro
11.10.2022 15:40:32
Dieter
Moin Daniel,
ich schicke Die mal das gesamte Makro. Darin wird ein Bereich kopiert,
die Werte daraus an anderer Stelle als Zeichenfolgen eingesetzt. Also
gibt es das von Dir angesprochene Kopieren und Einsetzen.
Danach kommt das Ersetzen von '=' durch '=', was automatisch
nicht funktioniert, aber danach manuell mit Strg-F "Suchen und
Ersetzen".

Sub Eng_UpdEng()
'2022-10-11
'check if locked
If ThisWorkbook.Sheets("Eng").Range("Eng_UpdEngBtn") = "" Then
Exit Sub
End If
'declarations
'Dim Day As Integer 'loop counter
Dim SrcRng As Range 'formula sources 'Eng_FrmSrc' and 'Eng_Day00Src'
Dim TgtRng As Range ''Eng_Day00Tgt' for formulas from 'Eng_FrmSrc'
'and 'Eng_Day00Tgt' ... 'Eng_Day38Tgt' for 'Eng_Day00Src'
ActiveSheet.Unprotect
'copy formulas (range 'Eng_FrmSrc', currently 'Eng!$905:$940')
ThisWorkbook.Sheets("Eng").Range("Eng_FrmSrc").Select
Selection.Copy
'paste contents
'select target (range 'Eng_Day00Tgt', currently 'Eng!$A$1005')
ThisWorkbook.Sheets("Eng").Range("Eng_FrmDmy1").Select
'paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'replace text "=" with formula "=" (range 'Eng_FrmSrc', currently 'Eng!$1005:$1040')
'select formula range in Day 00 '905 ... 940 => 5005 ... 5040
ThisWorkbook.Sheets("Eng").Range("Eng_FrmDmy2").Select
'replace
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveSheet.Protect
End Sub
Der Vorschlag von Boris, den replace Teil durch 'Selection.Value = Selection.Value'
zu ersetzen, funktioniert nur bei einer kleinen Anzahl von Formeltexten, und das
auch nur, wenn die sich in den ersten Spalten befinden.
In meinem Fall sind das insgesamt ca. 1300 Formeltexte im Bereich der Spalten TA bis AAA.
Beste Grüße
Dieter
Anzeige
AW: Suchen und ersetzen per Makro
11.10.2022 16:05:41
Daniel
Hi
Ich fass mal den Code auf das wesentliche zusammen und schreibe die Zeilen direkt untereinander.
Vielleicht fällt dir dann dein Fehler selber auf, zumindest vermute ich mal, das es der Fehler ist, denn beurteilen kann ich das ohne die Datei nicht.
Also hier mal die wichtigen Zeilen, reduziert auf die notwendigen Parameter und ohne das Überflüssige .Select/Selection.
Siehst du jetzt, wo der Fehler liegen könnte?
Du musst ja das Ersetzten in dem Zellbereich ausführen, in dem du die erzeugten Formeltexte eingefügt hast.

With  ThisWorkbook.Sheets("Eng")
.Range("Eng_FrmSrc").Copy
.Range("Eng_FrmDmy1").PasteSpecial Paste:=xlPasteValues
.Range("Eng_FrmDmy2").Replace What:="=", Replacement:="=", LookAt:=xlPart
End With
Gruß Daniel
Anzeige
Noch ein Hinweis
11.10.2022 16:45:30
Daniel
Wenn man manuell mit Suchen/Ersetzen arbeitet, müssen die Formeltexte in der deutschen Schreibweise geschrieben sein.
Macht man das aber per Makro, braucht man die Amerikanische Formelschreibweise als Text, dh Komma als Parametertrennzeichen und englische Funktionsnamen.
Solange du nur einfache Berechnungen mit +-*/ machst, gibt es keinen Unterschied.
Sobald du Funktionen (Summe()...) verwendest, musst du das beachten.
Vielleicht sollest du mal die Datei hochladen.
Gruß Daniel
anstatt = durch = zu ersetzen, ...
11.10.2022 16:15:04
Rudi
Hallo,
... ist es imho sinnvoller, den Text direkt in eine Formel umzuwandeln.
Schema:

Selection.FormulaLocal = Selection.Value
Gruß
Rudi
Anzeige

312 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3