AW: mit mappe
04.03.2005 00:29:55
MichaV
Hi Maykl,
wenn ich mich mal einmischen darf... Das Problem ist doch nur, daß das Makro aufgerufen wird, wenn sich die Selection ändert. Innerhalb des Makros änderst Du aber die Selection, also ruft sich das Makro immer selber auf, rekursiv sozusagen. Das kannst Du verhindern, indem Du:
Public blnSub As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If blnSub Then Exit Sub 'rekursiven Aufruf abbrechen
blnSub = True
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>0,R[-1]C,"""")"
Range("E2").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
blnSub = False
End Sub
Private Sub CommandButton1_Click()
Range("a10").Value = Range("a10").Value * 1 + 1
End Sub
Damit wird das Makro- egal was es an sich macht- nur ein mal durchlaufen.
Gruß! Micha