Microsoft Excel

Herbers Excel/VBA-Archiv

Großbuchstaben in Kleinbuchstaben umwandeln Fett



Excel-Version: 10.0 (Office XP)

Betrifft: Großbuchstaben in Kleinbuchstaben umwandeln Fett
von: Harald
Geschrieben am: 02.06.2002 - 18:35:22

Hallo Excel Fans,
wie kan ich den Nachnamen außer dem ersten in Kleinbuchstaben und Fett formatiert umwandeln (Zahl und Nachname nicht verändern).

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

Gruß Harald
Vielen Dank für eure Hilfe


  

Re: Großbuchstaben in Kleinbuchstaben umwandeln Fett
von: WernerB.
Geschrieben am: 02.06.2002 - 19:24:39

Hallo Harald,

markiere den betreffenden Zellbereich und starte dann dieses Makro:


Option Explicit
Sub FetteKicker()
Dim 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

Viel Erfolg wünscht
WernerB.
  

Re: Großbuchstaben in Kleinbuchstaben umwandeln Fett
von: Rolf, Lgh.
Geschrieben am: 02.06.2002 - 19:30:05

Hallo Harald,
meinst Du so:

MS Excel von Rolf, Lgh. an Harald
 AB
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


 

Beiträge aus den Excel-Beispielen zum Thema "Großbuchstaben in Kleinbuchstaben umwandeln Fett"