Vieleicht kann mir jemand von Euch helfen.
Hab noch ein blödes Problem mit folgendem Code:
Dim rngZelle As Range, wks As Worksheet
Set wks = ActiveSheet
Selection.AutoFilter Field:=11, Criteria1:="" 'Spalte K
With wks
For Each rngZelle In .Range(.Cells(3, 11), _
.Cells(.Rows.Count, 11).End(xlUp)).Cells.SpecialCells(xlCellTypeVisible)
.Cells(rngZelle.Row, 16).Value = .Cells(rngZelle.Row, 4).Value
.Cells(rngZelle.Row, 17).Value = strAktiveDatei
.Cells(rngZelle.Row, 18).Value = .Cells(rngZelle.Row, 7).Value
.Cells(rngZelle.Row, 19).Value = strBearbeiterÜbergabeEintrag
.Cells(rngZelle.Row, 4).Value = ""
Next
End With
Das funktioniert tadellos solange NICHT die Zeile 3 die gewählte und die einzige ist die gefunden wird.
Warum ist das so!
Gruß und Dank
Leitz G.