Zellen in anderes Blatt übertragen wenn ....

• Zellen in anderes Blatt übertragen wenn .... von Werner Hassold vom 13.04.2002 - 19:11:07
• Re: Zellen in anderes Blatt übertragen wenn .... von Micha* vom 14.04.2002 - 10:18:27 (0)

Re: Zellen in anderes Blatt übertragen wenn ....

von: Micha*
Geschrieben am: 14.04.2002 - 10:18:27

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