Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Daten aus geschlossener Datei in Textbox

Betrifft: Daten aus geschlossener Datei in Textbox
von: Rainer
Geschrieben am: 20.04.2003 - 18:45:34

Hallo Excel-User,

Wie kann man Daten aus einer geschlossenen Excel-Datei in eine Userform-Textbox laden?

In der geschlossenen Datei habe ich dem Bereich, der einzufügend ist, bereits einen Namen gegeben: Name = Bereich_1

Folgenden Anfangscode existiert:

Sub In_UF_Textbox_einfügen()

Dim sFullFile$
sFullFile = Application.GetOpenFilename
On Error GoTo ErrorHandler1

UserForm1.TextBox1.Value = sFullFile & ?????? Range("Bereich_1")???

End

ErrorHandler1:
If Err = 13 Then
Beep
MsgBox "Ungültiges Dateiformat!"
End If

UserForm1.Show
End Sub

Gruß Rainer

  

Re: Daten aus geschlossener Datei in Textbox
von: andre
Geschrieben am: 20.04.2003 - 19:27:49

hallo rainer,
z.b. mit einem "kleinen" umweg - nutze ein tabellenblatt und hole die daten per formel.
gruss andre

  

Re: Daten aus geschlossener Datei in Textbox
von: andre
Geschrieben am: 20.04.2003 - 19:31:10

... und siehe mal in der recherche, stichwort daten, dann nach geschlossen suchen - da findest du z.b. das
https://www.herber.de/forum/archiv/188to192/t190065.htm
gruss andre

  

Re: schon ohne Erfog dursucht
von: Rainer
Geschrieben am: 20.04.2003 - 19:52:42

Hallo Andre,

erst mal danke; die Beispiele im Forum habe ich schon duchsucht, konnten mir aber nicht weiterhelfen.

Es ist doch viel einfacher mit Breichsnamen zu arbeiten, da man dann nicht das Tabellenblatt und den Bereich angeben muß.

Im Prinzip bin ich ja der Lösung ziemlich nah,nur die richtige Syntax fehlt.

Gruß Rainer

  

Re: ich hab's fast, brauch noch ein weing Hilfe
von: Rainer
Geschrieben am: 20.04.2003 - 23:15:08

Hallo Excel-User

mein Code sieht nun folgendermaßen aus:

Sub In_UF_Textbox_einfügen2()
Dim TEST As String
Dim sFullFile As String
sFullFile = Application.GetOpenFilename
sFile = Dir(sFullFile)

'TEST = ActiveWorkbook.Names("Testbereich").RefersToRange.Value
'dieser Zeilen-Code funktioniert, wenn in der aktiven Arbeitsmappe der 'Bereich "Testbereich" vorkommt

TEST = sFullFile.Names("Testbereich").RefersToRange.Value
'hier gibt's natürlich einen Fehler, da sFullFile als String
'deklariert wurde und nicht als Workbook

End Sub

Wenn man die Variable als Workbook deklariert funktioniert sFullFile = Application.GetOpenFilename wiederum nicht.

Irgendwie müßte halt der Path miteingebaut werden

Test = Path und Workbook(sFile).Names("Testbereich").RefersToRange.Value

Wäre nett, wenn sich jemand der Sache noch einmal annehmen könnte.

Gruß Rainer

  

Re: ich hab's fast, brauch noch ein weing Hilfe
von: andre
Geschrieben am: 21.04.2003 - 08:02:16

hallo rainer,
du müsstest workbooks(sfile) nehmen.
gruss andre

  

Re: danke, geht auch nicht
von: Rainer Quaas
Geschrieben am: 22.04.2003 - 08:39:33

Hallo Andre,

diese Variante hatte ich auch schon versucht, werde wohl die Datei im Hintergrund öffnen.

Gruß Rainer

 

Beiträge aus den Excel-Beispielen zum Thema "Daten aus geschlossener Datei in Textbox"