kann da mal jemand drüberschauen:
Private Sub Worksheet_Change(ByVal Sh As Range)
Range("B1").Activate
If Range("B1") = "JA" Then
Range("E1:E10").Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Tabelle1").Range("D1:D10")
Else
Range("F1:F10").Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Tabelle1").Range("D1:D10")
End If
Application.CutCopyMode = True
Range("A1").Select
End Sub
Das Makro funktioniert, wird aber nachdem der Inhalt einer Zelle geändert
wird, hunderte Male durchlaufen!
Einmal würde mir genügen....
Für Hilfe Danke im voraus....
Markus