Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert aus geschlossener Arbeitsmappe in UserForm-TextBox

Gruppe

TextBox

Problem

Aus einer geschlossenen Arbeitsmappe soll der Wert eines benannten Bereiches in eine UserForm-TextBox übernommen werden.

Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmImport

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim sPath As String, sFile As String, sWks As String
   Dim sRange As String
   sPath = "c:\test"
   sFile = "test.xls"
   sWks = "Tabelle1"
   sRange = "Auftraggeber"
   If Dir(sPath & "\" & sFile) = "" Then
      Beep
      MsgBox "Datei " & sFile & " nicht gefunden!"
      Exit Sub
   End If
   On Error Resume Next
   Range("IV1").Formula = "='" & sPath & _
      "\[" & sFile & "]" & sWks & "'!" & sRange
   txtImport.Text = Range("IV1").Value
   Range("IV1").ClearContents
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmImport.Show
End Sub