Wortanfänge groß mit Ausnahmen
12.01.2004 17:02:16
Peter Feustel
Ich versuche einen zweiten Anlauf, weil mein erster Versuch unglücklich beantwortet worden ist.
Ich möchte Wortanfänge in Großbuchstaben umwandeln, dabei aber gewisse Ausnahmen machen. Z. B. Jürgen von der Lippe und nicht JürgenVon Der Lippe, Weil am Rhein und nicht Weil Am Rhein.
Um das hin zu bekommen, gibt es ein Tabellenblatt mit Ausnahmen, die NegativListe.
Das Ganze soll als
Function aufgerufen werden und funktioniert auch, aber...
Ich muss zur Zeit über ein Hilfsfeld (in Zelle AC1) gehen, damit ich in meinem Statement auf ein Object (Columns (29)) zurückgreifen kann.
Wie kann ich die
Function optimaler gestalten, und meine Felder (ein bei ein) durch die
Function umsetzen lassen?
Hier mein Code:
iZeile = Cells(Rows.Count, 1).End(xlUp).Row
For iIndx = 1 To iZeile
Range("A" & iIndx).Value = WortanfangGross(Range("A" & iIndx).Value)
Next iIndx
End Sub
Function WortanfangGross(Feldinhalt As String)
Dim iRowL As Integer
Dim iRow As Integer
If Not IsEmpty(Feldinhalt) Then
WortanfangGross = WorksheetFunction.Proper(Feldinhalt)
Range("AC1").Value = WortanfangGross
With Worksheets("NegativListe")
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Columns(29).Replace _
WorksheetFunction.Proper(.Cells(iRow, 1).Value), _
.Cells(iRow, 1)
Next iRow
End With
WortanfangGross = Range("AC1").Value
End If
End Function
Für einen guten Hinweis bereits jetzt vielen Dank im voraus.
Gruß, Peter