Supportnet / Forum / Tabellenkalkulation
Makro zum Ausblenden von Zeilen.
Frage
Hallo !
Ich habe eine Tabelle, in der ich Zeilen per Makro ausblenden möchte, wenn der Wert in den Spalten D oder E 0 ist.
Ich habe dazu folgendes Makro geschrieben:
Dim n As Integer
For n = 10 To 1017
If Cells(n, 4).Value = "0" Then
Rows(n).EntireRow.Hidden = True
End If
Next
For n = 10 To 1017
If Cells(n, 4).Value > 0 Then
Rows(n).EntireRow.Hidden = False
End If
Next
For n = 10 To 1017
If Cells(n, 4).Value < 0 Then
Rows(n).EntireRow.Hidden = False
End If
Next
For n = 10 To 1017
If Cells(n, 5).Value = "0" Then
Rows(n).EntireRow.Hidden = True
End If
Next
For n = 10 To 1017
If Cells(n, 5).Value > 0 Then
Rows(n).EntireRow.Hidden = False
End If
Next
For n = 10 To 1017
If Cells(n, 5).Value < 0 Then
Rows(n).EntireRow.Hidden = False
End If
Next
End Sub
Leider wird nun wenn in Spalte D ein Wert steht, dieser ausgeblendet, sobald in Spalte E eine 0 steht.
Kann mir jemand helfen ??
Danke und Gruß,
Tojo
Antwort 1 von schnallgonz
Hallo Tojo
Zum Ausblenden brauchst Du nur eine Schleife, die anderen mit Wert <> kannst Du weglassen.
Falls die Zeilen nur ausgeblendet werden sollen, wenn D und E = 0 sind, dann schreib:
MfG
schnallgonz
Ich stimme mit der Mathematik nicht überein.
Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)
Signatur und Textformatierungen wurden mit SNTool V1.2.14 erstellt
Zitat:
Ich habe eine Tabelle, in der ich Zeilen per Makro ausblenden möchte, wenn der Wert in den Spalten D oder E 0 ist.
wenn das so sein soll, istIch habe eine Tabelle, in der ich Zeilen per Makro ausblenden möchte, wenn der Wert in den Spalten D oder E 0 ist.
Zitat:
Leider wird nun wenn in Spalte D ein Wert steht, dieser ausgeblendet, sobald in Spalte E eine 0 steht.
doch richtig.Leider wird nun wenn in Spalte D ein Wert steht, dieser ausgeblendet, sobald in Spalte E eine 0 steht.
Zum Ausblenden brauchst Du nur eine Schleife, die anderen mit Wert <> kannst Du weglassen.
Falls die Zeilen nur ausgeblendet werden sollen, wenn D und E = 0 sind, dann schreib:
If Cells(n, 4).Value = "0" And Cells(n, 5).Value = "0" Then
Rows(n).EntireRow.Hidden = True
MfG
schnallgonz
Ich stimme mit der Mathematik nicht überein.
Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)
Signatur und Textformatierungen wurden mit SNTool V1.2.14 erstellt
Antwort 2 von nighty
hi all :)
kleines beispiel in wechselwirkung :)
gruss nighty
Option Explicit
Sub makro01()
Dim zaehler1 As Integer
If Range("A10:A1017").EntireRow.Hidden = True Then
Range("A10:A1017").EntireRow.Hidden = False
End
End If
For zaehler1 = 10 To 1017
If Cells(zaehler1, 4).Value = 0 Or Cells(zaehler1, 5).Value = 0 Then Rows(zaehler1).EntireRow.Hidden = True
Next zaehler1
End Sub
kleines beispiel in wechselwirkung :)
gruss nighty
Option Explicit
Sub makro01()
Dim zaehler1 As Integer
If Range("A10:A1017").EntireRow.Hidden = True Then
Range("A10:A1017").EntireRow.Hidden = False
End
End If
For zaehler1 = 10 To 1017
If Cells(zaehler1, 4).Value = 0 Or Cells(zaehler1, 5).Value = 0 Then Rows(zaehler1).EntireRow.Hidden = True
Next zaehler1
End Sub