Makro zu select cell mit unterschiedlichen Inhalt

Moin liebe Gemeinde,

ich bastle an einem Makro welches in einem Bereich von A1:A10 die erste Zelle selektieren soll, welche nicht dem Vorgängerkriterium entspricht. Dann sollen die beiden unterschiedlichen " Blöcke" auseinandergezogen werden.

Was ich bisher habe:

Range(Selection, Cells(10, 1)).Cut Destination:=Selection.Offset(1, 0) >> funktioniert an sich top. Allerdings muss ich die erste Zelle die sich unterscheidet vorher selbst markieren. Genau diesen Schritt soll das Makro zusätzlich übernehmen.

Die Kriterien:

1106.020.025
1106.010.051
1131.010.007

Diese 3 Varianten sind ein Block

1107.010.023
1107.020.022
1132.010.005

Diese 3 Varianten sind ebenfalls ein Block

Angenommen diese 6 Einträge stehen untereinander in A1:A10 >> dann soll Zelle A4 selektiert werden ( erster Eintrag vom neuen Block) , um im Anschluss das oben stehende Makro auszuführen.

Hat jemand von euch einen Ansatz für den ersten Teil das Makros ?

Liebe Grüße und vielen Dank im Voraus. Vielen Dank auch an Daniel für den zweiten Teil des Makros :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

wenn ich das richtig sehe hängt das Kriterium nicht von der Ist Spalte D ab, sondern von Spalte E. Sort/Variable/Kriterium.
Stutzig, weil von der Logik her unlogisch, erscheint mir das der Wert 1131.010.007 in einer 1106.xxx.xxx Reihe auftaucht.
Verwirrend finde ich, das 1106.xxx auch wieder im letzten Block auftaucht. Für einen Laien alles irgendie "Kuddel-Muddel"
Unklar ist mir ob deine Überschrift wirklich in Zeile 4 steht, und deine Daten ab Zeile 9 beginnen??

Falls nicht must du das untere Makro an die richtigen Zeilen anpassen. Ein einfaches Simpel Makro.
Beim verschieben muss die For Next Schleife Rückwärts laufen, sonst stimmt das Ergebnis nicht!

mfg Piet



Sub Blöcke_verschieben()

Dim j As Long, lz1 As Long

    lz1 = Cells(Rows.Count, 4).End(xlUp).Row

    Application.ScreenUpdating = False

    'Blöcke nach unten verschieben

    For j = lz1 To 7 Step -1

        If Cells(j, 5) > Cells(j - 1, 5) Then

           Rows(j).Insert shift:=xlDown

        End If

    Next j

End Sub

Beliebteste Forumthreads (12 Monate)

Makro zu select cell mit unterschiedlichen Inhalt

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zu select cell mit unterschiedlichen Inhalt

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread