Kurzes Makro dauert ewig...

• Kurzes Makro dauert ewig... von Madman vom 10.10.2003 11:24:43
  • AW: Kurzes Makro dauert ewig... - von ChrisL am 10.10.2003 11:31:28
    • DANKE!!!!!Hat geklappt, auch wenn ich den Befehl n - von Madman am 10.10.2003 11:34:39

Betrifft: Kurzes Makro dauert ewig...
von: Madman
Geschrieben am: 10.10.2003 11:24:43
Moin Leute!

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!!!

Betrifft: AW: Kurzes Makro dauert ewig...
von: ChrisL
Geschrieben am: 10.10.2003 11:31:28
Hi

Das Makro selber geht blitzschnell.

Vielleicht hast du ein Worksheet_Change Ereignis drin?

Vielleicht hast du komplexe Formeln?

Option Explicit

Sub alleschichten()
Dim auswahl As Integer
Dim i As Byte
Application.Calculation = xlCalculationManual
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
Application.Calculation = xlCalculationAutomatic
Exit Sub
100:
MsgBox ("Bitte geben sie einen gültigen Wert ein!(Nur Zahlen, ohne Einheit o.Ä)")
alleschichten
Application.Calculation = xlCalculationAutomatic
End Sub

Gruss

Chris

Betrifft: DANKE!!!!!Hat geklappt, auch wenn ich den Befehl n
von: Madman
Geschrieben am: 10.10.2003 11:34:39
Danke!
Kannte den Befehl bisher nicht,
klappt jetzt super!!!