Office: Worksheet global deklarieren und setzen

Peran281 · 24. November 2007

Hallo zusammen,
is vllt eine etwas "triviale" frage, aber mit googeln allein bin ich noch nicht zum ziel gekommen ...

ich möchte ein worksheet global deklarieren und einen objektverweis zuteilen.
eine variable global deklarieren is klar wie das geht ...
Code:

public wsAbliefer As Worksheet
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kann ich jetzt auch noch die set-anweisung angeben, damit ich nicht in jeder sub den verweis auf das objekt erst neu zuteilen muss ?

ich habe es auf zweierlei weisen versucht :
1. Code:

public wsAbliefer as worksheet = workbooks(xyz).sheets("abc")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dann noch

2.
Code:

public wsAbliefer as worksheet
set wsAbliefer = ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

beides hat nicht gefunzt...
gibt es da eine andere möglichkeit ?

:)

jinx · 26. November 2007

Moin, Peran281,

meines Wissens kannst Du den Namen in eine globale Variable setzen, aber nicht eine Tabelle... Vielleicht solltest Du ausführen, was Du genau erreichen möchtest (bestimmt keine Laufzeitfehler produzieren, oder *wink.gif*)...

Peran281 · 26. November 2007

Also ich hab 2 arbeitsmappen mit mehreren worksheets.
die module der arbeitsmappen greifen öfters auf verschiedene sheets der jeweils anderen arbeitsmappe zu.

ich hab mir da eben gedacht, damit ich nicht in jeder prozedur die ganzen set-anweisungen brauche, mach ich die ganzen verweise global.

kleines bsp *wink.gif* (ich erklär immer so kompliziert...)
Code:

'die hab ich mal global gemacht
Dim wsAbliefer As Worksheet
Dim wsDia As Worksheet
Dim wsLiefza As Worksheet

Sub copy()
...
Set wsAbliefer = Workbooks("test.xls").Sheets("Daten1")
Set wsDia = Workbooks(ThisWorkbook.name).Sheets("Daten2")
Set wsLiefza = Workbooks(ThisWorkbook.name).Sheets("Daten3")
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also hier tu ich dann in jeder sub() , in der ich den verweis auf das jeweilige datensheet brauche einen set machen.
das ganze würd ich aber gern nur einmal für das ganze projekt machen.
quasi einen konstanten verweis...

ich hoff es is klar was ich mein *biggrin.gif*

jinx · 26. November 2007

Moin, Peran281,

möglicherweise kann das Problem durch Klassenprogrammierung angegangen werden (siehe z.B. Klassen). Oder Du verwendest zwar die Set-Anweisungen in den Prozeduren, weist ihnen aber Konstanten oder Werte aus einer ausgeblendeten Tabelle zu. Oder letztlich: Du arbeitest mit Parametern, die den Prozeduren übergeben werden...

Peran281 · 26. November 2007

Alles klar. dann werd ich da mal bissel testen.

dank dir jinx

Styrkar · 26. November 2007

Hi,

du könntest auch mit einer Funktion arbeiten:
Code:

Sub aru()
myWS.Range("A1").Value = 1
End Sub

Function myWS() As Worksheet
On Error GoTo Ende
Set myWS = Workbooks("Mappe3").Worksheets(2)
Exit Function
Ende:
MsgBox "Worksheet existiert nicht!"
Set myWS = Nothing
End
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Worksheet global deklarieren und setzen

Worksheet global deklarieren und setzen

Worksheet global deklarieren und setzen

Worksheet global deklarieren und setzen

Worksheet global deklarieren und setzen - Similar Threads - Worksheet global deklarieren

Excel found a problem with one or more formula references in this worksheet

VBA SVerweis? / VBA neues Worksheet erstellen

Set ... = Worksheets(...) notwendig?

Wert von Textfeld in Zelle schreiben / suchen nach diesem Wert in Worksheet

Solver aus function ohne worksheet-Berechnung?

Vba - Neues Worksheet in anderem Workbook erstellen

worksheet change in worksheet calculate umwandeln