Zeilen mit 0 Wert Loeschen ?

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Sturmbringer
Beiträge: 3
Registriert: Mi, 20.12.2006 08:45
Wohnort: Dortmund

Zeilen mit 0 Wert Loeschen ?

Beitrag von Sturmbringer »

Moin,

gibt es eine Art WENN funktion oder eine Macro mit der ich Zbsp. eine Zeile mit 0 Werten loeschen kann ?

Also wenn ich mehrere Zeilen mit Daten habe, aber zwischendruch immer mal wieder eine Zeile ist in der 1 mal der Wert 0 in einem bestimmten Feld vorkommt, soll er diese Zeile loeschen. Bzw. einfach nicht mitdrucken, so das ich beim Ausdruck, nur Zeilen, mit Werten >0 habe.

Als Funktion wird es sowas wohl nicht geben .... da dachte ich mir - hey schreib Dir ne Macro ... als ich die API gesehen habe, habe ich 5 mal geschluckt, 10 Minuten spaeter das gleiche .... i only understand Railwaystation ....

Moechte ja garnicht, das mir hier jemand ne fertige Loesung schenkt ;)
Ein Link, zu einer deutschen Anleitung (vor allem mit allen Befehlen ;). .. )
fuer die API, wuerde mir erstmal schon weiter helfen.

PS: wenn jemand trotzdem sowas in lauffaehiger Vesion hat -ich nehms :)
Sturmbringer
Beiträge: 3
Registriert: Mi, 20.12.2006 08:45
Wohnort: Dortmund

Beitrag von Sturmbringer »

Lol, wer lesen kann - hab es mir angepassst .. thx !!!!
stbuerk
***
Beiträge: 97
Registriert: Do, 05.01.2006 08:31
Wohnort: Wuppertal

Beitrag von stbuerk »

Probier es doch mal mit Daten/Filter.

Da kann man unerwünschte Zeilen je nach deren Eigenschaften ruck-zuck ausblenden!
Sturmbringer
Beiträge: 3
Registriert: Mi, 20.12.2006 08:45
Wohnort: Dortmund

Beitrag von Sturmbringer »

Hab einfach das genommen -->>

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub CommandButton1_Click()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 4).End(xlUp).Row
For iRow = 1 To iRowL
If Cells(iRow, 4).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
'ActiveSheet.PrintPreview
'Rows.Hidden = False
End Sub

Private Sub CommandButton2_Click()
Rows.Hidden = False
End Sub


mit bisserl anpssung klappt es perfekt :)
Antworten