Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Im bestimmten Bereich Zeichen ersetzen

Im bestimmten Bereich Zeichen ersetzen
14.08.2004 15:06:41
Dan
Hallo,
ich habe in einer Excel Datei ca 1000 Zeilen à einer Spalte. In jeder Spalte befindet sich ein Wort und in jedem Wort befinden sich drei Doppelpunke. Wie kann ich nun alle Leerzeichen die sich VOR den Doppelpunkten befinden in ein Bindestrich ersetzen?
Weiss das jemand?
Gruss
Dan
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Suchen nach (Leerzeichen):::
ersetzen durch -:::
Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
Nach den Doppelpunkten befinden sich auch Leerzeichen. Deswegen habe ich ja gefragt wie man die Leerzeichen VOR den Doppelpunkten ersetzen kann...
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Die Leerzeichen nach den ::: werden gar nicht beachtet, probiers einfach mal aus.
Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
Habe ich... klappt nicht
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Was klappt denn nicht, wie sehen deine Texte genau aus?
Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
Ich habs mal hochgeladen...
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
&lta-href="http://www.afri.afrika-cup.de/little-cup.php:::afri cup&lt/a&gt
So solls dann aussehen?
Piet
Anzeige
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
ja :)
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Bin jetzt mal von Spalte A und 1000 Zeile ausgegangen, musst du halt anpassen:
Option Explicit

Sub trim_spezial()
Dim z As Integer, i As Integer, strT As String, r As Long
For r = 1 To 1000
If Not IsEmpty(Cells(r, 1)) Then
strT = Cells(r, 1).Text
i = InStr(strT, ":::")
For z = 1 To i
If Mid(strT, z, 1) = Chr(32) Then
Mid(strT, z, 1) = Chr(45)
End If
Next
Cells(r, 1) = strT
End If
Next
End Sub

Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Erich
Hallo Piet,
interessanter Code;
ist Chr(32) " " und
Chr(45) -
?
Wo findet, an diese Schlüssel?
Besten Dank!
mfg
Erich
Anzeige
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Du kannst das mit den Funktionen CODE() und ZEICHEN() in einer Tabelle darstellen.
Piet
Danke - Piet; o.T.
Erich
.
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Lad mal ein Beispiel hoch.
Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
weiss das evtl jemand anders?
gruss
daniel
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
Nun bleib mal cool, ein paar Minuten dauert so eine Lösung schon.
Siehe andere Antwort.
Piet
AW: Im bestimmten Bereich Zeichen ersetzen
Dan
Hi Piet,
ich bin schon ganz cool... :)
ist es auch möglich die leerzeichen ohne vba code in ein bindestrich zu ersetzen? oder kann man diese formal so umändern, dass es dann klappt:
=LINKS(A1;FINDEN(":::";A1;1)-1)
gruss
dan
AW: Im bestimmten Bereich Zeichen ersetzen
Piet
0 Lust auf Formellösung!
Piet
Acrossposting der übelsten sorte !!
andreas
Sorry,
aber wenn ich hier Daniel, Dan, Darkeye......hier sehe wird mir echt übel !
Nicht nur der Namenswechsel auch die ständig wechselnde Aufgabe mit ähnlichen ansatz !!
Hier gehts dann weiter:
http://www.office-loesung.de/viewtopic.php?p=54207#54207
Scheinbar denkt da einer hier hätten einige langeweile
gruß
andreas e
Anzeige
AW: Acrossposting der übelsten sorte !!
Piet
Scheint mindestens ein Rad zu fehlen, oder Langeweile, oder beides.
Piet
AW: Acrossposting der übelsten sorte !!
Ramses
Hallo Andreas
Den ganzen "Schrott" habe ich ihm schon vor ein paar Tagen mal erklärt.
Diesen ganzen Mist, und mit den ganzen anderen stupiden Schrottfragen !!, kann man mit Formeln in Einzelschritten erledigen und wieder zusammensetzen.
Wenn der endlich mal sagen würde was diese sinnlose Fragerei mit immer dem gleichen Ansatz eigentlich soll, dann würde ich auch mal wieder antworten.
Aber das ist mir ehrlich gesagt schon seit ein paar Tagen zu doof.
Wenn ich die Zeit aufrechne die bisher vor allem von seiner Seite her dafür verbraten wurde,... dann hätte er das manuell längst erledigt.
Der Typ bringt mich wirklich auf die Palme, ... und will was heissen ;-)
Gruss Rainer
Anzeige

299 Forumthreads zu ähnlichen Themen

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
Anzeige
Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 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
Anzeige
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
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 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
Modul durch Makro löschen und ersetzen
Dietmar

Guten Morgen zusammen,
kann mir jemand einen Tipp geben?
Ich suche nach einer Möglichkeit, ein kompletes Makro-Modul per Makro zu löschen und durch ein neues Makro (mit exakt dem gleichen Namen) zu ersetzen.
Eine inhaltliche Änderung eines Makros per Makro erscheint mir zu schwierig...
26.03.2009 01:28:12
Thread-ID: 1064062
3 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
16
2
13
2
5
1
1
3
18
2
2
3
5
6
12
14
4
7
1
6
4
5
12
2
5