Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Zeilen / Spalten ausblenden

Makro Zeilen / Spalten ausblenden
Tom
Hallo Experten.
ich benötige ein Makro mit dem ich Zeilen und Spalten ausblenden kann, deren Zellen im Ergebnis Null sind.
D.h. alle Zeilen von Zeile 12 bis Zeile 774 sollen ausgeblendet werden wenn in Spalte C eine Null steht.
Zudem sollen danach alle Spalten ausgelendet werden im Bereich E bis DG, wenn in Zeile 11 eine Null steht.
Könntet ihr mir hierzu bitte behilflich sein. Danke!
Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Zeilen / Spalten ausblenden
01.03.2012 12:01:59
Rudi
Hallo,
in ein Modul:
Sub Ausblenden()
Dim rngC As Range, rngHide As Range
Application.ScreenUpdating = False
Rows.Hidden = False
Columns.Hidden = False
For Each rngC In Range("C12:C774")
If rngC = 0 Then
If rngHide Is Nothing Then
Set rngHide = rngC
Else
Set rngHide = Union(rngHide, rngC)
End If
End If
Next
If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True
Set rngHide = Nothing
For Each rngC In Range("E11:DG11")
If rngC = 0 Then
If rngHide Is Nothing Then
Set rngHide = rngC
Else
Set rngHide = Union(rngHide, rngC)
End If
End If
Next
If Not rngHide Is Nothing Then rngHide.EntireColumn.Hidden = True
End Sub

Gruß
Rudi
Anzeige
AW: Makro Zeilen / Spalten ausblenden
01.03.2012 12:17:20
Tom
Klasse. Funzt! Merci!

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige