ich habe einen VBA-Befehl zum Erstellen einer Wertkopie (geht auch alles wunderbar). Nun möchte ich aber den Bereich eingrenzen (bis Spalte AG und max Zeile 10.000).
Aktuell dauert es super lange, da er alle Zellen der Arbeitsmappe durchrechnet scheinbar.
Sub Wertkopie_DBR_DBS_auto()
Dim Bereich As Range
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Endspalte = Selection.Columns(Selection.Columns.Count).Column
Endzeile = Selection.Rows(Selection.Rows.Count).Row
Startspalte = 1
Startzeile = 1
Set Bereich = Range(Cells(Startzeile, Startspalte), Cells(Endzeile, Endspalte))
Calculate
For Each Z In Bereich
On Error Resume Next
If Z.HasFormula Then
Select Case Left(Z.Formula, 4)
Case "=DBR" ' DBRn - Funktion
Z.Value = Z.Value
Case "=DBS" ' DBSn - Funktion
Z.Value = Z.Value
Case "=SUB" ' SUBNM - Funktion
Z.Value = Z.Value
Case "=VIE" ' VIEW - Funktion
Z.Value = Z.Value
Case "=DIM" ' DIMNM - Funktion
Z.Value = Z.Value
End Select
End If
Next Z
Calculate
Mldg = "fertig"
MsgBox (Mldg)
End Sub