Name Tabellenblatt aus Zelle

[isimon]

Hallo,
ich habe eine Basistabelle (Blattname: "Tabelle") und möchte daraus folgendes machen:

Schritt 1:
-----------
In der Spalte B stehen Werte, die ich automatisch als Bezeichnung anstelle der jetzigen Tabellenblätter verwenden möchte. Beispiel: aus Blattname "blatt1" soll "1001"(Zelle B2) werden, aus Blattname "blatt1 (2)" soll "1002" (zelle B3) werden, usw....

Schritt 2:
-----------
Nun soll Excel den Blattnamen mit den Einträgen der Spalte B im Blatt "Tabelle" vergleichen und bei Übereinstimmung den Wert aus der entsprechenden Zell der Spalte B in die Zelle B4 des Tabellenblattes ausgeben.
Beispiel: Der Wert des Blattes "1004" (ist nach Schritt 1 aus blatt1 (4) geworden) ist zu finden in Tabelle!B5. Jetzt soll der Wert aus Tabelle!C5 in die Zelle =1004!E4 automatisch eingetragen werden. Genauso soll Wert aus Tabelle!D5 in die Zelle =1004!E5 eingetragen , usw

Anbei meine Excel Datei

Danke und Gruß,

[Klaus-Dieter]

Hallo,

gleichartige Daten gehören auf ein Tabellenblatt. Wozu soll so eine kleinteilige Datenhaltung gut sein?

[Kuwer]

Hallo,

Sub Kuwer_01()
  Dim i As Long
  Dim oWs As Worksheet
  Set oWs = Worksheets(1)
  For i = 2 To Tabelle1.Cells(Rows.Count, 2).End(xlUp).Row
    If Worksheets.Count > i Then
      With Worksheets(i)
        .Name = oWs.Cells(i, 2).Value
        .Cells(4, 2).MergeArea.NumberFormat = "General"
        .Cells(4, 2).MergeArea.Formula = "=" & oWs.Cells(i, 2).Address(external:=True)
        .Cells(4, 5).MergeArea.NumberFormat = "General"
        .Cells(4, 5).MergeArea.Formula = "=" & oWs.Cells(i, 3).Address(external:=True)
        .Cells(5, 5).MergeArea.NumberFormat = "General"
        .Cells(5, 5).MergeArea.Formula = "=" & oWs.Cells(i, 4).Address(external:=True)
      End With
    End If
  Next i
End Sub

Gruß Uwe

[isimon]

Super Uwe, vielen vielen Dank für die schnelle Unterstützung! Funktioniert super!!!