Guten Morgen zusammen,
ich bin am verzweifeln. Ich möchte in folgender Tabelle, in Spalte C ab Zeile 2 eine Zahlenreihe haben. Damit meine ich C2=1 / C3=2 / C4=3 usw.
Zeilenbeschriftungen |
Summe von VK diff ges. |
66300584 |
-3995,7 |
37302611 |
-2715,63 |
33302771 |
-1905,27 |
63302304 |
-1863,04 |
37302340 |
-1598,52 |
66301013 |
-1582,39 |
33301001 |
-1531,96 |
33302433 |
-1491,32 |
66300552 |
-1457,58 |
66300396 |
-1355,07 |
63300117 |
-1279,41 |
33302557 |
-1251,86 |
31301264 |
-1235,01 |
ich habe es schon mit folgendem Code probiert:
1 2 3 4 5 6 7 8 | Dim Ende As Long
With ActiveSheet
Ende = .Cells(.Rows.Count, 2). End (xlUp).Row
.Range( "C2" ) = 1
.Range( "C3" ) = 2
.Range( "C2:C3" ).AutoFill Destination:=Range( "C2:C" & Ende), Type:=xlFillDefault
End With
|
Nicht wundern es ist nur ein Teil von einem größeren Makro deshalb fehlt Sub... und End Sub... .
Das Makro füllt die Zellen C2 und C3 richtig aus jedoch funktioniert die Autofill funktion nicht.
Könnt ihr mir bitte helfen.
|