Hallo zusammen.
Ist mein erster Versuch, hier eine Lösung für mein Problem zu finden. Ich hoffe, es gibt eine - aber soweit ich hier schon gelesen habe, gibt es wohl für so ziemlich jedes Problem eine Lösung.
Also - im Detail:
Ich habe ein Makro, in dem eine Sortierung und Gruppierung mit Teilergebnissen erfolgt. Das funktioniert auch alles ganz prima. Nun möchte ich aber NUR die Summenzeilen in einer bestimmten Art und Weise formatieren und zwar immer abwechselnd weiß und grau, immer fett.
Mir fehlt eine Funktion, um diese Markierung herzustellen bzw. einen Sprung immer genau zu einer Summenzeile zu initiieren.
Ich habe versucht, es mit einer If-Schleife zu machen, indem ich die Anzahl des Wortes "Ergebnis" zähle. Das geht auch teilweise, aber den Sprung von einer Summenzeile zur nächsten wollte ich mit der XLDown-Funktion machen, die ich immer 2 mal ausführe, da es meist(!) mehrere Zeilen zu überspringen gilt. Das funzt dann aber nicht, wenn es doch mal nur eine Zeile ist, dann springt er zu weit.
Vielleicht hilft es, wenn ich einfach mal mein Machwerk hierherkopiere:
Range("A3").Select
Dim anzahl
Set myRange = Worksheets("Auswertung (2)").Range("B:B")
anzahl = WorksheetFunction.CountIf(myRange, "*Ergebnis") - 3
Range("c2").Value = anzahl
For i = 1 To anzahl
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveCell.EntireRow.Select
Selection.Font.Bold = True
Next i
So, ich denke, das sollte zur Info reichen. Für konstruktive Vorschläge wäre ich sehr dankbar.
David