autoausfüllen
10.01.2016 18:44:35
Thomas
ich versuche mich gerade an ein Macro "autoausfüllen".
Ich möchte gern bestimmte vorgegebene Zeilen ausfüllen. die Anzahl der betroffenen Spalten steht in einer Zelle
Da ich es nur schwer erklären kann habe ich ein Beispiel mit mein versuch eingestellt. Mit mein versuch bekomme ich die Fehlermeldung "Typenunverträglichkeit"
kann mir jemand helfen?
https://www.herber.de/bbs/user/102705.xlsm
liebe grüsse thomas
Dim x1, x2, y1, y2
Dim Startzeile%, Startspalte%, anzahlzufüllendeSpalten
Dim a1, b1, c2, d2
Dim Wertzeile%, Wertspaltespalte%, Wert%
'#####################################################################
Startzeile = 10
'''''''''''' anzahl der zu füllenden spalten steht Bereich F10 bis F15 (schaffe nur f10 als zelle bereich schaffe ich einfach nicht
Startspalte = 6
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'###################################################################################
a1 = 10: b1 = 6 ' 10:F
c2 = 15: d2 = 6 ' 15:F
'########################################################################################
anzahlzufüllendeSpalten = Worksheets("bearbeitung").Range(Cells(a1, b1), Cells(c2, d2))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
x1 = 6: y1 = 10 ' f:10
x2 = anzahlzufüllendeSpalten: y2 = 15 ' K:15
'#############################################
'Worksheets("bearbeitung").Range(Cells(a1, b1), Cells(c2, d2)).Select
'Range("F10:F15")
Worksheets("bearbeitung").Range(Cells(a1, b1), Cells(c2, d2)).AutoFill Destination:=Range(Cells(y1, x1), Cells(y2, x2)), Type:=xlFillDefault
End Sub