Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Buchstaben suchen und trennen

Buchstaben suchen und trennen
09.02.2009 16:21:00
Ralle
Hallo sehr geehrte Forumsmitglieder,
ich benötige Eure Hilfe.
In Zeile A1 steht z.B: AntonBiber.
Nun möchte dieses Wort trennen, jeweils beim Grossbuchstaben.
Wenn möglich auch in VBA. Weils ne größere Datei ist.
Vielen Dank.
mfg Ralle
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vor Großbuchstaben trennen
09.02.2009 17:03:00
Ralle
Hallo Erich,
genau das, was ich gesucht habe.
Auf meine richtigen Namen RALF höre ich kaum noch - alle nennen mich Ralle.
Werde dieses aber von nun berücksichtigen.
Vielen Dank.
Ralf
AW: Buchstaben suchen und trennen
09.02.2009 17:07:00
UweD
Hallo
so?
 
 ABC
1AntonBiberAntonBiber
2MaxMüllerMaxMüller
3UlliMeierUlliMeier
 



Sub Trennen()
    Dim SP%, ZE&, LR&, TB1, j&, i%
    Set TB1 = ActiveSheet   'oder aus aktuellen Blatt
    SP = 1 'Spalte A
    ZE = 1 'Zeile 1
    LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    With TB1
        For i = 1 To LR
            For j = 2 To Len(.Cells(i, SP))
                If Mid(.Cells(i, SP), j, 1) = UCase(Mid(.Cells(i, SP), j, 1)) Then
                    .Cells(i, SP + 1) = Left(.Cells(i, SP), j - 1)
                    .Cells(i, SP + 2) = Right(.Cells(i, SP), Len(.Cells(i, SP)) - j + 1)
                    Exit For
                End If
            Next j
        Next
    End With
End Sub


Gruß UweD
Anzeige
AW: Buchstaben suchen und trennen
09.02.2009 19:01:00
Ralf
Hallo Uwe,
vielen Dank. Habe von Erich schon zwei Tipps bekommen, haben mir sehr geholfen.
Deiner ist überigen auch nicht schlecht.
Vielen Dank und mfg
Ralf
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige