Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile einfügen und löschen in VBA

Zeile einfügen und löschen in VBA
30.08.2006 07:43:15
Peter
Hallo zusammen
Ich hab diese 2 Probleme und bitte um euere Hilfe:
Problem 1:  Zeile einfügen
Grundtabelle:
A B C usw.
Datum Tag KW usw.
01.01.06 Mo. 1
01.01.06. Mo. 1
02.01.06 Di. 1
02.01.06 Di. 1
 usw.
Nun möchte ich über ein Tastenkürzel oder eine Schaltfläche erreichen, dass ich eine Zeile unterhalb der aktiven Zelle einfügen kann. In der eingefügten NEUEN Zeile sollten alle Daten, Formate und Formeln von der oberen(aktiven) Zeile übernommen werden.
so sollte es dann ausschauen
(neue Zeile wurde unter der aktiven Zelle eingefügt) …
A B C
01.01.06 Mo. 1
01.01.06. Mo. 1  aktive Zeile
01.01.06 Mo. 1  NEUE Zeile (eine Kopie der aktiven Zelle)
02.01.06 Di. 1
02.01.06 Di. 1
Problem 2:  Zeile löschen
Hier möchte ich über ein Tastenkürzel oder eine Schaltfläche erreichen,
dass ich die Zeile der aktiven Zelle löschen kann.
A B C
01.01.06 Mo. 1
01.01.06. Mo. 1  Zeile der aktiven Zelle wird gelöscht
02.01.06 Di. 1
02.01.06 Di. 1
so sollte es dann ausschauen
(Zeile der aktiven Zelle wurde gelöscht) …
A B C
01.01.06 Mo. 1
02.01.06 Di. 1
02.01.06 Di. 1
Ich hoffe ihr könnt mir weiterhelfen und eine Lösung anbieten.
Danke
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen und löschen in VBA
30.08.2006 07:56:50
egres
Hi Peter
mit Rekorder!

Sub einfügen()
' Tastenkombination: Strg+e
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Application.CutCopyMode = False
End Sub


Sub löschen()
' Tastenkombination: Strg+l
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
End Sub

Gruss Egres
AW: Zeile einfügen und löschen in VBA
31.08.2006 00:14:04
Peter
Danke schön @ egres, hat funktioniert.
Gruss
Peter
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige