für mein Programm erstelle ich eine Kopie eines Tabellenblatts "Vorlage" die dann gefüllt werden soll mit Werte, die aus einer Userform ausgehen.. Leider stoße ich bei der neues Definition des Tabellenblatts an meine Grenzen. Kopieren funktioniert... das einlesen nicht. Lieben Dank für eure Hilfe im voraus
Private Sub OKButton_Click()
If TextBoxRsi.Value = "" Then
MsgBox "Bitte Wärmeübergang innen eintragen", 16, "Fehlermeldung"
BauteilNeu.TextBoxRsi.SetFocus
Exit Sub
End If
' neues Tabellenblatt nach Fertigstellen des Bauteils anlegen
Dim NewName As String
Worksheets("Vorlage").Copy Before:=ActiveSheet
ActiveSheet.Name = TextBoxName
Set wsNeu = AcitveSheet
'Werte in Neues Rechenblatt exportieren
wsNeu.Cells(2, 27).Value = TextBoxRsi.Value
End Sub