Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Replace Funktion erweitern
#1
Hallo liebe Leute,

mit den Funktionen Replace oder Substitute kann ich in meinen Excel Tabellen
gezielt Zeichen ersetzen und verändern. Ich möchte nun Text der in meinen Excelzellen
in Klammern steht, sammt Klammern per VBA löschen.
Wie kriege ich das hin?

Danke für eure Bemühungen
Antworten Top
#2
Hallo Christa,

mit dem Makrorekorder aufgezeichnet:

Code:
Sub Makro1()
    Selection.Replace What:="(*)", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • ChristaRohn
Antworten Top
#3
Hallo Uwe,
vielen Dank für die schnelle Hilfe. Super!
Antworten Top
#4
Hi Leute,
ich habe ein ähnliches Problem. Bei mir liegen Zellinhalte in der folgenden Form vor:

00001 Text1
00002 Text2
00003 Text3
00004 Text4
usw.

Wie schaffe ich es mit der Replace Funktion, das hinterher in meinen Zellen nur noch folgendes steht:
Text1
Text2
Text3
Text4
usw.
Antworten Top
#5
Hallo,

poste ich mal mein Formel-Konstrukt

Arbeitsblatt mit dem Namen 'Tabelle1'
 AB
100001 Text1Text1
200002 Text2Text2
300003 Text3Text3
400004 Text4Text4

ZelleFormel
B1=TEIL(A1;SUCHEN(" ";A1)+1;LÄNGE(A1))
B2=TEIL(A2;SUCHEN(" ";A2)+1;LÄNGE(A2))
B3=TEIL(A3;SUCHEN(" ";A3)+1;LÄNGE(A3))
B4=TEIL(A4;SUCHEN(" ";A4)+1;LÄNGE(A4))
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#6
Hallo,

schon einmal an "Text in Spalten" gedacht? In Excel 2003 gab es das unter dem Menüpunkt "Daten".

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Antworten Top
#7
(27.09.2014, 08:59)marose67 schrieb: schon einmal an "Text in Spalten" gedacht? In Excel 2003 gab es das unter dem Menüpunkt "Daten".

das war auch mein erster Gedanke.

In 2010 und 2013 ist das immer noch dort.
Antworten Top
#8
Hallo Leute,
ja Text in Spalten das war auch meine Idee. Kann man auch leicht verwirklichen.
Möchte ich im Rahmen einer anderen Aufgabe auch später im Forum zeigen.
Aber jetzt gehts mir wirklich wie man so etwas mit Replace machen könnte.
Kennt jemand sich mit regulären Ausdrücken aus? - Wäre ein Stichwort.

Aber Danke schon mal für eure Anregungen.
Antworten Top
#9
Hallo Wulfi,

wenn das Leerzeichen das einzige ist, einfach nach 5 Zeichen mit anschließendem Leerzeichen
suchen und durch nichts ersetzen.

Code:
.Replace What:="????? ", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False

Gruß Uwe
Antworten Top
#10
Hallo Wulfi,

oder beliebig viele Zeichen mit anschließendem Leerzeichen durch nichts ersetzen:

Code:
.Replace What:="* ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Gruß Uwe
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste