Zeile ausblenden, wenn bestimmter Bereich leer

Guten Tag,
ich bin auf der Suche nach einem Makro dass mir die Zeile ausblendet, wenn im Bereich "C:AD" der jeweiligen Zeile kein Wert also "" steht.
Ich bin auf folgenes Makro gestossen.


Sub Ausblenden()
'Zeilen ausblenden wenn 0 und einblenden wenn 1 in Spalte A steht
Columns(1).Insert
With Range("A1:A" & Cells(65536, 2).End(xlUp).Row)
'Einblenden
.FormulaR1C1 = "=if(RC2=1,true,row())"
.Formula = .Value
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Hidden = False
'Ausblenden
.FormulaR1C1 = "=if(RC2=0,true,row())"
.Formula = .Value
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Hidden = True
.EntireColumn.Delete
End With
End Sub

Hierfür habe Ich in der Hilfspalte "AH" eine Abfrage gestartet die mir den Wert 1 oder 0 setzt. Allerdings bekomm ich das Makro nicht funktionstüchtig auf "AH" umgestellt.
Ich wäre sehr dankbar wenn mir jmd erkären könnte was genau in diesem Makro geschieht und wie das umgebaute Makro für mich aussehen würde.
Gruß
Benji

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ausblenden() Dim letzteZeile As Long Dim rng As Range Dim ws As Worksheet Dim zeile As Long Set ws = ActiveSheet letzteZeile = ws.UsedRange.Rows.Count For zeile = 1 To letzteZeile Set rng = ws.Cells(zeile, "C").Resize(1, 28) If Application.WorksheetFunction.CountBlank(rng) = 28 Then ws.Rows(zeile).Hidden = True End If Next zeile End Sub Viele Grüße Dieter

Sub ausblenden() Dim i As Long With Sheets("Tabelle1") 'Tabellenblatt ggf. anpassen For i = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row 'letzten Zeile in Spalte C, ggf. anpassen .Rows(i).Hidden = WorksheetFunction.CountBlank(.Cells(i, 3).Resize(, 28)) = 28 Next End With End Sub

Sub Ausblenden() On Error GoTo Fehler Dim LR&, CC% With ActiveSheet .Rows.Hidden = False LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A CC = .Cells.SpecialCells(xlCellTypeLastCell).Column + 1 'Letzte Spalte des gesamten _ Blattes +1 .Range(Cells(1, CC), Cells(LR, CC)).FormulaR1C1 = "=IF(COUNTA(RC3:RC30)>0,"""",false)" .Columns(CC).SpecialCells(xlCellTypeFormulas, 4).EntireRow.Hidden = True .Columns(CC).ClearContents End With Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Sub Ausblenden() On Error GoTo Fehler Dim LR&, CC% With ActiveSheet .Rows.Hidden = False LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A CC = .Cells.SpecialCells(xlCellTypeLastCell).Column + 1 'Letzte Spalte des gesamten _ Blattes 1 .Range(Cells(1, CC), Cells(LR, CC)).FormulaR1C1 = "=IF(COUNTBLANK(RC3:RC30)=28,false,""" _ ")" .Columns(CC).SpecialCells(xlCellTypeFormulas, 4).EntireRow.Hidden = True .Columns(CC).ClearContents End With Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

Zeile ausblenden, wenn bestimmter Bereich leer

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile ausblenden, wenn bestimmter Bereich leer

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread