Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
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
Inhaltsverzeichnis

Zeilen ausblenden wenn Wert in Zelle <=-10

Zeilen ausblenden wenn Wert in Zelle <=-10
28.05.2013 09:44:36
Hanshuerbel
Hallo.
Habe volgendes Problem. Möchte gerne alle Zeilen verbergen wenn der Wert in Zelle D kleiner gleich -10 ist. Leider bringt er mir einen Fehler bei Cell.EntireRow.Hidden.
vermute mal das es an dem Minuszeichen liegt.
Bitte um Hilfe.
Danke
Sub HideRows()
Application.ScreenUpdating = False
Set CellRange = Range("D6:D2500")
For Each Cell In CellRange
Cell.EntireRow.Hidden = (Cell.Value 

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn Wert in Zelle <=-10
28.05.2013 09:48:28
Hajo_Zi
bei mir bringt er keine Fehler.
Option Explicit
Sub HideRows()
Application.ScreenUpdating = False
Dim CellRange As Range
Dim Cell As Range
Set CellRange = Range("D6:D2500")
For Each Cell In CellRange
Cell.EntireRow.Hidden = Cell.Value 

AW: Zeilen ausblenden wenn Wert in Zelle <=-10
28.05.2013 10:24:40
Frank
Hallo,
vermeide die Benennung einer Variablen mit dem Namen eines VBA-Schlüsselwortes, einer VBA-Eigenschaft oder VBA-Methode. Deine Objektvariable 'Cell' sollte also eher 'rngCell' oder 'myCell' heissen.
Sub HideRows()
Dim CellRange As Range
Dim rngCell As Range
Application.ScreenUpdating = False
Set CellRange = Range("D6:D2500")
For Each rngCell In CellRange.Cells
rngCell.EntireRow.Hidden = rngCell.Value 

Anzeige
Cell ist KEIN VBA Schlüsselwort! (owT)
28.05.2013 10:33:09
EtoPHG

AW: Zeilen ausblenden wenn Wert in Zelle <=-10
28.05.2013 10:33:56
Hanshuerbel
Danke für die Antworten.
Er bringt mir nach wie vor einen Fehler in der Spalte mit der -10.
Fehlercoder Run time error 13
Type Mismach.
LG Hans

Du hast nicht überall Zahlen in Spalte D (owT)
28.05.2013 10:40:01
EtoPHG

AW: Du hast nicht überall Zahlen in Spalte D (owT)
28.05.2013 11:46:10
Hanshuerbel
Danke für die Vielen Antworten.
Könnte mir jemand den Code mal so darstellen wie er richtig wäre.
Ich blicks net.
Danke.

AW: Du hast nicht überall Zahlen in Spalte D (owT)
28.05.2013 11:56:58
Hajo_Zi
Hallo Hans,
der Code ist richtig, es liegt an der Datei die wir nicht sehen.
Gruß Hajo

Texte ignorieren
28.05.2013 12:00:07
Rudi
Hallo,
Sub HideRows()
Dim CellRange As Range
Dim rngCell As Range
Application.ScreenUpdating = False
Set CellRange = Range("D6:D2500")
For Each rngCell In CellRange.Cells
If IsNumeric(rngCell) Then
rngCell.EntireRow.Hidden = rngCell.Value 

Gruß
Rudi

Anzeige
AW: Texte ignorieren
28.05.2013 14:21:22
Hanshuerbel
Boah Bombe Rudi!!!!
Dank Dir vielmals! Jetzt läufts wunderbar.
LG Hans

376 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige