Office: Tabelle referenzieren

Hallo zusammen

in meiner Userform nutze ich in der TextBox die Tag-Eigenschaften
Ich lese sie wie folgt in einen Array aus:
array = split(ctrl.tag,",")
das funktioniert auch sehr gut.

An erster Stelle in der Tag und nun auch im Array steht der Tabellenname. Ich möchte den String als Tabellen-Codename verwenden. Ist das möglich?

Vorab vielen Dank!!!
Peter

 

Hallo Peter,

=Array(0)

 

Hallo Hajo
vielen Dank für die Antwort.
ja das schaffe ich

ich möchte diesen String so einsetzen, dass ich damit den Verweis auf eine Tabelle erstellen kann.
Beispiel:
Tag: Tabelle1, Datum
Arr(0) = Tabelle1 (Codename: Adressen)
dim ws as worksheet
set ws = arr(0) ?????

 

=Worksheets(array(0))

Gruß Hajo

 

Hallo Hajo vielen Dank für die Antwort
Das funktioniert !!!!
Ist das auch mit dem Tabellen-Codenamen möglich?

 

ich vermute
=array(12)

Gruß Hajo

 

Array(12) ??

 

ja ich schaue nicht auf Deinen Rechner, damit konnte ich nicht sehen wo der interne Name steht.

Gruß Hajo

 

Sorry ich stand auf dem Schlauch :-)
ich habe das mal so geändert, dass nun in Arr(0) der Tabellen-Codename steht. Dann funktioniert die Zuweisung nicht mehr.
Beispiel:
Arr(0) Tabellenblattname Adressen funktioniert
Arr(o) Tabellen-Codename shAdressen funktioniert nicht

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Hallo Hajo
hier die Mappe

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Ist der Name dann besser?

 

Hi,

lass dich von Hajos Textbausteinen nicht irritieren...

Was versprichst du dir davon den Codename statt den Blattnamen zu verwenden? Der Codename kann nicht als Variable verwendet werden. Wenn du dem Nutzer zugestehst den Blattnamen zu verändern und daher den Codename verwenden willst, ist das etwas umständlicher. Du musst dann nämlich erst das zugehörige Blatt ermitteln. Folgende Routine gibt dir das Blatt mit dem CodeName strCodeName als Worksheet-Objekt zurück:

Code:

Function GetSheetFromCodeName(ByVal strCodeName As String, _
                              Optional Arbeitsmappe As Workbook) As Worksheet
'Gibt eine Tabelle bzw. ein Diagramm basierend auf dem CodeName zurück
Dim ws As Object
If Arbeitsmappe Is Nothing Then Set Arbeitsmappe = ThisWorkbook
For Each ws In Arbeitsmappe.Sheets
    If LCase(ws.CodeName) = LCase(strCodeName) Then
        Set GetSheetFromCodeName = ws
        Exit Function
    End If
Next
End Function