Wie exportiert man Werte von UserForm in neue Excel-Tabelle?

Question

Ich habe ein UserForm, von dem ich drei verschiedene Werte kopieren und in mein neues Blatt zusammen mit einer Erklärung vor jedem Wert legen möchte, aber es funktioniert nicht, könnte mir jemand helfen, warum zu verstehen?

Private Sub cmbExport_Click() 

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Export" 

Export.Range("A1").Value = "Riskpremie" 
Export.Range("A2").Value = "Teknisk premie" 
Export.Range("A3").Value = "Slutpremie" 

Export.Range("B1").Value = TxtRiskpremie.Value 
Export.Range("B2").Value = TxtTeknpremie.Value 
Export.Range("B3").Value = txtSlutpremie.Value 

End Sub 

Vielen Dank im Voraus!

Answer 1

unsere Export ist nicht definiert, so wird es nicht funktionieren:

Private Sub cmbExport_Click() 
Dim Export as wWorksheet 
Set Export = Sheets.Add(After:=Sheets(Sheets.Count)) 
Export.Name = "Export" 

Export.Range("A1").Value = "Riskpremie" 
Export.Range("A2").Value = "Teknisk premie" 
Export.Range("A3").Value = "Slutpremie" 

Export.Range("B1").Value = TxtRiskpremie.Value 
Export.Range("B2").Value = TxtTeknpremie.Value 
Export.Range("B3").Value = txtSlutpremie.Value 

End Sub 

Answer 2

Es hängt davon ab, wo Sie Sub ist. Wenn es in einem Modul ist, müssen Sie auf die verweisen. dh:

Dim oF as UserForm1 

können Sie verweisen dann die Felder in der FORM:

Sheets("Export").Range("B1").Value = oF.TxtRiskpremie.Value