Daten aus UF in Tabelle

Heidi · 2004-09-03T08:50:13+00:00

Hallo Forum, habe mangels Excel Kenntnisse ein Problem die Daten aus einer UF in ein Tabellenblatt zu bekommen. In der UF befindet sich die TextBox1 aus dem Inhalt der Box wird ein neues Tabellenblatt angelegt.Dieser dafür notwendige Code ist schon vorhanden. Nur für die weiteren auf der UF befindlichen Optionen fehlt mir noch der Code habe auch keinen Plan wie der Code ausehen sollte. Habe die Datei mal angefügt und in Tabelle2 mal erläutert wie der Aufbau der neuen Tab. sein sollte.Das Kennwort was abgefragt wird lautet "xxx". Ich hoffe das mir jemand von euch dabei behilflich sein kann.

hallo Heidi,
kopier mal nachstehende Zeilen in dasselbe Code-Fenster, wo das Userform_Click.. drinsteht.


Private Sub TextBox1_AfterUpdate()
'Textbox1-Lfd Nr.
ThisWorkbook.Worksheets("Tabelle2").Range("B4") = TextBox1.Value
End Sub


Private Sub OptionButton1_Click()
'Optionsbutton1-P1
If OptionButton1 Then
ThisWorkbook.Worksheets("Tabelle2").Range("B8") = "x"
ThisWorkbook.Worksheets("Tabelle2").Range("B9") = ""
Else
ThisWorkbook.Worksheets("Tabelle2").Range("B8") = ""
End If
End Sub


Private Sub OptionButton2_Click()
'Optionsbutton1-P2
If OptionButton2 Then
ThisWorkbook.Worksheets("Tabelle2").Range("B9") = "x"
ThisWorkbook.Worksheets("Tabelle2").Range("B8") = ""
Else
ThisWorkbook.Worksheets("Tabelle2").Range("B9") = ""
End If
End Sub

Grüsse Mar.S

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.

Forumthread: Daten aus UF in Tabelle

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten aus UF in Tabelle

Forumthread: Daten aus UF in Tabelle

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread