Microsoft Excel

Herbers Excel/VBA-Archiv

Private Sub Workbook_Open() | Herbers Excel-Forum


Betrifft: Private Sub Workbook_Open() von: Heinz H
Geschrieben am: 31.01.2010 17:59:02

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

  

Betrifft: Makros deaktiviert? von: Tino
Geschrieben am: 31.01.2010 18:03:03

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


  

Betrifft: AW: Private Sub Workbook_Open() von: Hajo_Zi
Geschrieben am: 31.01.2010 18:03:51

Hallo Heinz,

Du hast keine Abfrage, darum wird bei jedem öffnen kopiert.3
der Teil kann entfallen
, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


GrußformelHomepage


  

Betrifft: AW: Danke an Tino & Hajo von: Heinz H
Geschrieben am: 31.01.2010 18:10:52


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


Beiträge aus den Excel-Beispielen zum Thema "Private Sub Workbook_Open()"