Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Zeichen an versch. Stellen ersetzen

Forumthread: Gleiche Zeichen an versch. Stellen ersetzen

Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 10:48:58
Christian
Hallo,
Ich habe folgendens Problem:
Ich habe mehrere Zellen mit unterschiedlichen Text und Textlänge.
In manchen dieser Zellen stellen $-Zeichen, Anzahl der $-Zeichen kann variieren.
Bsp.: 
Abgastemperatur
bei Systemtemp. 55/30:           $$$ C
bei Systemtemp. 75/60:           $$$ C
Heizgass. Widerstand:          $$$$ mbar
Abmessungen
Länge:                         $$$$ mm
Breite:                        $$$$ mm
Höhe:                          $$$$ mm
Ich möchte per VBA in jeder Zeile alle $-Zeichen ersetzen, das ich nur noch EIN(1) $-Zeichen je Zelle habe, bzw. ein anderes makantes Zeichen.
In Excel direkt bekomme ich es mit folgender Formel hin: 
=ERSETZEN(A1;SUCHEN("$";A1);LÄNGE(A1)-(LÄNGE(WECHSELN(A1;"$";"")));"$")
In VBA würde ich es mit der Replace-Funktion machen, leider scheitere ich daran, die Anfangsstelle und Länge der $-Zeichen einzubinden.
Mit freundlichen Grüßen
Christian

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 11:08:10
Rudi
Hallo,
als Ansatz: 
Sub aaa()
Dim x, y
x = "bei Systemtemp. 55/30:           $$$ C"
y = InStr(x, "$")
x = Left(x, y) & Replace(Mid(x, y), "$", " ")
MsgBox x
End Sub

Gruß
Rudi

AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 11:15:09
Christian
Hallo Rudi,
funktioniert für einzelne Zelle sehr gut!!!
Leider nicht in einer schleife die mir alle Zellen durchgehen soll :(
mfg Christian

Anzeige
AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 11:29:09
Rudi
Hallo,
das ist ein Ansatz!
Bei VBA gut solltest du selbst in der Lage sein, das zu modifizieren.
Gruß
Rudi

AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 12:01:18
fcs
Hallo Christian,
hier eine Variante mit Eingabe-Möglichkeit für die Zeichen und Bearbeitung des selektierten Zellbereichs in einer Schleife.
Gruß
Franz 
Sub Ersetzen_Zeichen()
'ersetzt im selektierten Zellbereich einen Teiltext bestehend aus einem oder mehreren _
identischen Zeichen durch ein einzelnes Zeichen
Dim strFind As String, strReplace As String, strText As String
Dim Pos1 As Long, Pos_L As Long
Dim Bereich As Range, Zelle As Range
Set Bereich = Selection
strFind = InputBox("zu suchendes Zeichen" & vbLf _
& "(Bitte nur ein Zeichen eingeben!)", "Zeichenfolge ersetzen", "$")
If strFind = "" Then Exit Sub
strFind = Left(strFind, 1)
strReplace = InputBox("Ersatz-Zeichen" & vbLf _
& "(Bitte nur ein Zeichen eingeben!)", "Zeichenfolge ersetzen", "@")
If strReplace = "" Then Exit Sub
strReplace = Left(strReplace, 1)
If MsgBox("Im selektierten Zellbereich """ & Bereich.Address(False, False, xlA1) _
& """ die Zeichenfolge aus einem oder mehreren """ & strFind _
& """ durch ein einzelnes """ & strReplace & """ ersetzen", _
vbQuestion + vbOKCancel, "Teiltext ersetzen?") = vbCancel Then Exit Sub
For Each Zelle In Bereich.Cells
strText = Zelle.Text
Pos1 = InStr(1, strText, strFind)
If Pos1 > 0 Then
strText = Left(strText, Pos1 - 1) & strReplace & Replace(Mid(strText, Pos1), strFind, "")
Zelle = strText
End If
Next
End Sub

Anzeige
AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 11:49:46
Christian
Hallo Rudi,
funktioniert für einzelne Zelle sehr gut!!!
Leider nicht in einer schleife die mir alle Zellen durchgehen soll :(
mfg Christian

AW: Gleiche Zeichen an versch. Stellen ersetzen
15.05.2014 11:59:37
Hajo_Zi
Hallo Christian,
nur wenige sehen Deinen Code. 
Option Explicit
Sub aaa()
Dim y As Long
Dim Loletzte As Long
Dim Loi As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For Loi = 1 To Loletzte
y = InStr(Cells(Loi, 1), "$")
If y > 0 Then
Cells(Loi, 1) = Left(Cells(Loi, 1), y) & _
Application.Substitute(Mid(Cells(Loi, 1), y), "$", " ")
End If
Next Loi
End Sub
Gruß Hajo

Anzeige
AW: mit Ersetzen oder per VBA mit Replace
15.05.2014 12:59:55
Daniel
Hi
ersetze einfach solange "$$" durch "$", bis keine "$$" mehr vorhanden sind.
beim auführen von Hand sagt dir Excel ja, wenn es nichts mehr finden konnte, mit VBA muss man _ halt entsprechend prüfen: 

With Range("A:A")
Do While Worksheetfunction.CountIf(.Cells, "*$$*") > 0
.Replace "$$", "$", xlpart
Loop
End With
Gruß Daniel

Anzeige
AW: mit Ersetzen oder per VBA mit Replace
15.05.2014 13:21:18
Christian
Vielen Dank für eure Hilfe,
Nach erfolgreicher Mittagspause konnte ich Rudis Ansatz gut in mein vorhanden Prozess einbauen ;)
In diesem Sinne nochmals Danke für die guten Ideen !!!
mit freundlichen Grüßen Christian
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
SUMMENPRODUKT in VBA übersetzen
Olaf

Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
Dinge in Abhängigkeit ersetzen
sascha76er

Hallo,
ich möchte gerne in der Spalte B den Wert "[#p Stück]" durch -Links- oder -Rechts- in Abhängigkeit vom letzten Buchstaben in der Artikelnummer entsprechend ersetzen.
Kann mir jemand sagen wie dies lösen kann?
Hier meine Datei: https://www.herber.de/bbs/user/55000.xls
Gru...
28.08.2008 16:25:34
Thread-ID: 1005516
2 Beiträge
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Ersetzen mit Bedingung in VBA
bully

Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
07.09.2008 20:41:15
Thread-ID: 1008002
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Anzeige
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
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Mail-Adressen ersetzen
dani

Hallo zusammen,
ich habe ein Excel-Problem - ich hoffe, jemand kann mir weiterhelfen :)
In einer Excel-Datei habe ich eine Spalte mit Mail-Adressen, z.B. max.mustermann@firma_x.de
Da sich die Firmierung geändert hat, müssen sämtliche Domainnamen geändert werden in max.mustermann@fir...
15.10.2008 09:39:22
Thread-ID: 1016481
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige