ich habe ein problem bei dieser Formel.
Es soll, wenn die zahl zwischen 1000 und 9999 liegt, die zahl "rauskopiert" werden.
Es werden aber auch 2,3,4,5,6 kopiert!
Warum? :-)
Private Sub CommandButton1_Click()
leer = 1
weit = Sheets("Tabelle1").Range("N59") * 59
For Each l In Tabelle1.Range("B15:B" & weit)
If l.Value >= "1000" And l.Value <= "9999" Then
l.Select
Set l = ActiveCell
ActiveCell.Copy
Sheets("Tabelle2").Range("A" & leer).PasteSpecial xlPasteValues
leer = leer + 1
CutCopyMode = False
End If
Next
End Sub