Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige