Autofill Dynamisieren?

[Seeqi]

Guten Abends zusammen,

erneut muss ich mich an euch wenden, mit der Hoffnung hilfe zu bekommen  .

Worum geht's?
Ich verplane Stunden für ein Dienstleistungsunternehmen, heißt hier habe ich einen Jahresplan mit 365 Spalten die Tagesscharf befüllt werden wollen.
zu 99% bleibt der Rythmus der Stunden gleich.
Ziel ist es jetzt, dass ich 2 Wochen eingebe diese 2 Wochen markiere, einen Button betätige oder eine Tastenkombi und er dann die Werte auffüllt bis zum 31.12.

Über den Makrorecorder konnte ich das ganze schon so weit erstellen das ich im Code die zeilen nummer abändern muss und F5 drücken muss...hat mir schon geholfen aber dynamisch wäre dann nochmal etwas schicker :).

Hoffe es ist einigermaßen verständlich was ich meine?

Ansonsten wird die Datei hoffentlich helfen.

Liebe Grüße

Seeqi

[Elex]

Hi

Ziel ist es jetzt, dass ich 2 Wochen eingebe diese 2 Wochen markiere

Und jetzt versuch mal ob ein Doppelklick auf die rechte untere Ecke nicht schon reicht.

Gruß Elex

[Seeqi]

Moin,

da befüllt man nur Spalten mit soweit ich weiß , ich benötige aber eine Auffüllung der Zeile 

[RPP63]

Moin!
Ja, so ist es!
Folgendes müsste noch ein intensiveres Error-Handling bekommen.
Aber mal als Ansatz:

Code:

Sub FillItRight()
With Selection
  If .Rows.Count = 1 Then
    .AutoFill Range(.Cells(1), Cells(.Row, 373)), xlFillCopy
  End If
End With
End Sub

Gruß Ralf

[derHoepp]

Hi,

ich würde wahrscheinlich den Ansatz insgesamt anpassen und die Informieren nicht direkt in die grafische Ansicht des Kalenders schreiben, sondern in eine Datenliste. Die grafische Ansicht greift dann nur noch per Formeln auf die Quelle zu. Das Prinzip kannst du aus der Beispieldatei von snb in diesem Beitrag ablesen: https://www.clever-excel-forum.de/Thread...#pid260398

Viele Grüße
derHöpp

[Seeqi]

Moin Ralf,

vielen Dank! funktioniert so erstmal super!

Lg Maik

[snb]

Warum nicht ?

Code:

Sub Makro1()
  [J11:P11].AutoFill [J11:AL11], 1
End Sub

Wenn selection =[J11:P11]

Code:

Sub Makro1()
   Selection.AutoFill Selection.Resize(, 23), 1
End Sub

PS. Ich bin bei derH.

[RPP63]

PS. Ich bin bei derH.

Mag ja sein.
Jedenfalls bist Du nicht im Thema!
Was soll ein Resize(), wenn man es zunächst errechnen muss, was Du nicht tust?
Die geforderte Dynamik jedenfalls siehst Du nicht.
Jedenfalls muss hier die ungeliebte Selection als Berechnungsgrundlage dienen.

Gruß Ralf

[snb]

@RPP

Beispiedatei übersehen ?

[RPP63]

Nö, habe ich nicht.
Ich habe aber auch die Threaderöffnung gelesen:

hier habe ich einen Jahresplan mit 365 Spalten

Es handelt sich (beim Original) um eine Jahresdatei, die folglich nicht in Spalte AL (30.1.) endet.

Ziel ist es jetzt, dass ich 2 Wochen eingebe diese 2 Wochen markiere, einen Button betätige oder eine Tastenkombi und er dann die Werte auffüllt bis zum 31.12.

Ich habe es so verstanden, dass irgendwo im Jahr 2 Wochen eingetragen werden und per Makro dann bis zum Jahresende ausgefüllt werden soll.

Dies leistet mein Makro.

Gruß Ralf