Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Einfügen von Musterzeilen in Tabelle

Einfügen von Musterzeilen in Tabelle
18.08.2006 11:44:45
Musterzeilen
Hallo Erich aus Kamp-Lintfort,
hatte gestern nicht vollständig getestet. Nachdem es mit einem Arbeitsblatt so gut funktionierte, war ich so begeistert, dass ich gleich antworten mußte.
Ein kleines Problem bleibt noch. Wenn man zwei Arbeitsblätter gleichzeitig markiert und z.B. in Zeile 11 auf AAA mit Doppelkick geht, läuft das Einfügen/Kopieren im ersten Arbeitsblatt sauber ab, im Zweiten jedoch schiebt Excel die Musterzeilen drei Zeilen tiefer rein. Werde mal eine Musterdatei zum Probieren hochladen. Es hat den Anschein, als wenn Excel die beiden Blätter nicht gleichzeitig parallel abarbeitet und im zweiten Blatt irgendwie eine falsche Ausgangszeile erwischt. Es wär toll, wenn Du Dir das nochmal anschauen könntest.
Vielen Dank im voraus
Jürgen
https://www.herber.de/bbs/user/35915.xls
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Einfügen von Musterzeilen in Tabelle
18.08.2006 16:11:02
Musterzeilen
Hallo Jürgen,
mit dem Einfügen der Zeilen wird auch die Target-Zelle verschoben, so dass im 2.Blatt der Versatz um 3 Zeilen kommt, da die Target.Row sich um 3 Zeilen geändert hat.
Folgende Anpassung sollte diesen Schönheitsfehler beseitigen.
gruß
Franz

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wks As Worksheet, Zeile As Long
Zeile = Target.Row
For Each wks In ActiveWindow.SelectedSheets
If wks.Type = xlWorksheet And wks.Name <> "Musterzeilen" Then
Sheets("Musterzeilen").Rows("1:3").Copy
wks.Cells(Zeile + 0, 1).Insert Shift:=xlDown
End If
Next wks
Application.CutCopyMode = False
Cancel = True
End Sub

Anzeige
AW: Einfügen von Musterzeilen in Tabelle
18.08.2006 16:23:26
Musterzeilen
Hallo Franz,
besten Dank, jetzt bin ich rundrum glücklich!
Ihr seid Spitze!!
Gruß
Jürgen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige