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*
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
Hi Leute,
ich möchte z.B. von Tabelle1 die Zellen B1, C1 und D1 nach
Tabelle2 übertragen, wenn der Wert in Tabelle1-A1 mehr als
Null ist. das ganze soll mit VBA geschehen wenn man die Zelle
Tabelle1-A3 anklickt.
Würde mich freuen wenn mir jemand hilft.
Gruß Werner