And zelle.EntireRow.Visible = True ?
23.04.2013 11:45:23
Peter
Das WorksheetChange sollte nur auf den Zeilen ausgeführt werden, wenn die Zeile eingeblendet ist ist. Wenn ich eine Zelle mit drag and drop nach unten ziehe, werden auch die mittels Filter ausgeblendeten Zeilen abgefüllt. Ich versuchte, das zu verhindert mit
And zelle.EntireRow.Visible = True
aber es klappt nicht.
Wer kann mir helfen?
Danke und Gruss, PEter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range, lngWer As Long, lngDate As Long, lngTime As Long, lngExp As Long
Dim lngDoIt As Long, lngDoIt2 As Long
If Mid(ThisWorkbook.Names("_Aktiv").RefersTo, 2, 99) = 0 Or Target.Row "" _
Then '''nur eintragen, wenn Eintrag in definierter Spalte und Valutaspalte nicht leer ist
If Target.Count = 1 Then
Cells(Target.Row, lngWer) = Environ("Username")
Cells(Target.Row, lngDate) = Date
Cells(Target.Row, lngTime) = Time
Else
For Each zelle In Selection
If Cells(zelle.Row, lngExp) "" And zelle.EntireRow.Visible = True Then Cells(zelle.Row, _
lngWer) = Environ("Username")
If Cells(zelle.Row, lngExp) "" And zelle.EntireRow.Visible = True Then Cells(zelle.Row, _
lngDate) = Date
If Cells(zelle.Row, lngExp) "" And zelle.EntireRow.Visible = True Then Cells(zelle.Row, _
lngTime) = Time
Next
End If
End If
End Sub