erst mal danke für die sehr zahlreiche hilfe in diesem forum, dadurch kapiere ich das ganze schritt für schritt (auch wenn se klein sind)
Habe mir folgendes makro mit eurer hilfe zusammen gebastelt.
Sub KA_II_TEW1()
Sheets("KA II").Activate
Range("B5:E10").Copy
Sheets("KA II").Activate
x = 1
SucheLeer:
If Cells(x, 2).Value = "" Then
Cells(x, 2).PasteSpecial
Else
x = x + 1
GoTo SucheLeer
End If
Dim c As Range, k&
For Each c In Range("B5:B100")
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub
das funzt auch genau so wie ich das wollte, jetzt versuche ich schon die ganze zeit zwei befehlsflächen mit zu kopieren und habe den makro so verändert,
Sub KA_II_TEW1()
Sheets("KA II").Activate
Range("B5:E10").Copy
Sheets("KA II").Activate
x = 1
SucheLeer:
If Cells(x, 2).Value = "" Then
Cells(x, 2).PasteSpecial.ActiveSheet.Buttons.Add(276.75, 123, 39, 19.5).Select
ActiveSheet.Buttons.Add(276.75, 84.75, 39, 21.75).Select
ActiveSheet.Paste
Else
x = x + 1
GoTo SucheLeer
End If
Dim c As Range, k&
For Each c In Range("B5:B100")
If c.NumberFormat = """TE"" 0" Then
k = k + 1
c.Value = k
End If
Next
End Sub
bekomme aber immer den fehler objekt erforderlich, ich kapiere das nicht.
steh erst am anfang mit VBA.
kann mir jemand helfen ?
mfg
louis