Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Im bestimmten Bereich Zeichen ersetzen

Betrifft: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:06:41

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

  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 15:11:13

Suchen nach (Leerzeichen):::
ersetzen durch -:::

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:15:19

Nach den Doppelpunkten befinden sich auch Leerzeichen. Deswegen habe ich ja gefragt wie man die Leerzeichen VOR den Doppelpunkten ersetzen kann...


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 15:17:58

Die Leerzeichen nach den ::: werden gar nicht beachtet, probiers einfach mal aus.

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:20:35

Habe ich... klappt nicht


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 15:29:07

Was klappt denn nicht, wie sehen deine Texte genau aus?

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:38:31

Ich habs mal hochgeladen...


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:39:32

Ich hoffe jetzt klappt es. Der Upload:

https://www.herber.de/bbs/user/9638.xls


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 15:44:59

<a-href="http://www.afri.afrika-cup.de/little-cup.php:::afri cup</a>

So solls dann aussehen?

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:46:04

ja :)


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 16:06:28

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


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Erich M.
Geschrieben am: 14.08.2004 16:45:36

Hallo Piet,

interessanter Code;
ist Chr(32) " " und
Chr(45) -
??
Wo findet, an diese Schlüssel?

Besten Dank!

mfg
Erich


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 17:02:26

Du kannst das mit den Funktionen CODE() und ZEICHEN() in einer Tabelle darstellen.

Piet


  


Betrifft: Danke - Piet; o.T. von: Erich M.
Geschrieben am: 14.08.2004 18:55:58

.


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 15:31:08

Lad mal ein Beispiel hoch.

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 15:59:45

weiss das evtl jemand anders?

gruss
daniel


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 16:07:59

Nun bleib mal cool, ein paar Minuten dauert so eine Lösung schon.
Siehe andere Antwort.

Piet


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Dan
Geschrieben am: 14.08.2004 16:19:12

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


  


Betrifft: AW: Im bestimmten Bereich Zeichen ersetzen von: Piet
Geschrieben am: 14.08.2004 16:37:54

0 Lust auf Formellösung!

Piet


  


Betrifft: Acrossposting der übelsten sorte !! von: andreas e
Geschrieben am: 14.08.2004 17:57:40

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


  


Betrifft: AW: Acrossposting der übelsten sorte !! von: Piet
Geschrieben am: 14.08.2004 19:23:57

Scheint mindestens ein Rad zu fehlen, oder Langeweile, oder beides.

Piet


  


Betrifft: AW: Acrossposting der übelsten sorte !! von: Ramses
Geschrieben am: 14.08.2004 21:36:58

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


 

Beiträge aus den Excel-Beispielen zum Thema "Im bestimmten Bereich Zeichen ersetzen"