Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Nullwerte & "" Werte dann Zeile ausblenden.

Wenn Nullwerte & "" Werte dann Zeile ausblenden.
24.07.2015 15:47:13
Heinz
Schönen Freitag im Forum
Im untenstehenden Macro möchte ich die Spalten C100:C135 wenn ein Wert "0" oder leer "" ist ausblenden.
Funktioniert aber nicht wie gewollt.
Eventuell auch nach Werten von Spalte "C" A100:D135 absteigend sortieren.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß Heinz
Sub Zeilen_ausblendenHeim() Dim i As Integer Application.ScreenUpdating = False With ActiveSheet For i = 100 To 135 If .Cells(i, 3) = 0 Then .Rows(i).Hidden = True Next i For i = 100 To 135 If .Cells(i, 3) = "" Then .Rows(i).Hidden = True Next i End With Application.ScreenUpdating = True End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
24.07.2015 16:58:14
Matthias
Hallo Heinz
Funktioniert aber nicht wie gewollt.
Was geht denn bei Dir nicht?
Bei mir funktioniert es.
Übrigens kannst Du Dir die 2.Schleife sparen
Dim i&
Application.ScreenUpdating = False
For i = 100 To 135
If Cells(i, 3) = 0 Or Cells(i, 3) = "" Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
und das with brauchst Du bei ActiveSheet auch nicht
Gruß Matthias

AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
24.07.2015 17:00:18
AlexG
Hallo Heinz,
Was meinst du mit: "funktioniert nicht wie gewollt"?
Ich habe deinen Code etwas gekürzt und er funktioniert
Sub Zeilen_ausblendenHeim()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 100 To 135
If .Cells(i, 3) = 0 Or .Cells(i, 3) = "" Then
    .Rows(i).Hidden = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Brauchst du die Sortierung des Bereiches A100:D135?
Gruß
Alex

Anzeige
AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
24.07.2015 22:34:55
Heinz
Hallo Matthias & Alex
Erstmals Danke für Eure Hilfestellung !!!
Leider funktionieren beide Code von Euch bei mir nicht.
Warum - Weshalb - Wieso ?
Habe die Datei mal hochgeladen
https://www.herber.de/bbs/user/99063.xlsm
Vielleicht findet ihr den Fehler?
Gruß Heinz

AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
24.07.2015 23:44:11
Matthias
Hallo
Keine Ahnung warum das bei Dir nicht geht.
Bei mir funktioniert es.
 ABCD
98    
99LASK Runde HeimLASK Gegner HeimLASK Zuseher HeimLASK Datum Heim
100Runde 01Floridsdorfer AC13.456Fr.24.07.15
103Runde 04SK Austria Klagenfurt4.123Fr.07.08.15
136    


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias
Anzeige

382 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1