Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen Ausblenden

Forumthread: Zeilen Ausblenden

Zeilen Ausblenden
05.12.2007 15:06:00
Maiks
Hallo zusammen,
ich habe hier ein Makro. irgendwie funktioniert es nicht.
der Makro soll jede Zelle der Spalte A prüfen (zelle 7 bis 67).
wenn eine Zelle leer ist, denn die ganze Zeile ausblenden, sonst einbleiden lassen.
hier ist der Makro

Sub Zeile_Auto_Ausblenden()
Dim p As Integer
For p = 7 To 67
If Cells(p, 1) = "" Then
Rows("p:p").EntireRow.Hidden = True
Else
Rows("p:p").EntireRow.Hidden = False
End If
Next p
End Sub


kann mir jemand hier helfen.
dank im voraus.
Maiks

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Ausblenden
05.12.2007 15:10:00
Peter
Hallo Maiks,
so geht es:

Sub Zeile_Auto_Ausblenden()
Dim p As Integer
For p = 7 To 67
If Cells(p, 1) = "" Then
Rows(p).EntireRow.Hidden = True
Else
Rows(p).EntireRow.Hidden = False
End If
Next p
End Sub


Gruß Peter

AW: Zeilen Ausblenden
05.12.2007 15:18:55
Maiks
Hallo Peter,
Einwandfrei :-) funktioniert sehr gut!
danke dir.
Gruß
Maiks

Anzeige
AW: Zeilen Ausblenden
05.12.2007 15:16:00
Erich
Hallo Maiks,
das sollte auch reichen:

Sub Zeile_Auto_Ausblenden()
Dim p As Integer
For p = 7 To 67
Rows(p).Hidden = (Cells(p, 1) = "")
Next p
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Zeilen Ausblenden
05.12.2007 15:23:00
Maiks
Hi Erich,
deine Version ist auch fehlerfrei...
ich danke euch
Maiks

Anzeige
AW: Zeilen Ausblenden
05.12.2007 15:28:46
Maiks
Hallo Leute,
ich habe noch eine Frage.
wie kriege ich Excel dazu, dass beim offnet der Datei, diese Makro sich ausführen?
danke
Maiks

AW: Zeilen Ausblenden
05.12.2007 15:54:00
Peter
Hallo Maiks,
indem du unter DieseArbeitsmappe
im Makro

Private Sub Workbook_Open()
End Sub


den von dir bevorzugten der beiden Codes einfügst.
Gruß Peter

Anzeige
vielen Dank
05.12.2007 16:58:43
Maiks
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige