Clever-Excel-Forum

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ß,

Hallo,

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

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