Zeichen entfernen bis erste Buchstabe

Forumthread: Zeichen entfernen bis erste Buchstabe
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeichen entfernen bis erste Buchstabe

dieter(drummer)

Hi Spezialisten/innen,
suche eine Formel für entfernen von Zeichen (Text) bis zum ERSTEN Buchtaben. Beginn ist Zelle A2 und Ende ist A88. Text sieht bisher so aus:
Zelle A2) 01.02.2010 09:12 3.593.751 Into the great wide open.mp3
Zelle A3) 01.02.2010 09:14 5.959.401 Walk of life.mp3
usw.
Danke für evtl. Hilfe.
Gruss, Dieter(Drummer)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeichen entfernen bis erste Buchstabe

Reinhard
AW: Noch nicht ganz ...

dieter(drummer)
AW: Noch nicht ganz ...

Reinhard
AW: Zeichen entfernen bis erste Buchstabe

ransi
AW: Danke Reinhard und Ransi ... funkoiniert

dieter(drummer)

AW: Zeichen entfernen bis erste Buchstabe

07.02.2010 12:23:10

Reinhard

Hallo Dieter,
=TEIL(A2;28;99)
=TEIL(A3;28;99)
Gruß
Reinhard

AW: Noch nicht ganz ...

07.02.2010 12:31:17

dieter(drummer)

Danke Reinhard,
soe klappt es noch nicht, da vor dem beginnenden 1. Textbuchstaben mehrere Leerzeichen sind, die nicht richtig in meinem Mustertext zu sehen waren.
Eine gute Lösung wäre wohl, wenn man von RECHTS beginnend suchen würde und dann alles vor dem ersten Buchstaben löschen würde.
Muster: 01.02.2010 09:12 3.593.751 Into the great wide open.mp3
Hier sollte dann alles vor dem "I" von "Into ..." alles gelöscht werden. Die Musiktitel haben unterschiedliche Namen also unterschiedliche Menge an Buchtaben.
Geht das?
Gruß Dieter(Drummer)

AW: Noch nicht ganz ...

07.02.2010 12:35:31

Reinhard

Hallo Dieter,
=TEIL(GLÄTTEN(A2);28;99)
Gruß
Reinhard

AW: Zeichen entfernen bis erste Buchstabe

07.02.2010 12:25:31

ransi

Hallo Dieter
Hier mal ein Schnellschuss :

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(zelle)
Dim Regex As Object
Set Regex = CreateObject("VbScript.Regexp")
With Regex
    .Pattern = "^[^A-Za-zÄÖÜäöüß]+"
    .Global = False
    machs = .Replace(zelle.Text, "")
End With
End Function

Tabelle2