leere Zeilen in einem Bereich ausblenden

Question

Hallo,

ich habe eine Tabelle als Vorlage erstellt, in der über mehrere Funktionen Daten eingetragen werden.
Jetzt habe ich einen Bereich (A11:BY29), wo mal mehr Zeilen, mal weniger Zeilen in Anspruch genommen werden.
Gibt es ein Makro, mit dem ich die leeren Zellen in diesem Bereich ausblenden kann?
Ich hoffe ihr könnt mir helfen.
Vielen Dank

LG Chris

Answer 1

Hallo Chris,

ich weiß nicht ob ich dich richtig verstanden habe. Du kannst leider keine einzelnen Zellen innerhalb eines Bereichs ausblenden. Du kannst ihnen aber eine andere Hintergrundfarbe (z.B. dunkelgrau) zuweisen. Das machst du am besten über eine Bedingte Formatierung. Nutze dazu die Formel =ISTLEER(A11) für den gesamten Bereich.

Solltest du Excel 2000 oder 2003 haben, gib diese Formel für A11 ein und kopiere dann das Format mit dem Pinsel-Symbol auf die anderen Zellen.

Gruß Mr. K.

Answer 2

Hallo Chris,

vielleicht so?

Option Explicit

Sub test()
Dim intI As Integer
For intI = 11 To 29
If WorksheetFunction.CountA(Range("A" & intI & ":BY" & intI)) = 0 Then
Rows(intI).EntireRow.Hidden = True
End If
Next
End Sub

Gruß
Rainer

Answer 3

Hi,

oh sorry, hab ich Zellen geschrieben, ich meinte Zeilen, aber trotzdem vielen Dank für deine Antwort Rainer. Aber habe bereits eine Lösung im Netz gefunden:

Public Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
For i = 13 To 29
If Cells(i, 1).Value = 0 Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("A13").Select
End Sub

Funktioniert bisher :)

LG Chris