Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
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
Inhaltsverzeichnis

Private Sub WorkbookOpen() | Herbers Excel-Forum

Private Sub Workbook_Open()
31.01.2010 17:59:02
Heinz H

Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy
Sheets("Prüfungen").Range("B4:B13").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

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

Betreff
Datum
Anwender
Anzeige
Makros deaktiviert?
31.01.2010 18:03:03
Tino
Hallo,
ich kann eigentlich keinen Fehler erkennen.
Vielleicht sind nicht immer die Makros aktiviert.
Ich lasse mal offen, vielleicht übersehe ich auch was.
Gruß Tino
AW: Private Sub Workbook_Open()
31.01.2010 18:03:51
Hajo_Zi
Hallo Heinz,
Du hast keine Abfrage, darum wird bei jedem öffnen kopiert.3
der Teil kann entfallen
, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

AW: Danke an Tino & Hajo
31.01.2010 18:10:52
Heinz H
Erstmals Danke für Eure Stellungsnahme
Zu Tino

Vielleicht sind nicht immer die Makros aktiviert.
Ja die Makros sind bei jeden Start aktiviert.
Zu Hajo

Du hast keine Abfrage, darum wird bei jedem öffnen kopiert

Ja es soll auch so sein. Sobald die Mappe offen dann kopieren.
3
der Teil kann entfallen
, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Ja diesen Teil werde ich löschen.
Nochmals recht herzlichen Dank !!
Gruß
Heinz
Anzeige

223 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige