Das Archiv des Excel-Forums

Kurzes Makro dauert ewig...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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


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


Bild


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


 Bild