Video von Rechtschreibkontrolle in Excel
08.02.2019 12:22:40
Rechtschreibkontrolle
unter dem Link kann mein ein Video aufrufen welches mein Thema illustriert. https://youtu.be/-O2TCZbMjdo
Es geht um folgendes:
Ein Makro führt eine Rechtschreibkontrolle in der Zelle durch. Die dauert nach Enter ca. 7 Sekunden, dann wird der Bildschirm weiß und das Makro ist
sofort durchgelaufen. Dabei dauern:
- 10 Wörter 2 Sekunden
- 20 Wörter 6 Sekunden
- 30 Wörter 7 Sekunden
- 100 Wörter 7 Sekunden
- 300 Wörter 7 Sekunden
- 500 Wörter 8 Sekunden
- 1000 Wörter 8 Sekunden.
Ich vermute also, dass die hohe Geschwindigkeit am weißen Bildschirm liegt. Wie erreiche ich diesen "Status", die Geschwindigkeit von Anfang an?
Ich würde mich sehr sehr freuen, wenn von euch Hilfe und Lösungen gibt.
Vielen Dank im Voraus,
Marco
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Wert, Werte
Dim myStart As Long
Dim myString As String
'Application.EnableEvents = False
On Error GoTo errorHandler1
If Sheets("Var. f. VBA").Range("i14").Value = 1 Then
If Not Intersect(Target, Range("AF152:AO199")) Is Nothing Then
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
myString = Target.Value
myString = Replace(myString, ",", " ")
myString = Replace(myString, ".", " ")
Werte = Split(myString)
Target.Font.Underline = xlNone
myStart = 0
For Each Wert In Werte
If Application.CheckSpelling(Wert) = False Then
myStart = InStr(myStart + 1, Target, Wert)
Target.Characters(myStart, Len(Wert)).Font.Underline = xlUnderlineStyleDouble
End If
Next
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End If
End If
'Application.EnableEvents = True
Exit Sub
errorHandler1:
Call Makro_Notstart
End Sub