Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige
AW: Funktion
22.10.2008 18:39:00
Rocky
Danke,
das war der Tipp den ich brauchte
Gruß
Rocky

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige