In Excel Text einer Zelle ab dem Komma löschen

Liebe Experten,

in meiner Excel-Datei befindet sich in der Spalte E in einigen Zellen (nicht in jeder Zeile) ein Text, der irgendwann durch ein Komma getrennt ist.

Der Text ist in jeder Zelle unterschiedlich

Ich benötige nur den Text vor dem Komma.

Also aus Frau Müller, Geranien Weg 5 soll nur noch Frau Müller werden oder aus Team A - Team B, 6. Spieltag soll nur noch Team A - Team B werden.

Ich bräuchte dafür ein Makro bzw einen Code den ich in ein schon bestehendes Makro einbauen kann.

Vielen Dank für Eure Hilfe. Ich google mich schon langsam tot, ohne etwas passendes gefunden zu haben bzw. meine VBA - Kenntnisse sind dafür einfach noch zu rudimentär.

5 Antworten

DeeDee07

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

04.10.2014, 11:21

Falls in Spalte F etwas steht, füge davor eine oder mehrere leere Spalten ein.

Markiere Spalte E, geh auf Daten, Text in Spalten. Hier kannst du den Text auf mehrere Spalten verteilen, wähle als Trennzeichen das Komma. Die überflüssigen Spalten kannst du dann wieder löschen.

Alternativ: Verwende in einer neuen Spalte die Formel

=WENNFEHLER(LINKS(E1;FINDEN(",";E1)-1);E1)
Das schneidet alles nach dem 1. Komma ab.

Monkel1968

Fragesteller

04.10.2014, 11:51

Vielen Dank für die schnelle Antwort DeeDee07,

aber leider hilft mir eine Formel nicht. Ich benötige einen VBA Code (Makro)

Gruß MJ

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

04.10.2014, 12:52

Erstelle eine Sicherheitskopie Deiner Datei und teste dann mal diesen Code genau:

Sub KommaTeil()
Dim arrTextNeu
Dim Zelle As Range

For Each Zelle In Range("E1:E1000")
    If InStr(Zelle.Value, ",") > 0 Then
        arrTextNeu = Split(Zelle.Value, ",")
        Zelle.Value = arrTextNeu(0)
    End If
Next Zelle
End Sub

Klappt es?

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)