Wenn-Dann Bedingung füllen mit Makro dauert lange
23.09.2014 15:30:43
Frederik
ich habe in einer Excelliste bis zu 1000 Datensätze.
in der einen Zeile ist eine Wenn-Dann-Bedingung hinterlegt, da sich bei den Kriterien bestimmte Sachen gegenseitig ausschließen können und hier entsprechend auch einen Fehler melden können.
Da dieses Feld von meinen Kollegen auch weiterhin bewertbar bleiben muss, kann ich die Formel leider nicht schützen.
Wenn das Feld jedoch leer ist möchte ich, dass die Formel bei einem Excelneustart entsprechend in die felder geschireben wird.
Das funktioniert auch alles einwandfrei mit
Private Sub Workbook_Activate()
Application.Calculation = xlAutomatic
'Call Pruefen_Formel
End Sub
sub Pruefen_Formel()
Sheets("Kriterien").Select
Dim c As Range
For Each c In Range("y6:y1000")
If c.Value = "" Then c.Value = "=IF(RC[-12]=1,"""",IF(RC[-12]+COUNTIF(RC[7]:RC[12],""X"")= _
0,"""",IF(COUNTIF(RC[7]:RC[12],""X"")>=1,""X"")))"
Next c
End Sub
Ich hoffe einer von Euch hat einen Tipp, wie man das ganze beschleunigen kann.
Vielen Dank im Voraus
Frederik