suche nach einer Möglichkeit die Tabellennamen aus Tabelle1 der Spalte A2, nach unten variabel, umbenenen. Dabei sollte aus der Spalte B der Wert in die jewalige Tabelle in die Zelle A1 eingetragen werden.
Bitte um Hilfe. Vielen Dank
chandler
Sub Tabellen()
Dim i As Integer
For i = 2 To Worksheets.Count
If Worksheets(1).Cells(i, 1) "" Then
With Worksheets(i)
.Name = Worksheets(1).Cells(i, 1)
.Range("A1") = Worksheets(1).Cells(i, 2)
End With
End If
Next
End Sub