VBA - Code um Zeile auszublenden
21.10.2013 13:38:39
Dominic
ich habe momentan eine Tabelle von A8 bis X180 in der mir diverse Umsatzzahlen für einige Kunden aufgelistet werden.
Nun möchte ich diese Liste um eine weitere Funktion erweitern:
1)
Über ein Formularsteuerelement kann ich mir eine von 7 möglichen Kundengruppen auswählen.
2)
Wenn Kundengruppe "ABC" ausgewählt ist wäre es super wenn Excel automatisch die Zeilen C8 bis C180 durchgeht und kontrolliert ob der jeweilige Kunde hier enthalten ist oder nicht. Wenn der Kunde hier enthalten ist soll die gesamte Zeile ausgeblendet werden.
Geht das irgendwie?
Wie muss ich meine bisher verwendete VBA Funktion ändern, dass dies individueller Funktioniert?
Range("28:28").EntireRow.Hidden = False
3)
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]