Makro funktioniert nicht
03.02.2005 12:11:17
louis
ich bräuchte noch einmal eure hilfe.
ich möchte bei aktivierung einer bestimmten zelle das ein bestimmter bereich in die nächste frei zeile kopiert wird.
habe mir folgendes makro gebastelt was aber nicht funzt.
Private Sub Satzeinfügen(ByVal Target As Range)
If Target.Address = "$J$23" Then
Range("B17:L25").Select
Selection.Copy
x = 25
SucheLeer:
If Cells(x, 2).Value = "" Then
Range(Cells(x, 2), Cells(x, 2)).Select
ActiveSheet.Paste
Else
x = x + 1
GoTo SucheLeer
End If
End If
End Sub
kann mir jemand helfen.
danke im vorraus
louis