vba formel ziehen

Bild

Betrifft: vba formel ziehen
von: Andrea
Geschrieben am: 31.08.2015 12:45:43

Hallo zusammen,
Ich habe in der F3 G3 H3 Formeln stehen.
Kann man die per vba automatisch nach unten ziehen?
Momentan gebe ich ein F3:F25000 aber das nächste mal ist die Liste kleiner und geht trotzdem bis 25000.
Kann mir jemand helfen
Gruß Andrea

Bild

Betrifft: AW: vba formel ziehen
von: Daniel
Geschrieben am: 31.08.2015 12:52:09
Hi
kommt darauf an, wie weit du sie nach unten ziehen willst.
wenn beispielsweise die Spalte A die relevante Spalte ist, dann

Range("F3:H3").Copy
Range("F4:H" & Cells(Rows.count, "A").end(xlup).Row).PasteSpecial xlpastevalues
Gruß Daniel

Bild

Betrifft: AW: vba formel ziehen
von: Andrea
Geschrieben am: 31.08.2015 13:07:06
Hallo
die erste formel ist:
f3=sverweis (a3;tabelle2!;A:C;2;falsch)
G3=sverweis (a3;tabelle2!;A:C;3;falsch)
H3=sverweis (f3;Auswertung !;b:C;2;falsch)
I3=wenn (vergleich (A3;A:A;0)=Zeile();"e";"l")
Kann ich deinen Code übernehmen?
Gruß Andrea

Bild

Betrifft: AW: vba formel ziehen
von: Daniel
Geschrieben am: 31.08.2015 13:17:35
Hi
welche Formeln da drin stehen, ist dem Code egal.
wenn die formeln so geschrieben sind, dass du sie mit Copy/Paste in die anderen Zellen übertragen kannst, dann sollte der Code funktioniern.
die Spalte I, die jetzt plötzlich hinzugekommen ist, habe ich natürlich nicht berücksichtigt (bin ja kein Hellseher), da müsstest du den Code entsprechend anpassen.
Gruß Daniel

Bild

Betrifft: AW: vba formel ziehen
von: Andrea
Geschrieben am: 31.08.2015 20:13:20
Hallo Daniel,
Sorry für die Spalte I.
Anbei die Datei.
Bei mir Funktioniert es leider nicht.
Kommt immer Fehler.
https://www.herber.de/bbs/user/99926.xlsx
Bis ca. 25000 Zeilen.
Hoffe du kannst noch einmal Zeit für mich investieren.
Danke
Gruß Andrea

Bild

Betrifft: AW: vba formel ziehen
von: Daniel
Geschrieben am: 31.08.2015 21:53:39
Hi
und wo ist dein Makro?
du musst die Datei schon als xlsm speichern und hier einstellen.
Gruss Daniel

Bild

Betrifft: AW: vba formel ziehen
von: Andrea
Geschrieben am: 31.08.2015 22:06:12
hallo Daniel,
sorry zum zweiten mal:-(
Anbei die Datei:
https://www.herber.de/bbs/user/99928.xlsm
Gruß Andrea

Bild

Betrifft: AW: vba formel ziehen
von: Daniel
Geschrieben am: 31.08.2015 22:37:37
hi
Rows.Count
Gruss Daniel

Bild

Betrifft: AW: vba formel ziehen
von: Andrea
Geschrieben am: 01.09.2015 05:50:43
Hallo Daniel,
Ich schon wieder :-(
Jetzt geht dein Code. Hatte einen Fehler drin.
Aber der Code ist nicht fortlaufend. Sondern so wie in der ersten zeile.
LG Andrea

Bild

Betrifft: AW: vba formel ziehen
von: hary
Geschrieben am: 01.09.2015 06:39:47
Moin
Mit PasteSpecial xlpastevalues kann das auch nicht klappen. Values uebertraegt nur den Wert der Zelle nicht die Formel.
Mach's mal so.

With Worksheets("Zusammenfassung")
 .Range("F3:I3").AutoFill Destination:=.Range("F3:I" & .Cells(Rows.Count, "A").End(xlUp).Row),  _
Type:=xlFillDefault
End With

gruss hary

Bild

Betrifft: Es funktioniert. Danke an Hary und Daniel
von: Andrea
Geschrieben am: 01.09.2015 09:01:38
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "vba formel ziehen"