Hallo,
ich habe folgendes Problem. Im ersten Schritt erzeuge ich ein Tabellenblatt, dessen Name auf einem Zellbezug beruht.
Im zweiten Schritt möchte ich Daten in dieses Tabellenblatt kopieren. Da sich aber über meinen Loop der Name ständig ändern wird, möchte ich auch hier das Tabellenblatt möglichst variabel ansprechen können.
Hier der erste Code:
Sub NeuesTabellenblatt()
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = Worksheets("Schnellansicht").Cells(6, 15).Value
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
End Sub
Für den zweiten Code hätte ich mir so etwas in der Art vorgestellt:
Sub Kopie()
Worksheets("Preisblatt").Range ("A1:R31")= Worksheets("worksheets("Schnellansicht").Cells(6.15).value").Range("A1:R31")
End Sub
Ich weiß jetzt nicht wie ich den variablen Namen ansprechen kann!
lg Johannes
|