Makro Dauer zu lange
24.02.2009 06:36:44
Ludmila
kann mir jemand sagen warum nachfolgendes Makro ca. 30 sekunden benötigt!
Wo liegt der Fehler?
Danke!
Grß
Ludmila
Option Explicit
Sub Listen()
On Error Resume Next
Dim Datum1 As Variant
Dim I As Integer
Dim iRow As Integer
Dim iColumns As Integer
Dim Endrow As Integer
Dim TimeU As Double
Dim Datum As Date
Dim List As Integer
Datum1 = Sheets("Eingabe").Cells(1, 1).Value
Datum1 = Format(CDbl("dd.mm.yyyy"))
TimeU = 0.33333
Endrow = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
For iRow = Endrow + 1 To Endrow + 41
iColumns = 1
With Sheets("Daten")
.Cells(iRow, iColumns).Value = Datum1
.Cells(iRow, iColumns + 1).Value = TimeU
End With
TimeU = TimeU + (1 / 24 / 4)
Next iRow
'Sheets("Daten").Visible = False
Sheets("Eingabe").Select
Range("A1").Select
End Sub