Moin Marina,
ist denn überhaupt VBA in deinem Unternehmen erlaubt? Das wird nämlich aus guten Gründen vielfach verboten.
Ach ja, und welche ExcelVersion, das wäre auch interessant ...
Das Ganze lässt sich gewiss mit einer Formel lösen, die auf jeden Fall der Ersteller versteht.
Oder mit mehreren Schritten mit WENN() ... und Suchen/ersetzen, also typische Praktikanten-Aufgabe ;-)
ICH löse so etwas inzwischen mit Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/
Und wenn es denn sein soll, auch mit VBA:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Option Explicit
Sub Anrede_split()
Dim lRow As Long , Ze As Long , c As Range
lRow = Cells(Rows.Count, 2). End (xlUp).Row
For Ze = 1 To lRow
Set c = Cells(Ze, 2)
Select Case True
Case c Like "Herr *"
c.Offset(0, -1) = "Herr"
c = Right(c, Len(c) - 5)
Case c Like "Frau *"
c.Offset(0, -1) = "Frau"
c = Right(c, Len(c) - 5)
Case c Like "Firma *"
c.Offset(0, -1) = "Firma"
c = Right(c, Len(c) - 6)
Case Else
End Select
Next Ze
End Sub
|
Gruß
Günther (
G.Mumme@PC-Hilfe-Nord.de)
|