VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert aus geschlossener Arbeitsmappe in UserForm-TextBox

Gruppe

Dialog

Bereich

TextBox

Thema

Wert aus geschlossener Arbeitsmappe in UserForm-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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox