Sortieren und Ordnen

Forumthread: Sortieren und Ordnen

10.06.2024 10:25:48

grubi28

Guten Tag,

ich bräuchte eine Lösung zu einem Problem. Ich habe Dateien, die ich immer in Spalte A einfügen. 3 Spalten untereinander. Jedoch möchte ich, dass automatisch beim Einfügen Spalte A: Adresse, Spalte B: Ort und Spalte C: qm.

Vielen Dank für eure Hilfe.

Beste Grüße

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

Beispiel:
Spalte A
Alte Gärtnerei 1
Borsdorf, Sachsen
840 m²
Alte Gärtnerei 2
Borsdorf, Sachsen
745 m²
Alte Gärtnerei 4
Borsdorf, Sachsen
746 m²
Alte Gärtnerei 6
Borsdorf, Sachsen
782 m²
Althener Straße 11
Borsdorf, Sachsen
1.172 m²
Althener Straße 12
Borsdorf, Sachsen
1.170 m²
04159 Leipzig, Stadt
Althener Straße 13
Borsdorf, Sachsen
996 m²
Althener Straße 15
Borsdorf, Sachsen
800 m²
Althener Straße 16
Borsdorf, Sachsen
1.097 m²
Althener Straße 18
Borsdorf, Sachsen
1.525 m²

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortieren und Ordnen

10.06.2024 10:39:40

SF
AW: Sortieren und Ordnen

10.06.2024 10:47:35

JoWE
AW: Sortieren und Ordnen

10.06.2024 11:20:08

grubi28
AW: Sortieren und Ordnen

10.06.2024 11:38:11

JoWE
AW: Sortieren und Ordnen

10.06.2024 14:32:06

Alwin Weisangler
AW: Sortieren und Ordnen

10.06.2024 15:46:10

JoWE
AW: Sortieren und Ordnen

10.06.2024 10:46:42

daniel

AW: Sortieren und Ordnen

10.06.2024 10:47:35

JoWE

Hallo,
da passt dies (es sind hier vier statt 3 Zeilen!!!):
04159 Leipzig, Stadt
Althener Straße 13
Borsdorf, Sachsen
996 m²
aber nicht zu Deiner Bechreibung.
Wären es tatsächlich immer nur 3 Teilen, ginge es z.B. so:

Sub neu_ordnen()

  Dim ze As Long

  For ze = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3

    Cells(ze, 2) = Cells(ze, 1)

    Cells(ze, 3) = Cells(ze + 1, 1)

    Cells(ze, 4) = Cells(ze + 2, 1)

  Next

End Sub

Gruß
Jochen

AW: Sortieren und Ordnen

10.06.2024 11:20:08

grubi28

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

bis jetzt hat noch nichts funktioniert, trotzdem danke für die Hilfe.

Hab nochmal eine Datei reingeschickt, damit man sich es besser vorstellen kann

AW: Sortieren und Ordnen

10.06.2024 11:38:11

JoWE

Hallo,

sofern die Voraussetzung stimmten, würde es schon passen.
Du hast jedoch in der hochgeladenen Mape jetzt eine Überschrift und Du hast
den Fehler in der Liste (in den Zeilen 20 - 23 sind es vier statt drei Zeilen !!!) nicht berichtigt.
Hier mein Vorschlag für die berichtigte Version mit (VBA):
https://www.herber.de/bbs/user/170055.xlsm

Gruß
Jochen

AW: Sortieren und Ordnen

10.06.2024 14:32:06

Alwin Weisangler

Hallo Jochen,

Lösung deines 1. Abbildes Spalte A - Adresse; Spalte B - Ort Spalte C - Fläche wäre so:



Option Explicit



Sub umschichten()

    Dim i&, j&, lz&, k&, tmp(), arrTab(): arrTab = Tabelle1.Range("A1:A" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row)

    For i = 1 To UBound(arrTab)

        If InStr(1, arrTab(i, 1), " m²", vbTextCompare) > 0 Then

            k = k + 1

            ReDim Preserve tmp(1 To 2, 1 To k)

            If k = 1 Then

                tmp(1, 1) = 1

                tmp(2, 1) = i

            Else

                tmp(1, k) = tmp(2, k - 1) + 1

                tmp(2, k) = i

            End If

        End If

    Next i

    k = 0

    tmp = Application.Transpose(tmp)

    With Tabelle1

        .Columns(1).ClearContents

        For i = 1 To UBound(tmp)

            If tmp(i, 2) - tmp(i, 1) = 2 Then

                For j = 1 To 3

                    k = k + 1

                    .Cells(i, j) = arrTab(k, 1)

                Next j

            Else

                For j = 1 To 4

                    k = k + 1

                    If j = 1 Then .Cells(i, j) = arrTab(k, 1) & ", " & arrTab(k + 1, 1)

                    If j > 2 Then .Cells(i, j - 1) = arrTab(k, 1)

                Next j

            End If

        Next i

    End With

End Sub

Das umdröseln auf dein 2. Abbild schaffst du vielleicht selbst, wenn du dir das zurückschreiben der Werte aus dem Array in die Zellen in Ruhe anschaust.

Gruß Uwe

AW: Sortieren und Ordnen

10.06.2024 15:46:10

JoWE

Hallo Alwin,
ich (Jochen) bin nicht der Fragesteller, Deine Antwort hätte also anders adressiert sein müssen.
Der Fragesteller scheint es mit seinen Reaktionen allerdings nicht eilig zu haben.
Gruß
Jochen

AW: Sortieren und Ordnen

10.06.2024 10:46:42

daniel

Hi
du könnstest diese Formel anwenden, einfügen in eine Zelle reicht:

=LET(x;A1:A30;HSTAPELN(FILTER(x;REST(ZEILE(x);3)=1);FILTER(x;REST(ZEILE(x);3)=2);FILTER(x;REST(ZEILE(x);3)=0)))

du müsstest allerdings darauf achten, dass die Liste "Sauber" ist und immer 3 Zeilen pro Adresse enthält
du hast da in Zeile 19-22 eine Abweichung, dieser Block enthält 4 Zeilen. das müsstest du vorab bereinigen.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Forumthread: Sortieren und Ordnen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread