Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "zwei zellen nach oben..."
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