Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
zwei zellen nach oben...
19.03.2005 17:33:35
Bernd
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei zellen nach oben...
19.03.2005 17:43:06
serge
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
AW: zwei zellen nach oben...
19.03.2005 17:45:47
ransi
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
Anzeige
danke euch beiden :-)
19.03.2005 17:51:43
Bernd

294 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige