Spalte automatisch ausblenden

[BachFel]

Hallo zusammen,

ich versuche per VBA Spalten automatisch auszublenden wenn die Zeilen (die jeweiligen Zellen) leer sind.
Kann man das begrenzen? Dass eben nicht die ganze Spalte (bis nach unten) ausgeblendet wird sondern nur von Zeile 8 bis Zeile 24?


Liebe Grüße
Felix

[Käpt'n Blaubär]

Hallo,

Kann man das begrenzen? Dass eben nicht die ganze Spalte (bis nach unten) ausgeblendet wird sondern nur von Zeile 8 bis Zeile 24?

das würde ja ein Loch in der Tabelle ergeben und wird darum schlichtweg nicht möglich sein.
Du kannst aber die Schriftfarbe mit der Hintergrundfarbe gleichsetzen. Das ergibt dann auch eine gewisse Unsichtbarkeit.

[RPP63]

Moin!
Was hat der Glückliche vor?
Ich nehme an, Du willst Leer"spalten" aufrücken.
Dies dürfte auf einem gespiegelten Blatt mittels Formeln möglich sein.
(Ich weiß mom. nur noch nicht wie …  )

Anyway:
Lade mal eine Beispieldatei mit Ist- und Sollzustand hoch.

Gruß Ralf

[BachFel]

Anbei mal eine Bespieldatei.

Ziel wäre es nun alle Spalten in denen Keine Zelle "voll" ist auszublenden.
Aber eben nach Möglichkeit die Tabelle ab Zeile 28 davon zu verschonen =)

Grüße
Felix

[BachFel]

@ Ralf: würde mich sehr freuen wenn es dafür eine Lösung gibt

natürlich auch gerne an alle anderen die eine springende Idee haben =)

Vielen Dank euch,
Felix

[schauan]

Hallo Felix,

Spalten kann man nur ganz oder gar nicht ausblenden.
Du könntest lediglich z.B.
- die Daten rechts daneben ausschneiden und nach links schieben oder
- Du ordnest die Daten auf zwei Blättern an
- oder platzierst sie nebeneinander oder ...

[BachFel]

Hallo zusammen, 
Habe eingesehen dass mein Vorhaben nicht umsetzbar ist :/

Kann mir jemand helfen wie man per VBA spalten in dem Bereich B9:X23 ausblenden kann wenn diese leer sind?
Das Problem dabei ist dass jede Zelle verformelt ist. Ich will also all die Spalten ausblenden bei der die Formel keinen Text auswirft. Geht dass denn überhaupt?

Liebe Grüße 
Felix

[schauan]

Hallöchen,

hier mal ein Ansatz mit einer Schleife über die Spalten

Code:

Sub Blenden()
For i = 2 To 24
    Columns(i).Hidden = Len(Trim(Join(WorksheetFunction.Transpose(Range(Cells(9, i), Cells(23, i)).Value)))) = 0
Next
End Sub

Mit join fasse ich die ausgegebenen Inhalte der Zellen zusammen, das wird getrimmt, und wenn 0 rauskommt wrd die Spalte ausgeblendet, ansonsten bleibt sie oder wird wieder eingeblendet.

[BachFel]

Vielen Dank für den Ansatz,

ist es denn auch möglich Spalten nach folgender Logik auszublenden:

- alle Zellen "unsichtbar machen" wenn rechts von der vollen Zelle nichts mehr folgt und Spalte Z eine 0 steht
- alle Spalten nach dem letzten eintrag einer Zelle (in Summe über die ganze Liegenschaft) auszublenden?

Anbei mal ein Beispiel zum besseren Verständnis.
 Ziel wäre es also das z.B D9 und D10 ff. "unsichtbar gemacht" werden, da die die zwei Mieter die kompletten 100m² belegen die das Geschoss in Summe bietet. Die Logik soll für alle anderen Spalten/ Zellen ebenso angewendet werden.
Zusätzlich wäre es super wenn nach dem letzten Eintrag (in diesem Bsp. in Spalte O) alle nachfolgenden Spalten (bis Spalte X) ausgeblendet werden.

Ist das denn überhaupt möglich oder bin ich wieder am träumen?

Liebe Grüße & einen guten Start in die Woche
Felix

[schauan]

Hallo Felix,

Zusätzlich wäre es super wenn nach dem letzten Eintrag (in diesem Bsp. in Spalte O) alle nachfolgenden Spalten (bis Spalte X) ausgeblendet werden.

24 ist Spalte X. Wenn nach Spalte O nichts mehr kommt, werden die mit meinem Code auch ausgeblendet.

Ziel wäre es also das z.B D9 und D10 ff. "unsichtbar gemacht" werden

Versuche es mit einer bedingten Formatierung, mit gleicher Schriftfarbe und Hintergrundfarbe.