ich VBA-Laie brauche einen Code für TabBlatt4.
In diesem Blatt wird in Spalte A11:A100 über
eine WENN-Formel in jeder Zelle eine 0 oder nichts
angezeigt.
Die Zeilen mit 0 sollen automatisch ausgeblendet
werden.
Bitte um Hilfe
Gruß
Andy
Sub Makro1()
Dim Rx As Range
For Each Rx In Worksheets("Tabelle1").Range("A10:A100")
If Rx.Value = 0 Then Rx.EntireRow.Hidden = True
Next
End Sub
und ruftst es über Makro aufrufen in der Standard-Oberfläche oder einen Butto erstellen und das Makro zuweisen.
Gruß Armin
Private Sub Worksheet_Calculate()
Dim loX As Long
For loX = 11 To 100
If Cells(loX, 2).Value = "0" Then Rows(loX).EntireRow.Hidden = True
Next
End Sub
Gruß Matthias
Private Sub Worksheet_Calculate()
Dim loX As Long
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
For loX = 11 To 100
If Cells(loX, ).Value = "0" Then Rows(loX).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
End Sub
Gruß Matthias
Private Sub Worksheet_Calculate()
Dim loX As Long
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Application.EnableEvents = False 'Ereignismakros deaktivieren
For loX = 11 To 100
Rows(loX).EntireRow.Hidden = Cells(loX, 1).Value = "0"
Next
Application.EnableEvents = True 'Ereignismakros aktivieren
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
End Sub
Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = 11 To 100
Rows(i).Hidden = Cells(i, 1) = 0
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rudi
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A10:A100").AutoFilter Field:=1, Criteria1:="="
Application.EnableEvents = True
End Sub
allerdings wurde meines Wissens nach das Application.EnableEvents in Excel 2007 abgeschafft, dh. man muss diese Funktionalität mithilfe einer Variable selbst nachbauen
die Variable muss ausserhalb der der Prozedur, ganz oben unter Option Explicit dimensioniert werden:
Option Explicit
Dim EventsAus As Boolean
Private Sub Worksheet_Calculate()
If EventsAus Then Exit Sub
EventsAus = True
Range("A10:A100").AutoFilter Field:=1, Criteria1:="="
EventsAus = False
End Sub
wenn, analog dem normalen ausblenden die Filter-Markierungen nicht erscheinen sollen, kannst du das mit dieser Erweiterung in der autofilter-Zeile erreichen:
Range("A10:A100").AutoFilter Field:=1, Criteria1:="=", VisibleDropDown:=False
Gruß, Daniel