Office 2016 Zugriff auf Range einer Tabellen-Objekts

[FlorianF]

Hi Leute,

ich habe es irgendwo mal gelesen, kann mich aber nicht mehr daran erinnern wo und weiss auch nicht mehr was der Grund ist.

Wenn ich auf eine Range zugreifen und den Wert auslesen will dann muss ich es ja so machen:

Code: [Auswählen]

Worksheet("Tabelle").Range("A1").Value
Wieso geht es nicht in dieser Form mit der ich das Tabellenblatt als Objekt verwende?

Code: [Auswählen]

tblTabelle.Range("A1").Value
Grüss euch!

[gmg-cc]

ich habe es irgendwo mal gelesen, kann mich aber nicht mehr daran erinnern wo und weiss auch nicht mehr was der Grund ist.
Wenn ich auf eine Range zugreifen und den Wert auslesen will dann muss ich es ja so machen, wenn ich einen Fehler produzieren will:

Code: [Auswählen]

Worksheet("Tabelle").Range("A1").ValueWeil: Worksheets("Tabelle").Range("A1").Value

Wieso geht es nicht in dieser Form mit der ich das Tabellenblatt als Objekt verwende?

Code: [Auswählen]

tblTabelle.Range("A1").Value

Vielleicht weil es keine Objekt-Variable mit dem Namen tblTabelle gibt?

NB: Sorry für das Full-Quote, aber was soll ich sagen ...?

[FlorianF]

Sorry habe mich wohl etwas falsch ausgedrückt.

Mir geht es darum, dass ich eine Tabelle mit dem Namen, den ich im VBA Editor vergeben habe ansprechen will. Die Tabelle heisst bei mir tblTabelle

[gmg-cc]

Dann stell doch mal die komplette Prozedur vor, mit Deklaration, Initialisierung, Zuweisung, ...

[FlorianF]

Hier der Code:

Code: [Auswählen]

Private Sub UserForm_Initialize()
    txtFirma.Text = tblGrunddaten.Range("Firmenname").Value
End Sub
Hier der Fehler:

[gmg-cc]

Vielleicht so?

Code: [Auswählen]

Private Sub UserForm_Initialize()
    'txtFirma.Text = tblGrunddaten.Range("Firmenname").Value
txtFirma.Text = Sheets("tblGrunddaten").Range("Firmenname").Value
End Sub
oder so?

Code: [Auswählen]

Private Sub UserForm_Initialize()
    Dim wks as WorkSheet
set wks = ActiveWorkbook.Sheets("tblGrunddaten")
txtFirma.Text = wks.Range("Firmenname").Value
End Sub
... alles ungetestet

[FlorianF]

Ja das klappt schon wenn ich es so mache, das habe ich schon getestet. Mich interessiert nur warum man es nicht mit dem Zugriff über den Objektnamen laut VBA-Editor machen kann. Ich habe das wie gesagt irgendwo mal gelesen aber weiss nicht mehr wo. Ich will es nur verstehen 

[maninweb]

Hallo,

falls Du den Codenamen (der in Klammern) meinst, klappt bei mir einwandfrei.
Firmenname ist eine benannte einzelne Zelle.

Code: Visual Basic

1. Sub Test()
2.  
3.   MsgBox tblDaten.Range("Firmenname").Value
4.  
5. End Sub

Gruß

[FlorianF]

Ich habs grad gefunden, ganz klassicher Problem -> Schreibfehler! 

Trotzdem vielen Dank!!!