RANG Funktion & Druck via VBA
22.10.2013 09:23:09
Dominic
In Spalte K8 bis K180 habe ich die Formel: =RANG(I8;$I$8:$I$180;0)
Ich möchte aber, dass der Rang nur vom momentan eingeblendeten Zellbereich angezeigt wird, eben nur die Zeilen die gerade nicht vom erweiterten Filter "ausgeblendet" werden. Wie bekomme ich das hin? Oder Alternativ kann ich auch in einer Art Hilfsspalte die jeweilige Kategorie anzeigen lassen, und die RANG Funktion soll zum Beispiel die Zelle I25 nicht in die Rangliste aufnehmen, da in Hilfsspalte Y25 die Kategorie "XYZ" steht ich aber gerade mit dem Filter nur die Kategorie "ABC" eingeblendet und in einem Ranking angezeigt haben möchte.
Weiß jemand wie ich dafür vorgehen muss?
Zweitens, bisher habe ich auch eine Druckfunktion als Makro in diesem Tabellenblatt hinzugefügt, das Skript lautet wie folgt:
Dieser Code druckt jedoch den gesamten Bereich. Kann ich den auch so umändern, dass dieses Makro nur die dann eingeblendeten Zeilen druckt?
Danke im Voraus!
Sub Drucken()
If Worksheets("TabelleX").[C1].Value = 1 Then
With ActiveSheet.PageSetup
.Zoom = False
.PrintArea = "$A$7:$L$180"
.Orientation = xlPortrait
.Zoom = 40
End With
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End If
If Worksheets("TabelleX").[C1].Value = 2 Then
If [O2] >= 3 And [O2] = 6 And [O2] = 9 And [O2]