FillDown oder AutoFill über variablen Range
15.01.2008 14:59:59
Thomas
folgendes Makro habe ich nun fast so weit entwickelt, dass es so funktioniert wie ich es mir vorstelle.
Leider fehlt mir das Wissen zum krönenden Abschluss.
Wie zu erkennen wird hier in der ersten freien Spalte in der ersten Zeile das Wort "Stückzahl" eingetragen. In der direkt darunter liegenden Zelle erfolgt der Eintrag "1".
Nun sollte die "1" mit der Funktion nach unten ausfüllen (FillDown) entsprechend eingetragen werden.
Da ich das Makro variabel gestalten möchte kann ich hier keinen fixen Range eingeben sondern muss diesen von der Spalte der "Stückzahl" abhängig machen.
Hier liegt auch das eigentliche Problem, denn nach Aufnahme des entsprechenden Makros über den Recorder und das Austauschen des Range druch
wks.range(cells(intRow, intColumn), cells(intRowlast, intColumnlast)).select
Beginnt der Debugger und ich bin mit meinen VBA - Kenntnissen am Ende.
Vielen Dank schon mal!!!
Viele Grüße,
Thomas
Sub Stückzahl_1_verfoll()
' stückzahl Makro
' Makro am 07.01.2008 von thomas.stock aufgezeichnet
Dim intRow As Integer 'inRow Reihenvariable
Dim intColumn As Integer 'intColumn Spaltenvariable
Dim intRowlast As Integer 'intRowlast letzte Reihe
Dim intColumnlast As Integer 'intColumnlast letzte Spalte
Worksheets(1).Range("1:1").Find("", LookIn:=xlValues).Select
ActiveCell.FormulaR1C1 = "Stückzahl"
intColumn = ActiveCell.Column
intRow = ActiveCell.Row
intRow = intRow + 1
Cells(intRow, intColumn).Select
ActiveCell.FormulaR1C1 = "1"
ActiveCell.SpecialCells(xlLastCell).Select
intColumnlast = ActiveCell.Column
intRowlast = ActiveCell.Row
intRowlast = intRowlast - 1
wks.Range(Cells(intRow, intColumn), Cells(intRowlast, intColumnlast)).Select
Selection.FillDown
'Range("BH3").Select
'Selection.FillDown
End Sub