Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil des Zellinhalts verschieben

Forumthread: Teil des Zellinhalts verschieben

Teil des Zellinhalts verschieben
15.08.2005 09:54:17
Steffen
Hallo,
vielleicht kann mir jemand sagen, wie man mit einem VBA-Makro Teile des Inhalts einer Zelle verschieben kann, falls in dieser Zelle gewisse Zeichen vorkommen.
Konkret in meinem Fall möchte ich alles, was hinter einem Zeilenumbruch (Chr(10)) steht, ausschneiden und in die nächste Zelle einfügen.
Vielen Dank
Gruß
Steffen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Teil des Zellinhalts verschieben
15.08.2005 10:23:31
Josef
Hallo Steffen!
Nächste Zelle darunter oder rechts?
Nur für eine Zelle oder für mehrere Zellen in einem Bereich?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

AW: Teil des Zellinhalts verschieben
15.08.2005 10:31:20
Steffen
Hallo Sepp!
Verschieben in die nächste Zelle rechts!
Das Ganze soll dann in eine Schleife für etwa 600 Zeilen.
Gruß Steffen
Anzeige
AW: Teil des Zellinhalts verschieben
15.08.2005 10:38:03
Josef
Hallo Steffen!
Bereich anpassen und laufenlassen!
Option Explicit

Sub TextInSpalten()
    Dim sString As String
    Dim vArr As Variant
    Dim rng As Range
    
    For Each rng In Range("A1:A600") ' <-- der zu bearbeitende Bereich
        If InStr(1, rng, Chr(10)) > 0 Then
            sString = rng
            vArr = Split(sString, Chr(10))
            vArr = Application.Transpose(Application.Transpose(vArr))
            Range(Cells(rng.Row, 1), Cells(rng.Row, UBound(vArr))) = vArr
            sString = ""
        End If
    Next
    
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Anzeige
AW: Teil des Zellinhalts verschieben
15.08.2005 10:49:25
Steffen
Perfekt!!
Besten Dank, das erspart mir viel Zeit undankbarer Arbeit.
Tschüß
Steffen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige