Office: (Office 2016) Makro zu AutoFill

Hallo Liebe Helfer/innen,

ich bin gerade dabei eine Projektplanungs excel zu erstellen. Diese steht schon so weit es geht, sehr gut da. Jetzt hab ich ein Problem, mit einem Makro. Ich Lasse Zeilen aus einer Mappe in die andere Kopieren und anschließend aus der Mappe 1 Löschen. Beim Löschen wird die Zeile komplett gelöscht. D.h. wenn ich bis Zeile 185 diverse Spalten vorausgefüllt habe mit Formeln/droppdowns/formatierung, etc. wird ja beim löschen die eine Zeile rausgeworfen und das ganze drum rum ist dann nur noch bis Zeile 184 vorhanden.

Mein Lösungsansatz ist das ich mit folgender funktion arbeite.
Range("A8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select -> Range ("X").Select

so nun mein Problem wie bekomme ich folgenden Funktion

Selection.AutoFill Destination:=Range("AX:Z185"), Type:=xlFillDefault

mit der Oberen verbunden.

Leider bin ich was das VBA Programmieren ein Anfänger/Einsteiger. Das verständnis vom ablauf ist gegeben, nur das eigene umsetze / erstellen leider nicht.

Falls jemand ein besseres, einfachers Makro hat würde mir das auch helfen.


Bei Fragen oder unverständlichkeit einfach melden.

Mit freundlichen Grüßen,
OoDenisoO

 

Nun sind einige Wochen vergangen und ich finds schade das man mir hier nicht helfen konnte/kann. Naja vllt ist meine Idee einfach zu kompliziert umzusetzen...

Trotzdem Danke!

 

Hi,

lade doch mal ein Beispiel hoch, und zwar der Mappe, aus der gelöscht werden soll.

Bis später,
Karin

 

Hallo,
sieht man in der Microsoft-Hilfe zur AutoFill-Methode des Range-Objektes nach, findet man Folgendes:

D.h. "sourceRange" muss ein Teilbereich von "fillrange" sein. Dabei muss "sourceRange" der anfängliche Teilbereich (=Vorgabeteilbereich) sein, mit dessen Hilfe die restlichen Zellen (=Zellen außerhalb von "sourceRange" aber innerhalb von "fillrange") ausgefüllt werden können.

1) Dein Code selektiert zuerst Zelle A8.
2) Von dort ausgehend sucht dann dein Code in der Spalte A hinunter bis in die letzte Zelle des aktuellen Datenbereiches und selektiert diese Zelle der Spalte A.
3) Daraufhin selektiert der Code die 1. Zelle der Spalte A, die 1 Zelle tiefer liegt und folglich nicht mehr zum Datenbereich von vorhin gehört.

4) Diese eine so ermittelte Zelle der Spalte A muss nun die Anfangszelle deines "Destination"-Bereiches "Range(A...:Z185)" sein. Ob das dann eine sinnvolle Autoausfüll-Aktion ergibt, wage ich zu bezweifeln, da ja deine Anfangszelle (mit deren Hilfe Excel das Ausfüllen des restlichen Destination-Bereiches durchführen muss) eine einzelne Zelle ist, die noch dazu leer sein müsste aufgrund deines VBA-Code 1)-3).

5) Da uns potentiellen Helfern sonst nichts bekannt gemacht wurde von dir, kann auch niemand (wirklich) sinnvoll helfen.
6) Um doch eine weiterführende Hilfe zu geben, müsstest du zB. die Zeile der Zelle aus Schritt 3) ermitteln, was mit folgendem Code möglich ist:
Zeile = ActiveCell.Row
und dann folgende Autofill-Anweisung einfügen statt der bisherigen:
Selection.Autofill Destination:=Range("A" & Zeile & ":Z185"), Type:=xlFillDefault

 

Vielen Dank für die Rückmeldung!
Ich werde in den nächsten Wochen die Funktion Testen, wie es leider im Arbeitsleben ist wurde nun ein neues Projekt Priorisiert.
Eine abgespeckte Version von der Excel werde ich als Beispiel auch noch Hochladen.

Bis dahin!