Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

leerzeile einfügen

Forumthread: leerzeile einfügen

leerzeile einfügen
26.05.2003 11:38:23
Toni
Hallo,
wer kann mir bei diesem Problem helfen?
Ich habe zwei Datenblätter "Abrechnung" und "Daten"
mit folgendem Code übertrage ich eine Zeile nach "Abrechnung".
Jetzt hätte ich gern, daß danach noch eine Leerzeile eingefügt wird.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(1).Cells(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 6, 1) = Cells(Target.Row, 1)
End Sub

Vielen Dank für eine Antwort
Toni

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: leerzeile einfügen
26.05.2003 11:48:30
Nike

Hi,
wo soll noch ne Zeile rein?
Bei Sheets 1 oder im aktiven sheet?
evtl. so:
Sheets(1).Rows(Sheets(1).Cells(Sheets(1).Rows.Count, 1).End(xlUp).Row - 5).Insert

Bye

Nike

Re: leerzeile einfügen
26.05.2003 12:03:15
Toni

Hallo Nike

Ich hätte die Leerzeile danach in Sheets 1.

mit folgendem hab ichs auch schon probiert, aber da wird die Zeile nur in die Active Cell eingefügt.

Sheets("Abrechnung").Select
Sheets(1).Cells(Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row - 5, 1) = Selection.EntireRow.Insert
Sheets("Daten").Select

Danke in vorraus für die Mühe

Toni

Anzeige
Re: leerzeile einfügen
26.05.2003 12:08:47
Nike

Hi,
Wenn die Zeile in Sheets(1) eingefügt werden soll,
dann sollte mein Code doch eigentlich funken ;-)

Bye

Nike

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige