VBA: Zelleninhalt in UserForm-Textfeld übertragen

Computer: Software & Programmierung Office Software
1

Hallo Experten,

folgendes Problem:

möchte aus einer Excel-Datei den Inhalt der Zelle „A1“ mittels Klick auf einen Button in ein UserForm-Textfeld einer anderen Excel-Datei übertragen.
Wie kann ich dieses Problem mittels VBA-Code lösen?

Würde mich über Eure Hilfe freuen.

Gruß
Thomas

2

möchte aus einer Excel-Datei den Inhalt der Zelle „A1“ mittels
Klick auf einen Button in ein UserForm-Textfeld einer anderen
Excel-Datei übertragen.
Wie kann ich dieses Problem mittels VBA-Code lösen?

Hi Thomas,
probiers mal so, gehört ins Klassenmodul des Tabellenblatts mit dem Button:

Option Explicit
Private Sub CommandButton1_Click()
Workbooks(„DateiMitTextbox.xls“).Worksheets(„Tabelle1“).Usserform1.Textbox1 = [A1]
End Sub

Gruß
Reinhard

3

Option Explicit
Private Sub CommandButton1_Click()
Workbooks(„DateiMitTextbox.xls“).Worksheets(„Tabelle1“).Usserform1.Textbox1
= [A1]
End Sub

Hi Reinhard,

danke erstmal, doch leider funktioniert das so nicht. Bekomme die Fehlermeldung „Index außerhalb des gültigen Bereichs“.
„UserForm“ ist keine Methode bzw. Eigenschaft vom Worksheets-Objekt, ich denke deshalb ist Worksheets(„Tabelle1“).UserForm1 nicht möglich!

Bitte um weitere Ideen.

Gruß
Thomas

4

Lösung
Hi Thomas,
in der Datei wo der Button ist, in Buttonblatt-Codebereich:

Private Sub CommandButton1_Click()
Application.Run „DateiMitTextbox.xls!Einsetzen“, Range(„A1“)
End Sub

In der Datei mit der UF (hier DateiMitTextbox.xls) in einem Modul

Sub Einsetzen(ByVal Wert)
UserForm1.Show
UserForm1.TextBox1 = Wert
End Sub

Anscheinend geht kein direkter Zugriff von Datei zu Datei.
Wie das mit dem Projektnamen klapen soll bekam ich nicht hin:
http://groups.google.de/group/microsoft.public.de.ex…

Gruß
Reinhard

5

Hallo Reinhard,

super, vielen Dank. Es funktioniert!
Wie kann ich denn nun mehrere Tabellenfelder mehreren Textboxen zuweisen?

Geht das vielleicht irgendwie so:
In Datei mit Button:

Private Sub CommandButton1_Click()
Application.Run „DateiMitUserForm.xls!Einsetzen“, _
Range(„A1“), Range(„A2“), Range(„A3“)
End Sub

In Datei mit UserForm:
Sub Einsetzen(ByVal Wert1, Wert2, Wert3)
With UserForm1
.TextBox1 = Wert1
.TextBox2 = Wert2
.TextBox3 = Wert3
.Show
End With
End Sub

Werds gleich mal ausprobieren…
Also, nochmals vielen Dank.

Gruß
Thomas