Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

Forumthread: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 20:32:50

Roger

Guten Abend

Gibt es die Möglichkeit, dass wenn eine Zeile mit Buchstaben beginnt, diese auszuschneiden und an der nächsten oberen anzuhängen? Das Problem ist, dass manchmal 1, 2, 3 oder mehr Zeilen nach oben angehängt werden sollen, bis alles hinter der Zeile welche mit einer Zahl beginnt, steht. Also ein Saatz kann in z.B. 5 Zeilen aufgeteilt sein, von oben nach unten. Der ganze Satz soll schlussendlich eine einzelne Zeile sein. Immer beginnend mit einer Zahl. Beispiel ist beigefügt. Es soll so resultieren wie: Reihe 1 und 4.

https://www.herber.de/bbs/user/179898.xlsx

Danke,
Roger

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 21:43:41

BoskoBiati
AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 22:29:17

Alwin Weisangler
AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

23.12.2025 11:52:04

Daniel
Das ist nun...

26.12.2025 16:36:01

Case
AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 23:36:20

Roger

AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 21:43:41

BoskoBiati

Hi,

in 365 funktioniert das:

=WENNFEHLER(WEGLASSEN(TEXTTEILEN(TEXTVERKETTEN(";";1;WENN(ISTZAHL(A1:P26);"#";"")&A1:P26);";";"#");1);"")

Gruß

Edgar

AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

22.12.2025 22:29:17

Alwin Weisangler

Hallo Roger,

ein Vorschlag dies mit VBA zu lösen:



Option Explicit



Sub TextZusammenBauen()

    Dim ZZ(), i&, j&, lz&, lsp&, lspA&

    With Tabelle1

        lz = .UsedRange.Rows.Count

        For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row

            If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) > "" Then

                j = j + 1

                ReDim Preserve ZZ(1 To j)

                ZZ(j) = i

            End If

        Next i

        For i = 1 To UBound(ZZ)

            If i  UBound(ZZ) Then

                For j = ZZ(i) + 1 To ZZ(i + 1) - 1

                    lspA = .Cells(ZZ(i), Columns.Count).End(xlToLeft).Column + 1    'Zielspalte

                    lsp = .Cells(j, .Columns.Count).End(xlToLeft).Column

                    .Range(.Cells(j, 1), .Cells(j, lsp)).Copy

                    .Cells(ZZ(i), lspA).PasteSpecial

                    .Range(.Cells(j, 1), .Cells(j, lsp)).ClearContents

                Next j

            Else

                For j = ZZ(i) + 1 To lz

                    lspA = .Cells(ZZ(i), Columns.Count).End(xlToLeft).Column + 1    'Zielspalte

                    lsp = .Cells(j, .Columns.Count).End(xlToLeft).Column

                    .Range(.Cells(j, 1), .Cells(j, lsp)).Copy

                    .Cells(ZZ(i), lspA).PasteSpecial

                    .Range(.Cells(j, 1), .Cells(j, lsp)).ClearContents

                Next j

            End If

        Next i

    End With

End Sub

Gruß Uwe

AW: Beginnt Zeile mit Buchstaben, diese ausschneiden und ...

23.12.2025 11:52:04

Daniel

Hi

Noch ne VBA-variante

Dim Ziel as Range 

Dim Zelle as Range



For each Zelle in ActiveSheet.Usedrange.Columns(2).Cells

    If WorksheetFunction.IsNumber(Zelle) then 

    Set Ziel = Zelle

Else

    If WorksheetFunction.CountA(Zelle.EntireRow) > 0 then 

    With Zelle.EntireRow.Specialcells(xlcelltypeconstants, 2)

            .Copy Ziel.End(xltoright).Offset(0, 1)

            .Clear contents

        End With

    End if

End if

Achtung, Code ist nur am Handy geschrieben nicht getestet oder auf Tippfehler geprüft.

Gruß Daniel

Das ist nun...

26.12.2025 16:36:01

Case

Moin Roger, :-)

... nicht unbedingt eine "typische" Power Query Aufgabe, aber für mich war es eine "Fünf-Minuten-Terrine zwischen Gänsebraten und Schwarzwälder Kirschtorte": ;-)
https://www.herber.de/bbs/user/179915.xlsx

Servus
Case