VBA
31.12.2004 15:46:37
Uwe
Ich versuche in Excel bestimmte Zeilen eines Bereiches (z.B. Zeilen 10 bis 19)auszublenden, bei denen in einer Zelle (z.B. Zellen der Spalte K) der Wert = 0 ist.
Der Prozess wird über eine Schaltfläche (z.B. aktualisieren") gesteuert.
Ich schaffe es bisher nur, dass eine Zeile markiert wird, nicht jedoch sämtliche mit dem Wert = 0.
Folgendes Makro habe ich bisher geschrieben:
Dim czeile As Long
Dim C As Worksheet
Sub Makro_7()
Set C = Worksheets("Gruppe")
czeile = 10
Do
'leer? raus!
If IsEmpty(C.Cells(czeile, 11)) = True Then Exit Do
' Wert = 0?
If C.Cells(czeile, 11).Value = 0 Then
' Zeilen markieren
C.Rows(czeile).Select
End If
'quellzeile erhöhen
czeile = czeile + 1
Loop
Set Quelle = Nothing
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Leider arbeite ich mit VBA noch nicht sehr lange. Deshalb bräuchte ich von euch einen Lösungsvorschlag, da ich mit der VBA-Hilfe auch nicht weiterkam.