Warum startet mein Makro nicht sofort ? ?
04.08.2004 11:27:48
hicki
Ich will das dieses Makro automatisch bei start von Excel Mappe1.Xls startet und ich nicht jedesmal ein klick auf "Makro Ausführen " klicken muß !
In Zeile 1 werden jede sekunde neue Werte eingefügt die nun auf das komplette Excel Sheet verteilt werden soll !
Aber es klappt nicht warum ? Wenn manuel auf ausführen klicke klappt alles wunderbar aber sobald die sache eigenständig laufen soll funkt. nichts
Gruß
hicki
Private Sub Worksheet_Activate()
freieZelle
End Sub
Sub freieZelle()
Dim s As String
Dim i As Long
With ActiveSheet
i = 1
Do
i = i + 1
s = .Cells(i, 1)
If Len(s) = 0 Then
.Cells(i, 1).Activate
ActiveCell = Range("A1")
ActiveCell.Offset(0, 1) = Range("B1")
ActiveCell.Offset(0, 2) = Range("C1")
ActiveCell.Offset(0, 3) = Range("D1")
Exit Do
End If
Loop While i End With
End Sub