Herbers Excel/VBA-Archiv

 1 KAHN, Oliver
 22 FRINGS, Torsten
 13 BALLACK, Michael

Gruß Harald
Vielen Dank für eure Hilfe

markiere den betreffenden Zellbereich und starte dann dieses Makro:

Option Explicit
Sub FetteKicker()
Dim c As Range
Dim tx0 As String, tx1 As String, tx2 As String, tx3 As String
Dim st As Byte, le As Byte
    For Each c In Selection
      tx0 = c.Value
      tx1 = Left(tx0, InStr(tx0, " "))
      tx2 = Mid(tx0, InStr(tx0, " ") + 1, InStr(tx0, ",") - InStr(tx0, " ") - 1)
      tx2 = WorksheetFunction.Proper(tx2)
      tx3 = Right(tx0, Len(tx0) - InStr(tx0, ",") + 1)
      c.Value = tx1 & tx2 & tx3
      st = InStr(tx0, " ") + 1
      le = InStr(tx0, ",") - InStr(tx0, " ") - 1
      With c.Characters(Start:=st, Length:=le).Font
          .FontStyle = "Fett"
      End With
    Next c
End Sub

Hallo Harald,
meinst Du so:

von Rolf, Lgh. an Harald
	A	B
1	1 KAHN,_Oliver	1 Kahn,_Oliver
2	22 FRINGS,_Torsten	22 Frings,_Torsten
3	13 BALLACK,_Michael	13 Ballack,_Michael
4		=GROSS2(A6)
5		(Unterstrich=Leerzeichen)

Gruss Rolf

Re: Großbuchstaben in Kleinbuchstaben umwandeln Fett
von: Harald
Geschrieben am: 02.06.2002 - 19:42:24

Hallo Werner,

Echt Klasse dein Makro Fette Kicker,
Vielen Vielen Dank.

Gruß Harald