Guten Morgen!
Ausgangssituation:
In der Zelle J3 wird schlicht ein Wert aus einem anderen Blatt kopiert - unkritisch
Folgendes soll nun passsieren:
1. Die "Formel" soll auf die Zellen k3-q3 übertragen werden, damit diese die Nachbarzellen der Zelle, auf die sich J3 bezieht übertragen
2. Dann soll die "Formel" bis Zeile 100 heruntergezogen werden.
.Sub Listenaktualisierung_KR12()
Dim Zeile4, zeile5, zeile6 As Integer
' Listenaktualisierung_KR12 Makro
'
'Formel kopieren
Sheets("Zwischenpeicher").Select
Range("j3").Select
Selection.AutoFill Destination:=Range("j3:q3"), Type:=xlFillDefault
'formeln aus B3:h3 kopieren bis Zeile 33
Range("j3:q3").Select
Selection.AutoFill Destination:=Range("j3:q100")
Bonusfrage: Was genau bedeutet TType:=xlFillDefault ?
Vielen Dank im Voraus und allen einen angenehmen Tag
|