Zeile ausblenden,wenn sichtbare Spalten ohne Wert
29.08.2016 10:57:25
Michael
ich bin neu hier und habe leider bei der Suche keine passende Lösung gefunden.
Ich habe eine Tabelle die von A3:G300 Stammdaten enthält, und I3:ZZ300 diverse "x" Einträge (Berechtigungsmatrix).
Was ich möchte als Beispiel:
Ich habe in einem vorherigen Schritt bestimmte Spalten in der Range I1:ZZ300 ausgeblendet.
Nun möchte ich prüfen, ob z.B in der 10. Zeile ab I10:ZZ10 sich nurnoch leere Zellen in den sichtbaren Spalten befinden, wenn ja, soll die ganze Zeile ausgeblendet werden.
als Beispiel2: Ich habe nurnoch an Spalten I und M eingeblendet. Wenn kein x in den Zellen I10 und M10 steht, soll die ganze Zeile ausgeblendet werden.
Ich möchte euch hier mal mein Lösungsansatz für die entgegengesetzte Richtung präsentieren, dort werden alle Spalten ausgeblendet, wenn keine Berechtigungen gesetzt sind.
Sub nur_berechtigte_Gruppen_eines_users_anzeigen()
Dim n As Long, i As Long, wf As WorksheetFunction
Set wf = Application.WorksheetFunction
n = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 9 To n
Set rnData = Cells(1, i).EntireColumn.SpecialCells(xlCellTypeVisible)
If wf.CountA(rnData) Next i
Dieses Sub wird nicht vorher ausgeführt, ich hoffe es hilft einfach als Gedankenanstoß. Ich bin damit überfordert :P
Liebe Grüße,
Michael
Anzeige