Zellen in anderes Blatt übertragen wenn ....



Excel-Version: 2000
  

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

nach unten

Betrifft: Zellen in anderes Blatt übertragen wenn ....
von: Werner Hassold
Geschrieben am: 13.04.2002 - 19:11:07

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellen in anderes Blatt übertragen wenn ...."