AW: Daten aus UF in Tabelle
03.09.2004 10:37:06
Alexander
Hallo Heidi,
erstmal die Frage ob du in einem Stahlwerk arbeitest?
Wenn ja, evtl. sitzen wir nicht weit voneinander entfernt.
Dann zu deinem Problem.
Ich bin selber erst VBA-Neuling, aber ich habe etwas ähnliches gemacht wie du und das funktioniert bei mir folgendermaßen.
Du musst die Variable, die für Textbox1 gilt, als globale Variable definieren, so dass du sie auch in anderen Prozeduren benutzen kannst.(Der Wert wird an alle übergeben.)
Dann hab ich die Varbiable ws.name als ws_Name umbenannt, da da kein Punkt zwischen sein darf (bei mir zumindest nicht). Wenn du dann einen Wert in die Textbox1 eingibst, dann weist den der Variable zu indem du :
Sub UserForm_Click()
Dim ws As Worksheet
Set ws = Worksheets.Add
ws_Name = TextBox1.Value
Call wert_ausgeben
und dann kannst du in einer anderen Prozedur einfach :
Public ws_Name As String
Sub wert_ausgeben()
Application.Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Cells(1, 1).Value = ws_Name
End Sub
die Zellen werden so gezählt: cells(1,1)=A1, cells(1,2)=A2, cells(2,2)=B2
Wenn du den Wert in einem anderen Tabellenblatt ausgeben willst, dann einfach den exakten Namen in *** eingeben
Application.Worksheets("***").Activate
Hoffe das hilft dir weiter. Wahrscheinlich kann man das alles noch schöner und besser schreiben, aber ich bin auch erst noch in den Kinderschuhen.