Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige