wüsste mir Jemand bitte einen Rat wie ich Folgendes lösen könnte.
Beim auslösen eines Makros ( unten ) werden Daten in einem Tabellenblatt
Sortiert nach Spalte 48 ( AV ). Jetzt stehen dann also in dieser Spalte zB. einige
mal die Zahl 10, dann nach x-beliebigen Reihen kommt 11 usw.
( Diese Zahlen stehen für eine Arbeitsplatzbez. )
Nun drucke ich mir diesen Datensatz dieser Tabelle aus, und hätte gerne
eine visuelle Abtrennung in dieser Spalte wenn er vom einen Zahlenwert zum Anderen wechselt,
um den Ausdruck nachher zu verdeutlichen ( in Richtung abwärts, der Spalte entlang ),
da sonst alles so gleich aussieht und somit etwas unübersichtlich ist.
Diese optische Abtrennnung stelle ich mir so vor, ( mit ActiveRow , da es immer unterschiedliche
Mengen der Reihen sind die 10, 11 usw enthalten, und der Wechsel somit variiert ).
Cells(ActiveCell.Row, 48).Activate
With Range(Cells(ActiveCell.Row, 44).Address & "," _
& Cells(ActiveCell.Row, 45).Address & "," _
& Cells(ActiveCell.Row, 46).Address & "," _
& Cells(ActiveCell.Row, 47).Address & "," _
& Cells(ActiveCell.Row, 48).Address)
.Interior.ColorIndex = 2
.Font.ColorIndex = 56
End With
dieses Formatiermakro funkt. so genau richtig.
Das Sortiermakro sieht wie folgt aus :
Sub sortieren( )
Application.ScreenUpdating = False
Range("AR36:AW200").Select
Selection.Sort Key1:=Range("AV36"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Nun müsste man beides miteinander kombinieren, sodass er gleich nachdem sortieren
damit anfängt, dann ab Reihe 36 nach den sich wechselnden Werten in der Spalte 48 (AV),
die auch immer unterschdl. sein können, den Wechsel entspr. zu formatieren.
( mit dem obigen Formatiermakro ).
Ich bräucht nun eure Unterstützung bei der Anweisung. Ich denke es fehlt hier noch eine
Anweisung die ihm sagt, das er nun nach dem sortieren damit anfängt die Spalte 48 ab Reihe 36
Hinunter abwärts zu laufen, und sobald sich der Wert in der Zelle in einen anderen Wert nun
Wechselt, das er dann die Formatierung ( oben ) ausführt, und automatisch dann aufhört bei
Reihe 200.
Ich kenn die hierzu nötige Anweisung leider nicht, weshalb ich euch bitten würde mir dabei zu helfen wenn möglich.
Mit Schleife ??? ohne ??? usw
Schon mal vielen Dank im Voraus an alle Helfer,
Gruß udo