Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Chrissi_Li vom 02.09.2020, 08:26 Options
mit Makro ein Zeichen löschen
Ich hab das Problem, das ich in meinem Makro den Solver anwenden möchte, das Kriterium ist eine Zahl zb. 1000001, das Problem ist, das vor manchen folgendes steht : '1900002 also ein Apostroph oder was auch immer. Durch ersetzen bekomme ich es nicht weg und es sind zu viele als das man sie per Hand entfernen könnte.
Ich wäre für jede Idee dankbar.
Chrissi
Ich wäre für jede Idee dankbar.
Chrissi
Antwort 1 von Saarbauer vom 02.09.2020, 08:39 Options
Hallo,
auf die Schnelle, versuch es mal so
=WENN(ISTZAHL(A3);A3;WERT(TEIL(A3;2;100)))
in einer Hilfsspalte
Gruß
Helmut
auf die Schnelle, versuch es mal so
=WENN(ISTZAHL(A3);A3;WERT(TEIL(A3;2;100)))
in einer Hilfsspalte
Gruß
Helmut
Antwort 2 von fedjo vom 02.09.2020, 08:50 Options
Hallo Chrissi,
ich hab das mal getestet mit einem Markro mit zwei Zeichen (' ;)
funktioniert eigentlich ganz prima.
Gruß
fedjo
Sub Suchen()
Cells.Find(What:="'", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
Cells.Find(What:=";", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Replace What:=";", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
ich hab das mal getestet mit einem Markro mit zwei Zeichen (' ;)
funktioniert eigentlich ganz prima.
Gruß
fedjo
Sub Suchen()
Cells.Find(What:="'", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
Cells.Find(What:=";", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Replace What:=";", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
Ähnliche Themen
Makro gesucht um Zelleninhalt zu löschen
Flo07 13.03.2007 - 154 Hits - 2 Antworten
Makros via Makro löschen
Egon1967 03.02.2008 - 108 Hits - 3 Antworten
Makro - Spalte löschen
Lefty04 29.02.2008 - 30 Hits - 3 Antworten
Makro-bestimmt Zellen löschen
musiker021 06.05.2008 - 87 Hits - 3 Antworten
Zellinhalte Löschen per Makro
Grillus 01.07.2008 - 83 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
