ich habe mir dank eurer hilfe ein makro zusammengebastelt was auch super funzt.
Jetzt möchte ich die schaltflächen noch mit kopieren bekomme das aber nicht hin.
https://www.herber.de/bbs/user/14744.xls
Hat jemand einen rat?
Danke im vorraus.
louis
Sub n()
Range("B5:E10").Copy
cells([B5].end(xldown).row+1,2).select
selection.paste
application.cutcopymode=false
For Each c In range([b5],cells([b5].end(xldown).row,2))
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub
Sub n()
Range("B5:E10").Copy
Cells([B5].End(xlDown).Row + 1, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
For Each c In Range([B5], Cells([B5].End(xlDown).Row, 2))
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub