Re: Zellen in anderes Blatt übertragen wenn ....
14.04.2002 10:18:27
Micha*
So vielleicht?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$3" Then
If Tabelle1.Range("A1") > 0 Then
Tabelle1.Range("B1:D1").Copy
Tabelle2.Activate
Tabelle2.Range("B1:D1").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Tabelle1.Activate
End If
End If
End Sub
Anzeige