Zelle Einfügen und Formeln kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Haroid1

Deine Anfrage ist etwas wirr, weil du von "ENDE" sprichst, wir aber deine Tabelle gar nicht kennen.
Egal. Dann ist die Antwort auch etwas unkonkreter.

Ich hab einfach mal das ende der Zeilen und Spalten selbst ermittelt, das musst du evtl dann noch anpassen.
Versuch mal diesen Code, so hab ich jedenfalls die Frage verstanden.

Sub vorbereiten()

    Dim lcol As Single

    Dim lzeile As Single

    Dim bis_ende As Range

    

    ActiveSheet.Unprotect 'Blattschutz aufheben

    Range("A1:H1").Copy

    Range("A2").PasteSpecial xlPasteFormulas 'nur formeln kopieren



    lcol = ActiveSheet.UsedRange.Columns.Count 'letzte spalte

    lzeile = ActiveSheet.UsedRange.Rows.Count    'letzte Zeile

    

    Set bis_ende = Range(Cells(1, "i"), Cells(1, lcol)) 'formeln I bis "ende"

    bis_ende.AutoFill Range(bis_ende, bis_ende.Offset(lzeile, 0)) 'formeln ausfüllen



    Range("I:K,P:P,V:V,W:Y").Locked = False 'Zellen entsperren

    ActiveSheet.Protect 'arbeitsblatt schützen



End Sub

Gruß, MCO

Hey MCO

Ui, ja - konnte mich nicht so ausdrücken wie ich wollte...
Erstmal Danke für die rasche Antwort! Langsam komme ich hin wo ich hin möchte!
Wennst es hinbekommst lass ich dir eine Kiste Bier schicken:)

Ist eine sturmalte Tabelle mit endlosen daten der letzten Jahre, nicht von mir gemacht aber sollte optimiert werden damit ich mir etwas Zeit spare:) desshalb auch mein grenzenloses Unwissen....

Also:
Spalten von A bis AC, einige mit, andere ohne funktionen - desshalb nur formeln kopieren (von A bis AC)
Bezugspunkt des Makros sollte die darüberliegende Zeile sein (befinde mich in Zeile 2970...)

Also im Idealfall: Ich klicke meine Schaltfläche, bekomme ober der Ausgewählten Zeile eine neue und die Formeln von A bis H werden Übernommen, die von I (i) bis AC fortlaufend weitergeführt (nur formeln, keine leeren zellen)

Kompliziert da es sich um eine bestehende Mappe handelt mit aufgezeichneten Makros von 1998! welche ich nicht ändern kann... jedoch wäre es einen versuch wert und nun fehlt nur noch dieses Makro....

Dank dir und nichts für ungut wenns dir zu kompliziert ist mit mir;)

Sub Zeile_einfügen() ActiveSheet.Unprotect 'Blattschutz aufheben Set cl = ActiveCell Rows(cl.Row).Insert xlDown neue_zeil = cl.Row - 1 Range("A" & neue_zeil - 1 & ":H" & neue_zeil - 1).Copy Range("A" & neue_zeil).PasteSpecial xlPasteFormulas 'nur formeln kopieren Set I_bis_AC = Range("i" & neue_zeil - 1 & ":AC" & neue_zeil - 1) 'formeln I bis "ende" I_bis_AC.AutoFill Range("i" & neue_zeil - 1 & ":AC" & neue_zeil) 'formeln ausfüllen ActiveSheet.Protect 'arbeitsblatt schützen End Sub

Beliebteste Forumthreads (12 Monate)

Zelle Einfügen und Formeln kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle Einfügen und Formeln kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread