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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen