Makro Aufzeichnung nachrüsten

Hallo zusammen,
könnte jemand mir weiterhelfen?
Per Makros aufzeichnen habe ich mir eine Datei erstellt. Die Datei besteht aus 6 Arbeitsmappe.
3 Davon sind Rohdaten und 3 weitere sind berechnete Zeilen.
In Modulen habe ich z.B Sverweis oder WENN Funktionen:
z.B:
Sheets("ACC").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D4397")
Range("D2:D4397").Select
~f~
Oder
~f~
Sheets("Event").Select
Range("E2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],ACC!C[-1]:C,2,FALSE)"
Selection.AutoFill Destination:=Range("E2:E4708")
Range("E2:E4708").Select
~f~
Problem:
Meine Rohdaten (erste 3 Tabellen) haben unterschiedliche Zeilenanzahlen und bei jedem Lauf ändert sich wieder. In den Beispielen sieht man, dass eine in dem Fall 4708 Zeilen hat und die andere 4397. Und beim nächsten Lauf kann wieder alles anders sein.
Wenn ich der Anzahl pauschal 100.000 eingebe, dauert die Berechnung ewig.
Bitte:
Kann jemand mir sagen, wie ich meine Makro Aufzeichnung nachrüsten kann, damit sie vor jeden Formeln (SVERWEIS, Copy Paste, Wenn, ISTNV usw..), die Länge der Tabelle rechnet und demensprechend die Funktion durchführt.
Idee:
Der Anzahl als Variable definieren (z.B 4397)= p
Und Anstatt
~f~
Range("E2:E4708") --> Range("E2:Ep")
Ist das so möglich?
Vielen Dank im Voraus.
Viele Grüße
Shahed

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Ws As Worksheet: Set Ws = ThisWorkbook.Worksheets("ACC") Dim r As Range With Ws '(.Rows.count, 4).End(xlUp).Row ermittelt die letzte befüllte 'Zelle in Spalte 4 = D:D Set r = .Range("D2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row) r.FormulaR1C1 = "=RC[-3]&""-""&RC[-2]&""-""&RC[-1]" End With End Sub

HI
diesen Codeteil

Sheets("ACC").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D4397")
Range("D2:D4397").Select

schreibt man besser so, die Formel wird soweit in Spalte D eingefügt, wie in Spalte A Werte stehen.

With Sheets("ACC")
With .Range("D2:D" & .Cells(Rows.count, 1).End(xlup).row)
.FormulaR1C1 = "=RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
end with
End with

die WITH-Klammer ist ein Konstrukt, um Code zu verkürzen.
sie wird dann eingesetzt, wenn ein Objekt in der Folge häufiger benötigt wird.
hierbei wird dieses Objekt in der Zeile mit WITH definiert.
In der folge wird, wenn dieses Objekt verwendet werden soll, nur der Punkt "." gesetzt.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread