Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Ausblenden

Forumthread: Makro zum Ausblenden

Makro zum Ausblenden
17.08.2007 12:56:24
Nico
Tag zusammen,
wir würde ein Makro aussehen, welches alle Zeilen ausblendet (nicht löscht) bei denen in Spalte D nichts eingetragen ist ?
Danke und Gruß
Nico

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Ausblenden
17.08.2007 13:06:00
Oberschlumpf
hi Nico
Versuch mal so:

Sub Ausblenden()
Dim loZeile As Long
With ThisWorkbook.Sheets("DeinSheet")
For loZeile = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Range("D" & loZeile).Value = "" Then
.Range("D" & loZeile).EntireRow.Hidden = True
Else
.Range("D" & loZeile).EntireRow.Hidden = False
End If
Next
End With
End Sub


Für "DeinSheet" musst du den Blattnamen eintragen, für den der Code gelten soll.
Hilft das?
Ciao
Thorsten

Anzeige
AW: Makro zum Ausblenden
17.08.2007 13:49:39
Beate
Hallo Nico,
Sub ausblenden_in_Spalte_D()
On Error Resume Next
Columns("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
Gruß,
Beate

Anzeige
AW: Makro zum Ausblenden
17.08.2007 15:24:00
Nico
Vielen Dank für die Antworten. Ich habe es jetzt so gelöst:

Sub NichtbestellteZeilenausblenden()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 25 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 25 Step -1
If IsEmpty(Cells(intRow, 4)) Then
Rows(intRow).Hidden = True
Else
Rows(intRow).Hidden = False
End If
Next intRow
End Sub


Danke und Gruß
Nico

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige