Formel von Makrorekorder verbessern!!??

Hi Leute,
da mein Makro nicht wirklich schnell ist, versuch ich gerade ein wenig verweifelnd das mit dem Rekorder aufgenommene Makro zu verbessern.
ursprüngliches Makro:

'hier beginnt der Code für Diagramm5
' Lkw-Verkehrsstärke berechnen lassen
Sheets("Wertetabelle").Select
'fügt Straßennamen in F1 ein
Range("F1").Select
ActiveCell.FormulaR1C1 = "=LEFT(R[4]C[-2],15)" '12 als 15
Range("A1").Select
'weiter mit Verkehrsstärke Lkw
Range("X5").Select
ActiveCell.FormulaR1C1 = "=RC[-13]-RC[-11]"
Range("X5").Select
Selection.AutoFill Destination:=Range("X5:X22400"), Type:=xlFillDefault
Range("X5:X22400").Select
'Einschub Filtereintrag erste Zeile

Kann man das ursprüngliche Makro in das folgende Makro umschreiben, um wesentlich schneller zu werden?

'hier beginnt der Code für Diagramm5
Sheets("Wertetabelle").Range("F1").Select
' Lkw-Verkehrsstärke berechnen lassen
Sheets("Wertetabelle").Range("F1").Formula = "=LEFT(R[4]C[-2],15)" '12 als 15
'weiter mit Verkehrsstärke Lkw
Sheets("Wertetabelle").Range("X5").Select
Sheets("Wertetabelle").Range("X5").Formula = "=RC[-13]-RC[-11]"
Dim z
z = Range("W5").End(xlDown).Row
Selection.AutoFill Destination:=Range(Cells(5, 5), Cells(z, 5)) ', Type:=xlFillDefault
'Einschub Filtereintrag erste Zeile

Die Select Zeilen kann ich dann wohl auch weglassen, da sie wohl auch bremsen und außerdem überflüssig sind, oder?
Danke schon mal!
Gruß Till

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Probieren() With Worksheets("Wertetabelle") .Range("F1").FormulaR1C1 = "=LEFT(R[4]C[-2],15)" '12 als 15 With .Range("X5") .FormulaR1C1 = "=RC[-13]-RC[-11]" .AutoFill Destination:=.Range("X5:X22400"), _ Type:=xlFillDefault End With End With End Sub

Hallo Leute,
hab mir jetzt Eure Vorschläge noch mal genauer angeschaut!
Irgendetwas ist immer noch nicht so ganz richtig an dem verbesserten Code.
Richtig ist, dass jetzt alles wesentlich schneller geht....
Aber zuvor wollte ich in Zelle "X5" die Subtraktion "K5-M5" eingetragen haben und dann entsprechend bis zur letzten Zeile (hier Zeile 22400) runterziehen.
Außerdem sollte in Zelle "F1" die Formel "LINKS(D5;15)" eingetragen werden, um die ersten 15 Stellen der Zelle "D5" angezeigt zu bekommen.
Leider ist jetzt das Ergebnis, dass ich in "X5" die Formel ("IJ1-IL1") stehen habe, und die Formel, die in "F1" landen soll, ist ganz verschwunden?
Komisch eigentlich! Eigentlich haben wir doch mit den Codes nichts wesentlich geändert, oder?
Also momentan steht da folgendes, was o.g. Ergebnis zur Folge hat:

   'hier beginnt der Code für Diagramm5
   ' Lkw-Verkehrsstärke berechnen lassen
   With Sheets("Wertetabelle")
      'fügt Straßennamen in F1 ein
      .Range("F1").FormulaR1C1 = "=LEFT(R[4]C[-2],15)"   '12 als 15
      'weiter mit Verkehrsstärke Lkw
      .Range("X5:X22400").FormulaR1C1 = "=RC[-13]-RC[-11]"
   End With

Vielleicht könnt Ihr da noch mal drübergucken? Schön wär's natürlich, wenn die "Runterziehformel"! noch dazu so weit geht, wie in der Spalte davor der Text geht, also entsprechend variabel!
Danke!
Gruß Till

Beliebteste Forumthreads (12 Monate)

Formel von Makrorekorder verbessern!!??

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread