Speicherreihenfolge bei Union Range Var
14.04.2020 09:35:27
PunkteJoe
ich suche nach Hilfe bei folgendem Code. Gibt es eine Möglichkeit wie man die Bereiche die in dem Code markiert werden, in der Reihenfolge ausdruckt, in der die "OKs" gefunden werden? In anderen Worten: Von oben nach unten. Im Moment kann ich keine Logik erkennen in der er die Bereiche in der Uninion Range Variable speichert. Dem Code nach würde ich verstehen, dass die Variablen von unten nach oben in Reihenfolge gespeichert werden, aber so ist es nicht. Es erscheint völlig zufällig.
Ich bin für eure Hilfe sehr dankbar.
Sub MarkierenDrucken()
Dim last As Long
Dim i As Long
Dim Druck As Range
With ActiveSheet
last = .Cells(.Rows.Count, 9).End(xlUp).Row
For i = last To 1 Step -1
If .Cells(i, 9).Value = "OK" Then
If Druck Is Nothing Then
Set Druck = .Cells(i, 1).Resize(31, 9)
Else
Set Druck = Union(Druck, .Cells(i, 1).Resize(31, 9))
End If
End If
Next i
End With
Druck.Select
Selection.PrintPreview
End Sub
Viele Grüße
PunkteJoe