Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
Anzeige
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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige