Excel Zelle ein.-ausblenden wenn....

Klar, muss man programmieren.

Andreas.





Option Explicit

Option Compare Text

Sub Test()

Dim R As Range, F As Range, L As Range

Dim A As String, S As String

Dim i As Long



'Erste Zelle is fix

Set F = Range("A1")

'Letzte Zelle ermitteln

Set L = Range("A" & Rows.Count).End(xlUp)

'Adresse für alle Spalten => "A:I"

A = F.Value & ":" & L.Value



'Durchlaufe jede

For Each R In Range(F, L)

'Daneben ein "x"?

If R.Offset(, 1) = "x" Then

'Ja, dann diese merken => ",B1,D1,E1,F1,I1" usw.

S = S & "," & R.Value & "1"

End If

Next

'Das erste Komma weg => "B1,D1,E1,F1,I1"

S = Mid(S, 2)



'Ab dem nächsten Blatt

For i = ActiveSheet.Index + 1 To Sheets.Count

'Ist es ein Tabellenblatt (kein Diagramm o.ä.)

If TypeOf Sheets(i) Is Worksheet Then

'Dann darin

With Sheets(i)

'Alle Spalten einblenden

.Range(A).EntireColumn.Hidden = False

'Die gewünschten ausblenden

.Range(S).EntireColumn.Hidden = True

End With

End If

Next

End Sub

Danke für die Antwort. Also ich finde keine Hardwaregrafikbeschleunigung in den erweiterten Excel Optionen.

Hochladen kann ich es leider nicht weil viele Inhalte drinnen sind die ich nicht öffentlich zeigen darf.

Gruppieren von den Zellen? und kann ich das dann auch über die Checkboxen ein-/ausblenden?

Hallo,

du könntest eine WENN-Abfrage um deine Formel bauen:

=Wenn(DeineFormel=0;"";DeineFormel)

Ich würde aber nicht die Formel verkomplizieren. Ich würde die 0 ausblenden über Excel-Optionen => Erweitert => Optionen für dieses Arbeitsblatt anzeigen => und dort "In Zellen mit Nullwert eine Null anzeigen" deaktivieren.

Wenn du aus anderen Gründen die Null in diesem Arbeitsblatt nicht ausblenden kannst, dann formatiere den Bereich K24:K30 mit der bedingten Formatierung, dass bei Null in der Zelle die Schriftfarbe auf weiß gestellt wird.

Claus

Hallo codedive,

in Excel 2010 tritt dies in Zusammenhang mit dem Ein- und Ausblenden von Zellen auf.

Mourad hat darüber einen Artikel geschrieben. Vielleicht hilft dieser bei Deinem Problem weiter:

http://www.excel-ticker.de/positionieren-von-steuerelementen-per-code-bug-in-excel-2010/

Gruß,

André

Naja, Du kannst doch mit VERGLEICH den Wert aus Spalte A in der anderen Tabelle suchen und bekommst eine Nummer (= vorhanden) oder einen Fehler.

Dann kannst Du Dir einen Autofilter setzen und die Fehler ausblenden. Anschließend markierst Du die Spalte und kopierst sie in eine neue Tabelle. Der Trick dabei ist das Excel die unsichtbaren Zellen nicht kopiert.

Andreas.