Gruppe
Dialog
Problem
Aus einer geschlossenen Arbeitsmappe soll der Wert eines benannten Bereiches in eine UserForm-TextBox übernommen werden.
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