Hab jetzt probiert als Klassenmodul:
Dim bln As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("B35")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Adress Then
Call AutoInsert
bln = False
End If
End Sub
Sub AutoInsert()
' AutoAusfüllen Makro
' Makro am 17.01.2005 von WR2 aufgezeichnet
'
Rows("23:23").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B23").Select
End Sub
Sollte nach Eingabe in B35 ausgeführt werden, funkt nicht. Wo ist der Wurm drin?
mfg Excal
|