Supportnet Computer
Planet of Tech

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
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, ist
Zitat:
Leider wird nun wenn in Spalte D ein Wert steht, dieser ausgeblendet, sobald in Spalte E eine 0 steht.
doch richtig.
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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: