Dehfeld & Zelle --> doppelte Makroausführung?
29.11.2006 14:13:25
Steve
Habe ein Makro das auf das Ändern einer Zelle reagiert wo ein Datum geändert werden kann. Dann habe ich als Bonus noch ein Drehfeld zugefügt, wo man das Datum immer weiterklicken kann.
Problem jetzt: Wenn ich das Drehfeld benutze wird das Makro einmal ausgeführt, ändere ich das Datum per Hand wird es zweimal ausgeführt. Woran liegt das?
----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then Call Werteauswahl
End Sub
Private Sub SpinButton1_Change()
Call Werteauswahl
End Sub
------------
Sub Werteauswahl()
Dim Sp%, LR&, i&, j&, k%
Sp = 1
LR = ActiveWorkbook.Sheets("Werte_2004").Cells(Rows.Count, Sp).End(xlUp).Row
Datum = CDate(ActiveSheet.Cells(3, 5))
j = 1
For i = 2 To LR
If ActiveWorkbook.Sheets("Werte_2004").Cells(i, 1) = Datum Then
For k = 1 To 15
ActiveSheet.Cells(j + 6, k + 1) = ActiveWorkbook.Sheets("Werte_2004").Cells(i, k)
Next k
j = j + 1
End If
Next i
MsgBox "test"
End Sub
Steve
Anzeige