will damit die Formel von A6 in alle As bringen und die formel von B6 in B6:JYkgvorkommen
wenn ich es auf einem extra blatt ausführe klappts
wenn ich es aber aus dem tabellenblatt ausführe auf dem es sein soll füllt er nur spalten A und B und bei der letzten Zeile kommt der Fehler
Laufzeitfehler 1004
Anwendungs oder objetdefinierter Fehler
kann man das auch gleich iwie so schreiben
bzw wie kann ich nur die formel kopieren und nicht die formatierung
wenn ich es auf einem extra blatt ausführe klappts
wenn ich es aber aus dem tabellenblatt ausführe auf dem es sein soll füllt er nur spalten A und B und bei der letzten Zeile kommt der Fehler
Laufzeitfehler 1004
Anwendungs oder objetdefinierter Fehler
Visual Basic-Quellcode
- Private Sub CommandButton1_Click()
- KGvorkommen = ActiveSheet.Range("I2")
- ActiveSheet.Range("A6").Autofill Destination:=ActiveSheet.Range("A6:A" & KGvorkommen) 'füllt spalte A mit formel
- ActiveSheet.Range("B6").Autofill Destination:=ActiveSheet.Range("B6:B" & KGvorkommen) 'füllt spalte B mit Formel
- ActiveSheet.Range("B6:B" & KGvorkommen).Autofill Destination:=ActiveSheet.Range(Cells(6, "B"), Cells(KGvorkommen, 285)), 'füllt alle zeilen mit der formel
- End Sub
kann man das auch gleich iwie so schreiben
bzw wie kann ich nur die formel kopieren und nicht die formatierung