Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
to 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 Benutzer sagt Danke an Kuwer für diesen Beitrag:
ChristaRohn
to top
#3
Hallo Uwe,
vielen Dank für die schnelle Hilfe. Super!
to 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.
to 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 7 / Office 2007
to top
#6
Hallo,

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

Gruß
Marcus

Ich arbeite mit Excel 2003!

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.


?mage
to 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.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to 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.
to 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
to 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
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  OPC Items unbegrenzt erweitern sAkuL1703 19 393 16.11.2016, 21:04
Letzter Beitrag: sAkuL1703
  Getränkeliste erweitern Pivo 4 214 27.08.2016, 17:26
Letzter Beitrag: Kuwer
  DropDown Liste automatisch erweitern Fred B 3 289 15.07.2016, 07:46
Letzter Beitrag: Jockel
  Spalte erweitern??? HIGHWAYMAN 6 468 29.05.2016, 12:30
Letzter Beitrag: RPP63
  Cells.Replace Problem bei Kombination ?! Wulfi 4 247 22.05.2016, 18:06
Letzter Beitrag: Kuwer
  Zählen-Funktion in Kombination mit Wenn-Funktion? veve 22 1.198 09.05.2016, 08:02
Letzter Beitrag: steve1da
  Daten monatlich erweitern M. Sailor 7 593 28.04.2016, 16:32
Letzter Beitrag: M. Sailor
  Zahlenfolge erweitern Far3ll 4 437 25.04.2016, 21:14
Letzter Beitrag: Far3ll
  Liste automatisch erweitern basti1912 10 850 09.04.2016, 10:42
Letzter Beitrag: basti1912
  Makro umwandeln und erweitern sveninho11 4 431 31.03.2016, 13:12
Letzter Beitrag: Rabe

Gehe zu:


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