Variablen deklarieren - Alternativen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luc,
Habe Deinen Rat mal für meine Praxisdatei umgesetzt und würde mich über ein Feedback freuen.
Ich habe folgende Dateien und Sheets, die ich nun korrekt ansprechen möchte. Zwar funktionierte es bisher auch so, indem ich mit Sheets("Sheetsname")usw. arbeite, bekomme jedoch Bugs, vor allem, wenn der Code auf anderen PCs mit unterschiedlichen xl-Versionen läuft; auf meinem Rechner seltsamerweise nicht oder nur selten.
Quelldatei: Update.xls (diese hat nur ein Sheets, das heisst 'Upd')
Zieldatei: Programm.xls (diese hat u.a. ein Sheet, das 'Lager' heisst)
Die Quelldatei öffnet die Zieldatei und nimmt dann im Sheets 'Lager' Änderungen vor.
Ich würde also wie folgt deklarieren:
Dim Programm As Workbook, Update As Workbook
Dim Upd As Worksheet, Lager As Worksheet
Dim Update As String, Programm As String
Set Update = Workbooks("Update.xls")
Set Programm = Workbooks("Programm.xls")
Set Upd = Worksheets(Upd)
Set Lager = Worksheets(Lager)
... Mein Code
Set Update = Nothing
Set Programm = Nothing
Vom Grundsatz er so korrekt?
Vielen Dank und einen schönen Tag!
Dietmar

Const naWbUpd As String = "Update.xls", naWbPgm As String = "Programm.xls", _ naWsUpd As String = "Upd", naWsLag As String = "Lager" Dim Programm As Workbook, Update As Workbook, Upd As Worksheet, Lager As Worksheet Set Update = Workbooks(naWbUpd): Set Programm = Workbooks(naWbPgm) Set Upd = Update.Sheets(naWsUpd): Set Lager = Programm.Sheets(naWsLag) ' usw…

Moin Dietmar,
im ersten Fall ist dem Code nicht bekannt, dass es sich um einen Dateinamen handelt
(auch wenn Du die Variable Dateiname nennst). Es handelt sich hier lediglich um eine
Zeichenfolge mit der im weiteren Verlauf gearbeitet werden kann. Erst wenn Du z.B.
Workbooks(Dateiname)
scheibst wird explizit ein Workbook mit dem Namen MeineDatei.xls angesprochen.
im zweiten Fall repräsentiert Dateiname von Anfang an ein Workbook mit Namen MeineDatei.xls
Beide Varianten stehen gleichberechtigt nebeneinander. Wenn der String im Laufe des Codes
nicht mehr verändert werden soll bevorzuge ich Variante 2, weil ich gleich direkt das bekomme,
was ich haben will (ein Workbook). Es empfiehlt sich dann am Ende des Codes die Variable
wieder zurück zu setzen: Set Dateiname = Nothing
Gruß
Klaus

Beliebteste Forumthreads (12 Monate)

Variablen deklarieren - Alternativen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread