Seite 1 von 1

Zeilen mit 0 Wert Loeschen ?

Verfasst: Mi, 20.12.2006 08:57
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 :)

Verfasst: Mi, 20.12.2006 10:19
von Sturmbringer
Lol, wer lesen kann - hab es mir angepassst .. thx !!!!

Verfasst: Mi, 20.12.2006 17:14
von stbuerk
Probier es doch mal mit Daten/Filter.

Da kann man unerwünschte Zeilen je nach deren Eigenschaften ruck-zuck ausblenden!

Verfasst: Mi, 20.12.2006 18:30
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 :)