Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen ausblenden, wenn Spalte leer | Herbers Excel-Forum


Betrifft: Zeilen ausblenden, wenn Spalte leer von: walter
Geschrieben am: 04.12.2009 07:54:19

Hallo,
In der hochgeladenen Datei, im Arbeitsblatt "Depositen Rechnungswesen" soll folgendes funktionieren:
Durch Drücken auf den Button "Selektion" sollen all jene Zeilen ausgeblendet werden, bei denen die Spalte "K" leer ist (zusätzlich wird auch der Blattschutz aktiviert).
Durch Drücken auf den Button "Alle" sollen wieder alle Datensätze sichtbar sein.

Ich habe das Makro in einer anderen Datei (mit weniger Spalten und nur einer Überschriftenzeile) getestet, wo es auch wunderbar funtioniert hat. Nur in dieser Datei funktioniert das Makro nicht.

Kann mir bitte jemand sagen, wo der Fehler liegt - DANKE!

lg
Walter

https://www.herber.de/bbs/user/66359.xls

  

Betrifft: AW: Zeilen ausblenden, wenn Spalte leer von: walter
Geschrieben am: 04.12.2009 07:56:16

Hallo,
kleine Korrektur:
Es sollen jene Zeilen ausgeblendet werden, bei denen die Spalte "K" NICHT leer ist!

Danke für die Hilfe!

LG
Walter


  

Betrifft: AW: Zeilen ausblenden, wenn Spalte leer von: hary
Geschrieben am: 04.12.2009 08:48:37

Hallo Walter
mehrere Fehler.

Sub AUSblenden_SchreibschutzAktivieren()
Dim i As Long 'Variable nicht deklariert
For i = 6 To Cells(65000, 11).End(xlUp).Row 'hier falsche Spalte Du hattest SpalteA(1) wo nix  _
drin steht
If Cells(i, 11) <> "" Then
Rows(i).Hidden = True
End If
Next i
Worksheets("Depositen Rechnungswesen").Protect
End Sub

gruss hary


  

Betrifft: AW: Zeilen ausblenden, wenn Spalte leer von: walter
Geschrieben am: 04.12.2009 09:36:50

Hallo Hary,
funktioniert ganz toll.


HERZLICHEN DANK!

LG
Walter


  

Betrifft: AW: Gern geschehen. owT von: hary
Geschrieben am: 04.12.2009 09:45:30

.


Beiträge aus den Excel-Beispielen zum Thema "Zeilen ausblenden, wenn Spalte leer"