Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema "Zellen in anderes Blatt übertragen wenn ...."
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen