Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige