Office: (Office 2019) VBA Code Anpassen "Wert Einfügen statt Formel"

Hallo alle zusammen. Ich benötige bitte Hilfe von einem Experten, da ich mit meinem Code unzufrieden bin und dieser bei größeren Datenmengen respektive Zeilen ziemlich langsam wird.
Wie müsste man folgenden Code ändern damit er mir statt der Formel nur das Ergebnis einträgt. Vielleicht gibt es ja sogar eine bessere Lösung. Eigentlich bin ich mir sicher das es eine Bessere Lösung gibt da ich was VBA angeht, Neuling bin.

Sub test()

Dim lngLR As Long
With Sheets("Test")
lngLR = .Cells(.Rows.Count, 4).End(xlUp).Row - 3
.Cells(4, 5).FormulaLocal = "=D4+1"

.Cells(4, 5).Resize(lngLR).FillDown
End With
End Sub

Sollte dafür eine Beispieldatei benötigt werden so lade ich gerne eine nachträglich noch hoch.

Vielen Dank schonmal im Voraus

 

.Cells(4, 5) = Range("D4") + 1

 

Moin!
Als teaser:

Code:

Sub Test()
Range("D4") = 42
Range("D4").AutoFill Range("D4:D17654"), xlFillSeries
End Sub

Gruß Ralf

 

Vielen Dank für die Antworten. Ich lade jetzt doch mal eine Beispieldatei hoch. Das "=D4+1" sollte nur ein Platzhalter für eine Formel sein. Ziel ist es das in Spalte E nur die Werte stehen solange es Daten in Spalte D gibt. Sorry das ich nicht gleich die Datei hochgeladen habe, war mein Fehler.

 

Hallo Martin,

was ich da sehe, ist ein simpler SVerweis. Natürlich könnte man das auch mit einem Makro lösen, aber dafür brauchst du keine Schaltfläche.

 

Hallo Klaus-Dieter natürlich kann man das auch mit einem Sverweis lösen. Ich kann aber aus Datenschutz Gründen nicht die Original Datei hochladen die ist Deutlich größer und beinhaltet auch andere Formeln. Die Schaltfläche wird benötigt da im Vorfeld noch einige Optionen ausgewählt werden können die ich in dieser Datei entfernt habe und dementsprechend wird Spalte D auch nur mit den Daten gefüllt die vorher gewählt wurden, deshalb war mein Gedanke das Formelmakro dann als zweiten Schritt laufen zu lassen.

 

Hallo Martin,

jede Antwort kann nur so gut sein, wie die Frage. Hier die Informationen, die die Beispieldatei enthält.

 

Versteh ich jetzt nicht die Datei hatte ich doch angefügt oder nicht

 

Hallo Martin,

ja die Datei hattest du eingefügt, ich habe sie auch angesehen. Aus dem was ich gesehen habe , kann ich aber nicht ableiten, was da gegen die Verwendung des SVerweis spricht. Ebenso kann ich diese Aussage: "Die Schaltfläche wird benötigt da im Vorfeld noch einige Optionen ausgewählt werden können die ich in dieser Datei entfernt habe und dementsprechend wird Spalte D auch nur mit den Daten gefüllt die vorher gewählt wurden, deshalb war mein Gedanke das Formelmakro dann als zweiten Schritt laufen zu lassen." inhaltlich nicht nachvollziehen.

 

Hallo,

ich nehme an, dass deine "Sub fuellen" folgendermaßen zu modifizieren ist:

Code:

Sub fuellen()

   Dim lngLR As Long
   Dim lstTab As ListObject
  
   Set lstTab = Worksheets("Daten").ListObjects("Tabelle1")  '=Daten!H6:P26
  
   With Sheets("Auswertung")
  
      For lngLR = 4 To .Cells(.Rows.Count, 4).End(xlUp).Row
         .Cells(lngLR, 5).Value = WorksheetFunction.VLookup(.Cells(lngLR, 4).Value, lstTab.DataBodyRange, 9, 0)
      Next lngLR

   End With
End Sub

 

Du solltest wissen, dass es wenig Sinn macht, wenn Du für uns "Vereinfachungen" machst!
Lasse einfach denjenigen, die die Materie kennen, die Entscheidung, was wichtig ist.

Zum Thema:
Ich behaupte einfach mal, dass die Errechnung "komplexer" Formeln mittels VBA langsamer ist, als die Formel mittels VBA in einen Bereich zu schreiben und dann .Copy: .PasteSpecial xlPasteValues zu machen.
Begründung:
Excel arbeitet mit mehreren Prozessorkernen, das archaische VBA kann nur einen Kern nutzen.

Gruß Ralf