Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Entfernung von Textteil in Zelle durch Makro

Entfernung von Textteil in Zelle durch Makro
31.07.2014 13:03:03
Textteil
Guten Tag,
ich erhalte durch den Import einer .csv-Datei alle Zellen, die Eurobeträge erhalten, als Text in der Form EUR 0,00.
Sobald ich die Zeichen E, U, R und Leer manuell entferne, wandelt Excel 2003 den verbliebenen Ziffernrest in eine Zahl um und es lässt sich damit rechnen.
Gibt es ein Makro, das mir die manuelle Arbeit abnehmen kann? Es handelt sich immer um die Zellkoordinaten P:P, R:R und U:U. Weiß jemand dafür einen Code?
Vielen Dank.
Barbara

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 13:13:16
Textteil
Hallo,
vielleicht so?
Sub Start ()
Sheets("Tabelle1").Range("P:P,R:R,U:U").Replace What:="EUR ", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Gruß Tino

AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 14:57:06
Textteil
Tino, Du bist mein Held! Vielen Dank! Es hat funktioniert, nur gäbe es noch eine Kleinigkeit zu verändern. Anders als bei dem manuellen Entfernen der Zeichen belässt Excel die Zelle im Textformat. Ich muss also nochmals drübergehen und die verbliebenen Ziffern in Zahlen verwandeln. Hast du auch hiefür eine Lösung? Das wäre ganz prima! Nochmals vielen Dank für das Makro, es hilft mir auch schon in der vorliegenden Form sehr weiter!!!
Herzliche Grüße
Barbara

Anzeige
AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 15:32:57
Textteil
Hallo
Versuch mal diese Variante, aber bitte zur Vorsicht in einer neuen Datei.
Kopiert wird Range, und wieder an derselben Stelle als Wert eingefügt.
Da Excel zum Teil intelligent ist wandelt er es selbst in eine Zahl um.
Keine Garantie das es in jeder Version klappt. Einfach mal ausprobieren.
Wenn es klappt den Kopiervorgang immer -nach- dem Replace ausführen.
Sheets("Tabelle1").Range("P:P,R:R,U:U").Copy
Sheets("Tabelle1").Range("P:P,R:R,U:U").PasteSpecial xlValues
Gruss Adis

AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 16:09:17
Textteil
Hallo, Adis, vielen Dank, aber das funktioniert leider nicht. Ich erhalte die Fehlermeldung:
Laufzeitfehler '1004': Bei einer Markierung von nicht-angrenzenden Zellen ist die Ausführung dieses Befehls nicht möglich.
Herzliche Grüße
Barbara

Anzeige
AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 16:20:43
Textteil
Hallo,
setze das Zellformat vorher auf Standard. 
Sub Start()
With Sheets("Tabelle1").Range("P:P,R:R,U:U")
.NumberFormat = "General"
.Replace What:="EUR ", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
End Sub

Gruß
Rudi

AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 17:44:49
Textteil
Hallo, Rudi,
vielen Dank. Hier habe ich das gleiche Ergebnis wie bei Tinos Lösungsvorschlag, die Zellen bleiben leider im Textformat. Ich habe vor dem Ausführen des Makros die Zellen auf "Standard" gesetzt, wie Du es empfohlen hast.
Gruß
Barbara

Anzeige
mit einer Hilfzelle
31.07.2014 18:08:44
Tino
Hallo,
versuch es mal so.
Sub Start()
Dim rngTmp As Range, rngNum As Range
With Sheets("Tabelle1")
    Set rngTmp = .Cells(1, .Columns.Count)
    
    With .Range("P:P,R:R,U:U")
        
        .Replace What:="EUR ", Replacement:="", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
        On Error Resume Next
        Set rngNum = .SpecialCells(xlCellTypeConstants, 1)
        If Err.Number <> 0 Then Exit Sub
        
        rngTmp.Value = 1
        For Each rngNum In rngNum.Areas
            If Not Application.CutCopyMode Then rngTmp.Copy
            rngNum.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
        Next rngNum
        rngTmp.Clear
    End With
End With
End Sub
Gruß Tino

Anzeige
AW: mit einer Hilfzelle
31.07.2014 18:20:16
Barbara
Hallo, Tino,
ich finde es toll, was du und ihr mir hier an Hilfe anbietet...
Leider ist das Problem noch immer nicht geknackt, EUR ist zwar getilgt, aber die Ziffern bleiben hartnäckig im Textformat. Was meinst Du im Betreff Deiner Antwort mit "mit einer Hilfszelle"?
Kann es sein, dass ich mich irgendwie dämlich anstelle? Ich habe ja leider keine Ahnung von VBA, ich kopiere den Code in den VBA-Editor, passe den Namen des Arbeitsblatts darin an und lasse das Makro dann laufen...
Grüße
Barbara

der Hinweis von Daniel
31.07.2014 19:27:54
Daniel
Hallo,
ist Gold wert!
Versuch es mal so!
Sub Start()
With Sheets("Tabelle1")
    With .Range("P:P,R:R,U:U")
        .Replace What:="EUR ", Replacement:="", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

        .Replace What:=",", Replacement:=".", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
End With
End Sub
Gruß Tino

Anzeige
Danke Daniel und Tino
31.07.2014 21:01:29
Barbara
Hallo, Tino und Daniel,
das war es: ES KLAPPT! Dreimal HURRA!!! Ihr seid die Größten!
Es dankt von Herzen
Barbara :-))

AW: Entfernung von Textteil in Zelle durch Makro
31.07.2014 18:32:26
Textteil
Hi
wenn man beim Ersetzen mit Mit Makros arbeitet, muss man bedenken, dass VBA und Excel Englisch miteinander reden und das Ersetzen wie eine Neueingabe des Wertes wirkt.
Daher erkennt Excel eine Zahl nur dann als Zahl, wenn die Zahl im englischen Format, dh mit dem Punkt als Dezimalzeichen von VBA eingegeben wird, daher muss man erstmal das Komma durch einen Punkt ersetzen:
With Range("P:P,R:R,U:U")
.Replace ",", ".", xlpart
.Replace "EUR", "", xlpart
.Replace " ", "", xlpart 'kann ggf entfallen
End With
fürst du das hingeben "von Hand" aus, spricht Excel deutsch mit dir und die Zahlen müssen das Komma enthalten um als Zahl erkannt zu werden.
gruß Daniel
Anzeige

333 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
Anzeige
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
8
3
16
7
5
3
3
9
5
3
3
2
1
4
5
14
11
4
2
4
5
1
7