Mit dem Makro Markierung:_F wird die Spalte F markiert.
Mit dem Makro pastF wird in jede markierten Zelle eine Formel eingetragen. Nur die Eintragung erfolgt extrem langsam im Schneckentempo. Warum ist dies bitte so? Und was könnte ich tun, damit die Abarbeitung des Makros schnell erfolgt?
Danke
Josef
Sub Markierung_F()
Dim C As Range, ErgBereich As Range
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each C In Range("F3:F" & laR)
If C.Offset(0, -1).Value <> "" Then
Set ErgBereich = C
Exit For
End If
Next C
If ErgBereich Is Nothing Then
Exit Sub
Else
For Each C In Range("F3:F" & laR)
If C.Offset(0, -1).Value <> "" Then
Set ErgBereich = Application.Union(ErgBereich, C)
End If
Next C
ErgBereich.Select
Set ErgBereich = Nothing
End If
'Call pastF
End Sub
Sub pastF()
On Error GoTo Weiter:
Dim rngCell As Range
For Each rngCell In Selection
rngCell.FormulaR1C1 = "=R[-1]C[4]"
Next
Weiter:
End Sub