Hallo Leute
habe folgendes Problem,folgende Ereignis-Prozedur steht in der VBA-Umgebung in Tabelle1
'Bei Eingabe Wert 190 dann optimale Zeilenhöhe
'Bei Eingabe Wert <> 190 dann Zeilenhöhe = 25
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo errorhandler
Dim c As Range
For Each c In Range("A16:A47")
If c.Value = 190 Then
c.Rows.AutoFit
End If
If c.Value <> 190 Then
c.RowHeight = 25
End If
Next c
errorhandler:
Exit Sub
End Sub
Das Makro läuft zwar aber so langsam!!!!!! Was ist falsch??