Dynamischen markieren N Selektionen VBA
07.04.2020 11:52:43
PunkteJoe
ich bitte um Hilfe bei folgendem Problem:
In meinem Arbeitsblatt habe ich mehrere Blöcke von Informationen untereinander. Jetzt suche ich nach einer Lösung, in der das Makro Spalte "H" nach dem Wort "OK" durchsucht, und alle Blöcke die "OK" sind markiert und dann als "Auswahl Drucken" druckt.
Der erste Block startet in A1:G31. Darunter sind weitere 60 Blöcke dieser Art.
Ich habe folgenden Code selber versucht, aber in dieser Version markiert er mir nur den ersten _
Block den er mit "OK" findet und nicht alle weiteren.
Sub MarkierenDrucken()
Dim last As Long
Dim i As Long
With ActiveSheet
last = .Cells(.Rows.Count, 8).End(xlUp).Row
For i = last To 1 Step -1
If .Cells(i, 8).Value = "NN" Then
.Cells(i, 1).Resize(31, 8).Select
End If
Next i
End With
End Sub
Eindeutig mache ich etwas falsch, eure Unterstützung weiß ich zu schätzen.
Viele Grüße
PunkteJoe