Kurzes Makro dauert ewig...
10.10.2003 11:24:43
Madman
Hab ein Makro geschrieben, das auf Knopfdruch alle Zellen einer Spalte mit einem einzugebenen Wert füllt! Leider dauert das Ausfüllen ziemlich lange! Woran liegt das evtl?
Hier der Code:
Sub alleschichten()
Dim auswahl As Integer
On Error GoTo 100
auswahl = Application.InputBox("Geben Sie den neuen Wert Schichten / Woche ein!")
For i = 4 To 250
If Cells(i, 8).Value = "" Then Cells(i, 8).Value = "" Else: Cells(i, 8).Value = auswahl
Next i
Exit Sub
100
MsgBox ("Bitte geben sie einen gültigen Wert ein!(Nur Zahlen, ohne Einheit o.Ä)")
alleschichten
End Sub
Danke im Voraus!!!
Anzeige