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

Funktion

Forumthread: Funktion

Funktion
21.10.2008 11:58:29
Rocky
Hallo Leute,
ich möchte eine Funktion haben die eine Zelle überprüft (ob diese leer ist)
wenn ja dann soll die ganze Zeile ausgeblendet werden.

Public Function Zeileausblenden(Bereich As Single)
Application.Volatile
If Bereich = "" Then
Rows(ActiveCell.Row).EntireRow.Hidden = True
Else
Rows(ActiveCell.Row).EntireRow.Hidden = False
End If
End Function


ich bekomms nicht hin
Gruß
Rocky

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion
21.10.2008 12:40:05
Rudi
Hallo,
warum Bereich as Single?
Functions geben i.d.R. Werte zurück und führen keine Aktionen durch.

Sub ZeilenAusblenden(rngBereich As Range)
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In rngBereich
rngC.EntireRow.Hidden = rngC.Value = ""
Next
Application.ScreenUpdating = True
End Sub




Sub tt()
Call ZeilenAusblenden(Range("A1:A100"))
End Sub


Gruß
Rudi

Anzeige
AW: Funktion
21.10.2008 12:45:00
Rocky
Ich wollte ne Funktion nehmen da diese die Bedingungen jedesmal neu prüft.
AW: Funktion
21.10.2008 13:13:31
Andi
Hi,
dann verwende doch das Change-Ereignis der Tabelle.
Schönen Gruß,
Andi
AW: Funktion
22.10.2008 18:39:00
Rocky
Danke,
das war der Tipp den ich brauchte
Gruß
Rocky
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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