Dynamischer SVWERWEIS mit starren Werten
15.03.2019 10:10:46
Martin
ich habe schon viel hilreiche Tips bei euch gefunden, nun ist mein Thema gerade so spezifisch, dass ich mal ein Neues anfangen muss.
Ich hoffe ihr könnt helfen.
Ich habe eine Datentabelle, die die Bedarfe über 52 Jahren auswertet und sortiert. Nun mussten die Daten bisher kompliziert per copy -paste aus einem anderen Bericht geholt werden und manuell eingespielt werden. Das habe ich nun versucht zu automatisieren.
Ich habe einen dynamische SVERWEIS eingerichtet, der die Daten einfügt. Nun kopiert aber das Folgemakro das Datenblatt mit dem Sverweis und macht damit diverse Berechnungen. Der SV bremst das immens ab. Ich möchte, dass die Formeln nach dem übertragen der Daten in starre Zahlen umgewandelt werden. Es funktioniert auch, wenn ich Zelle für Zelle kopiere und einfüge, da braucht das Makro aber gefühlt 20 Minuten dafür.
Gibt es einen leichteren Weg das zu lösen.
Anbei der Code.
Vielen Dank für eure Hilfe.
Beste Grüße, Martin
Sub Makro9()
Dim IndexZ As Long
Dim IndexS As Long
Dim lastRow As Long
Dim Zelle As Long
Dim Summe As Long
Dim Einzelwert As Long
lastRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
For IndexZ = 3 To lastRow Step 1
For IndexS = 4 To 52 + 4 Step 1
Cells(IndexZ, IndexS) = "=VLOOKUP(RC1,[BedarfeStand1203.xlsx]Tabelle1!C1:C54,COLUMNS([ _
BedarfeStand1203.xlsx]Tabelle1!C1:C[-1]),FALSE)"
Cells(IndexZ, IndexS).Copy
Cells(IndexZ, IndexS).PasteSpecial Paste:=xlPasteValues
Next IndexS
Cells(IndexZ, IndexS).Value = Zelle
Next IndexZ
End Sub