Thema Datum  Von Nutzer Rating
Antwort
22.05.2014 15:24:10 Gast27757
NotSolved
Blau Vor dem Drucken Spalten ausblenden
 23.05.2014 15:15:34 Gast94722
NotSolved
28.05.2014 14:55:01 Gast27757
NotSolved

Ansicht des Beitrags:
Von:
Gast94722		 Datum:
23.05.2014 15:15:34		 Views:
837		 Rating:
     
Antwort:
  Ja
Thema:
Vor dem Drucken Spalten ausblenden

Du könntest folgendes versuchen:

Option Explicit

Public Sub HideColumns()
  
  On Error GoTo ErrHandler
  
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  
  Dim rng As Excel.Range
  Dim rngHideRow As Excel.Range
  Dim rngCell As Excel.Range
  
  Set rng = ActiveSheet.UsedRange

  Call rng.Rows(1).Insert(XlInsertShiftDirection.xlShiftDown)
  
  Set rngHideRow = rng.Rows(1).Offset(-1)
  rngHideRow.FormulaR1C1 = "=COUNTA(" & rng.Columns(1).Address(False, False, ReferenceStyle:=xlR1C1) & ")"
  
  For Each rngCell In rngHideRow.Cells
    rngCell.EntireColumn.Hidden = (rngCell.Value = 0)
  Next
  
  Call rngHideRow.Delete(XlDeleteShiftDirection.xlShiftUp)
  
SafeExit:
  Application.EnableEvents = True
  Application.ScreenUpdating = True
Exit Sub

ErrHandler:
  Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.Number)
  GoTo SafeExit
End Sub

Hier wird über dem verwendeten Bereich eine Hilfszeile eingefügt in der über die Formel ANZAHL2 die anzahl der Inhalte je Spalte bestimmt wird. Beträgt das Ergebnis 0, wird die Spalte versteckt, ansonsten wird sie angezeigt. Die Hilfszeile wird am Ende wieder entfernt.

Wenn das nur auf einen bestimmten Bereich im Tabellenblatt beschrängt sein soll, musst du die Variable rng entsprechen setzen.

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2014 15:24:10 Gast27757
NotSolved
Blau Vor dem Drucken Spalten ausblenden
 23.05.2014 15:15:34 Gast94722
NotSolved
28.05.2014 14:55:01 Gast27757
NotSolved