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
  Dropdown-Liste in Zelle erweitern Rabe 15 171 22.02.2017, 13:59
Letzter Beitrag: atilla
  "Intelligente Tabelle" automatisch um Einträge erweitern Excel_Dummy_66 4 144 13.02.2017, 09:18
Letzter Beitrag: Excel_Dummy_66
  listbox dynamisch erweitern Windlaeufer 7 142 29.01.2017, 11:54
Letzter Beitrag: snb
  Plantafel erweitern gbw-99 2 95 27.01.2017, 12:55
Letzter Beitrag: lupo1
  Suchfunktion erweitern AndyExcel77 2 112 16.01.2017, 11:19
Letzter Beitrag: AndyExcel77
  zwei abhängige Dropdown Formeln erweitern lulu 5 123 10.01.2017, 12:48
Letzter Beitrag: silex1
Video dropdown Liste erweitern mglarner 5 172 09.01.2017, 21:14
Letzter Beitrag: mglarner
  farbige hinterlegung erweitern AndyExcel77 4 142 19.12.2016, 12:30
Letzter Beitrag: AndyExcel77
  List Box zur Suchfunktion erweitern AndyExcel77 8 229 14.12.2016, 19:58
Letzter Beitrag: Steffl
  Suchfunktion mit List Box erweitern AndyExcel77 7 205 14.12.2016, 08:32
Letzter Beitrag: AndyExcel77

Gehe zu:


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