Hey Mike,
Wow! Da wechselt man mal vom IE zu Chrome und siehe da, die Welt sieht schon besser aus!
Soo, jetzt hab ich auch den Button den du erwähnt hattest:
Sub test()
Dim Zelle As Range
For Each Zelle in Worksheets("Tabelle1").Range("A2:AAA2")
If Zelle <> "" Then
ActiveCell.End(xlDown).Offset(2,0).FormulaR1C1 = "=SUBTOTAL(9,R[-66]C:R[-2]C)"
End If
Next
End Sub
Nun, mal abgesehen davon dass mir dieser Code den Fehler "Anwendungs- oder Objektdefinierter Fehler" ausgibt, bin ich auch für andere Codes offen die den von mir gewünschten Zweck erfüllen.
Vielleicht sollte ich noch erwähnen, dass ich erst vor 2 Monaten mit VBA angefangen habe und von daher meine Fähigkeiten noch in den Kinderschuhen stecken.
MfG,
Karl
|