Ausblenden, wenn 22 Prüfungen positiv sind

Question

Hallo Ihr da,

ich habe eine Datei mit mehreren Zeilen Ergebnissen.
Nun möchte ich gern diejenigen Zeilen ausblenden, wenn Bedingungen erfüllt sind (wenn LEER in B, dann ausblenden).
Das Makro dafür hab ich uns nutze es auch.

Nun möchte ich aber folgendes prüfen:
wenn leer in B13
wenn leer in B14 bis
wenn leer in B34
dann alle ausblenden,

wenn auch nur eine Bedingung nicht erfüllt, alle 22 Zeilen eingeblendet lassen.
Ich habe mit meinem Makro experimentiert, wenn nur eine Bedingung geprüft wird, aber meine Frau sagte, ich sollte mir vielleicht hilfe holen, nachdem ich doch etwas hart auf die Tastatur geschlagen habe.

Gibte es jemanden, der mir uns meiner Tastatur (und damit auch meiner lieben Frau) helfen mag und kann.

Michael Horting, Springe am Deister (Norddeutschland)

Answer 1

Ja aber gerne doch, die arme tastatur kann doch gar nix dafür.

Wenn alle bedingungen erfüllt sind und nur dann:
wenn leer in B13 UND
wenn leer in B14 bis UND
wenn leer in B34 UND
dann alle ausblenden

Also überall UND dazwischen bedeutet nur dann, wenn alle bedingungen gleichzeitig erfüllt sind .....

Gruß Marie

Answer 2

Hallo,
hast Du da Zahlen drin stehen?
Dann rechne doch einfach die Summe:

X = Application.WorksheetFunction.Sum(Range("B14:B34").Value)
If X > 0 Then
ausblenden 'hier blendest Du Deine Zellen aus
Else
Einblenden 'hier blendest Du Deine Zellen ein
End If

Gruß
Locke

Answer 3

Hallo Locke,

leider ist der Inhalt in den Zeilen ein Text, in jeder Zeile ein anderer.
Der Versuch, eine zusätzliche Spalte mit einer Nummerierung einzufügen, hat meine im Hintergrund laufenden anderen Makros erheblich zugesetzt.

Leider werd ich eine Prüfung in den Zeilen auf Text machen müssen.

Gruß aus dem frühling-nahen Deister
Michael

Answer 4

hi all ^^

alternativ

gruss nighty

Application.WorksheetFunction.CountBlank(Range("B13:B34")) = 0