Excel VBA CodeNames ansprechen

Hallo Susanne,

was ist tblCodename?

Angenommen als 3. Blatt in deiner Mappe, das den Blattnamen "Übersicht" und den Codenamen "Tabelle3" hat, dann hast du 3 Möglichkeiten es anzusprechen:

With Application

    .Goto Sheets("Übersicht").Range("A1")

    .Goto Sheets(3).Range("A1")

    .Goto [Tabelle3].Range("A1")

End With

Claus

Hallo Andreas,
du kannst den Einfügevorgang entweder mit der Methode oder der Enumerations-Konstante im Code ansprechen.
Die einzelnen Werte findest du hier;
XlAutoFillType-Aufzählung (Excel) | Microsoft Learn
Claus

Hallo Robert,

Bitte kopiere Deine Anfrage und erstelle einen neuen Thread in
MSDN Forum, da dies der geeignertere Ort für Deine Sachlage ist. Dort sind auch Spezialisten die mit Dir über eventuelle Workarounds diskutieren können.

Auch wenn hier Sachlagen wie Deine sehr eingeschränkt behandelt werden können, gibt es jedoch ein paar User wie Andreas mit dementsprechenden Hintergrund ähnlich wie bei MSDN, die hier eventuel doch helfen können.

Deshalb bitte lösche diesen Thread nicht.

Bei weiteren Fragen stehe ich zur Verfügung.

Beste Grüße,

Bernard

Hallo Andreas,

Dein Vorschlag hilft mir weiter, habe diverse Anpassungen vorzunehmen, ersten Versuche OK.

Wollte Ursprünglich mein Device Ident in Access importieren, was auch klappt aber leider nur bis zu 255 Spalten, danach ist Schluss, Excel lässt da fast unbegrenzt zu, also Access stirbt in diesem Fall, Excel gewinnt.

Als Information: Ich arbeite an ein Toll, wo ich in einem Fenster(Register) eine Eingabe- und Ausgabemaske darstelle, die Ausgabe holt er sich aus dem Device_Ident, es existieren mehrer Register die jeweils auf das Device_Ident zugreifen.

Vielen Dank für Deine Antwort.

Robert

Der Pfad lautet immer: "U:\Projekte\Projekte\" und die Datei "PS-PB_Datenbank.xlsx"

Als Hilfe habe ich mal die vermeintlichen Stellen mit "<----Hier müsste jetzt der Pfad integriert werden" markiert.

Kannst Du vergessen, es müssen beiden Dateien offen sein und dann spielt der Pfad keine Rolle.

Aber dennoch musst Du korrekt referenzieren wenn Du Daten aus einer anderen Datei lesen willst.

Ich würde es so machen:

Dim DI As Worksheet

Set DI = Workbooks("PS-PB_Datenbank.xlsx").Sheets("Device_Ident")

EUT = DI.Range("A3")

If EUT = 0 Then Exit Sub 'Nicht End!!

DI.Range("A3") = EUT - 1

Andreas.