zwei zellen nach oben...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: zwei zellen nach oben...
von: Bernd
Geschrieben am: 19.03.2005 17:33:35
hallo,
ich möchte folgendes realisieren.
egal in welcher zelle ich mich befinde, soll nach buttonklick das passieren:
kopiere aktive zelle, gehe 2 zellen nach oben, füge den wert ein ein, gehe eine zele runter und lösche den inhalt.
ich hoffe ihr könnt mir weiterhelfen und vielen dank für eure mühe.
gruss bernd

Bild

Betrifft: AW: zwei zellen nach oben...
von: serge
Geschrieben am: 19.03.2005 17:43:06
hi bernd mit :

Sub Makro1() 
    Selection.Copy
    ActiveCell.Offset(-2, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.ClearContents
End Sub

sollte es gehen
serge
Bild

Betrifft: AW: zwei zellen nach oben...
von: ransi
Geschrieben am: 19.03.2005 17:45:47
hallo bernd
Option Explicit

Private Sub CommandButton1_Click()
With ActiveCell
    .Offset(-2, 0).Value = ActiveCell.Value
    .Offset(-1, 0).ClearContents
End With
End Sub

"egal in welcher zelle ich mich befinde,..." geht nach hinten los wenn du dich in zeile 1 oder 2 befindest.
ransi
Bild

Betrifft: danke euch beiden :-)
von: Bernd
Geschrieben am: 19.03.2005 17:51:43

 Bild

Beiträge aus den Excel-Beispielen zum Thema "zwei zellen nach oben..."