text automatisch formatieren, quick help please

[vux]

also ich bekomme folgendes Format aus einer Datenbank in meine Exel Tabelle:
ABCD: EFGH.....

soll so geaendert werden:

efgh.....


-> d.h. alles bis inkl ":" wegschneiden den rest in lower case umwandeln, sobald die Daten aus der Datenbank kommen.

hab noch nie VB angefasst, weiss nur dass auto macros in autoexec gehoeren.

kann mir jemand genau sagen, wie ich vorzugehen habe? waere echt super!

danke

 

[Ein_Freund]

Der folgende Code sucht in einer Zeichenkette nach dem Kriterium ":". Dieses gefunden, schneidet er alles von links, incl. dem Kriterium, ab. Ausserdem ist in Deinem Beispiel das erste Zeichen nach dem Kriterium ein Leerzeichen. Ich vermute, dass soll sicherlich nicht so sein. Falls doch, einfach das LTrim$() weglassen. Musst es jetzt nur noch an Dein Programm anpassen. Du wirst also nicht ganz drum rum kommen, VB(A) mal 'anzufassen'.

Const KRIT$ = ":"
Dim text$, i%, a%

text = Text1.text
a = Len(text)

For i = 1 To Len(text)
    If Left$(text, 1) = KRIT Then text = Right$(text, Len(text) - 1): Exit For
    text = Right$(text, Len(text) - 1)
Next i

If i - 1 = a Then
    MsgBox "Kriterium ':' wurde nicht gefunden!", 16, ""
Else
    MsgBox LTrim$(LCase$(text))
End If