Spalten mit VBA ausblenden

[so.egal]

Hallo zusammen,

ich habe ein Problem. Ich möchte Spalten ausblenden, wenn eine Zelle leer ist. Das soll folgendermaßen aussehen:

Spalte M-AA soll ausgeblendet werden, wenn Zellen N7-N10 leer sind.
Spalte Q-AA soll ausgeblendet werden, wenn Zellen P7-P10 leer sind.
...
Es sollen also immer die Spalte davor und die Spalten bis AA ausgeblendet werden, wenn die Zellen 7-10 der Spalte leer ist.

Ich bin kein VBA-Könner, habe aber ein paar Sachen ausprobiert. Leider ohne Erfolg. Nun hoffe ich auf eure Hilfe.

LG Tina

[RPP63]

Moin!
Sind denn überhaupt Spalten ab AB gefüllt?
Wenn nicht, würde ich einfach eine bedingte Formatierung nehmen.
(Zahlenformat ;;; Ausfüllen: keine Füllung)

Gruß Ralf

[so.egal]

Hallo,

ja, es sind Spalten ausgefüllt.

LG

[RPP63]

Spalte M-AA soll ausgeblendet werden, wenn Zellen N7-N10 leer sind.
Spalte Q-AA soll ausgeblendet werden, wenn Zellen P7-P10 leer sind.

Eine oder alle Zellen im Bereich?
Wie werden sie gefüllt: manuell oder per Formel?
Soll sich die Spalte selbst ausblenden oder nur die Nachbarn?
Was soll der Trigger sein, automatisch oder manuell?

Mir würden noch zig weitere Fragen einfallen … 

Lade mal ein Beispiel hoch, vielleicht kann man dann besser die Intention erkennen.

[so.egal]

   
So sieht der Teil der Tabelle aus.

Letztendlich ist das so etwas wie eine Notentabelle für Schüler. Die Daten werden aus anderen Tabellenblättern entnommen. Es sind Formeln enthalten und mit der Wennfehler(;"") ergänzt.
Die Überschriften "KN1"-"KN8" stehen für "Klassenarbeiten". Die KNs die nicht ausgefüllt sind sollen alle ausgeblendet werden. Also auch die betreffende Spalte, in der die leeren Referenzzellen enthalten sind.

LG Tina

[Steffl]

Hallo,

es wäre besser du würdest die Datei hier hochladen und nicht ein Bildchen.

[so.egal]

  Kompetenznachweis Tabelle 3.0 - Schülerlistenblatt.xlsm (Größe: 37,97 KB / Downloads: 2)
Hier das betreffende Tabellenblatt.

LG

[Kuwer]

Hallo Tina,

Rechtsklick auf den Tabellenreiter "Schülerliste" > Code anzeigen
Folgenden Code in das rechte Fenster einfügen:

Code:

Private Sub Worksheet_Calculate()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 5 To 26 Step 3
    Cells(5, i).MergeArea.EntireColumn.Hidden = Cells(7, i).Value = ""
  Next i
  Application.ScreenUpdating = True
End Sub

Mit jeder Berechnung im Blatt Schülerliste springt dieses Makro an.

Gruß Uwe

[so.egal]

Hi,

genau das hatte ich auch schon probiert. Dann passiert aber gar nichts.

An was kann das liegen? Ich dachte nämlich es wäre ein Fehler im Code.

LG

[Kuwer]

Hallo,

gehe z.B. auf die Zelle E7, drücke F2 und anschließend Enter. Sollte nichts passieren, schau mal im Menüregister Formeln bei Berechnungsoptionen, ob es vielleicht nicht auf Automatisch steht.

Gruß Uwe