Hi!
Ich habe zeilen ausgeblendet (alle haben keinen Wert in der ersten zelle bzw. eine null). über verknüfungen mit anderen registern können die ausgeblendeten zeilen aber einen wert bekommen. nun möchte ich nachdem die ausgeblendeten zeilen einen wert zugewiesen bekommen haben per button die jeweils entsprechenden zeilen einblenden. klappt bislang auch. nur muss ich den button zweimal betätigen. einmal werden die alle zeilen eingeblendet und dann muss ich noch drücken um die zeilen ohne wert bzw. null wieder auszublenden. kann ich das nicht in einem zug machen. soll heißen, einmal betätigen, er blendet mir nur die zeilen mit wert ein. die ohne wert oder null blendet er erst gar nicht ein!
hoffe ihr könnt mir helfen!!!!
ich habe folgendne button mit dem inhalt erstellt:
Private Sub CommandButton1_Click()
Dim curZeile As Long
Dim RowAusgeblendet As Boolean
Dim Zelle As Excel.Range
RowAusgeblendet = True
With ActiveSheet
For Each Zelle In .UsedRange.Columns("A").Cells
If Zelle = "" Or Zelle = 0 Then
If Zelle.EntireRow.Hidden = False Then
RowAusgeblendet = False
Exit For
End If
End If
Next
If RowAusgeblendet = True Then
.UsedRange.EntireRow.Hidden = False
Else
For curZeile = 1 To .UsedRange.Rows.Count
If .Cells(curZeile, 1) = "" Or .Cells(curZeile, 1) = 0 Then
.Cells(curZeile, 1).EntireRow.Hidden = True
End If
Next curZeile
End If
End With
End Sub
|