Datenübernahme mit Bezug auf CodeName
11.07.2016 14:55:37
Christof
ich habe ein kleines Problem bei der Erstellung einer Gesamtzusammenstellung.
Da ich noch keinen Beitrag erstellt habe, bitte ich um etwas Nachsicht, falls ich nicht die richtige Fragestellung bzw eine eindeutige Angabe meines Problems aufgestellt habe.
Folgender Fall:
Aus beispielsweise drei Blättern einer Arbeitsmappe soll der Bereich A1:G8 ausgewählt, kopiert und in das Arbeitsblatt Gesamt eingefügt werden
in diesem Beispiel habe ich eine Abfrage der Blätter eingebaut, was jedoch auch automatisiert werden könnte.
Beispiel:
Sub Kopieren()
Dim TabAnzahl As Integer
Dim x, y, z As Integer
Dim Block()
TabAnzahl = InputBox("Wie viele Blätter sind vorhanden?")
ReDim Block(TabAnzahl)
y = 1
For x = 1 To TabAnzahl
Worksheets("Tabelle" & x).Select
Block(x) = Worksheets("Tabelle" & x).Range("A1:G8").Value
Worksheets("Gesamt").Range("A" & y & ":G" & 7 + y) = Block(x)
y = y + 8
Next
Worksheets("Gesamt").Select
End Sub
Nun mein Problem:
Ich möchte nicht die Tabellennamen sondern auf den Codenamen zugreifen,
da die Tabellen nicht mit "Tabelle" sondern mit Namen wie "Gleis 1", "Weiche 2" etc benannt werden.
Der Codename des Vorlagearbeitsblattes würde bei der Ausgangsmappe beispielsweise Datenerfassung1 lauten.
Gibt es eine Möglichkeit, den Blattnamen im oben dargestellten Beispiel gegen den CodeNamen zu ändern?
Also auch, wenn ich beispielsweise bei Blatt Datenerfassung51 angelangt bin.
Gruß
Christof