Private Sub cmdInfo_Click()
Unload Me
Info.Show
End Sub
Private Sub cmdOK_Click()
ActiveDocument.Bookmarks("ZNr").Range.Text = Me.TextBox1
ActiveDocument.Bookmarks("MVvom").Range.Text = Me.TextBox2
ActiveDocument.Bookmarks("LinksU").Range.Text = Me.ListBox2
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim objXLApp As Object, objWorkbook As Object
Dim varArray As Variant
Set objXLApp = CreateObject("Excel.Application")
Set objWorkbook = objXLApp.Workbooks.Open("L:.xlsx")
varArray2 = objWorkbook.Worksheets("Tabelle1").Range("A1:A20").Value
ListBox2.List = varArray2
objWorkbook.Close SaveChanges:=False
Set objWorkbook = Nothing
objXLApp.Quit
Set objVLApp = Nothing
End Sub
Hat hier eventuell jemand einen Tipp für mich?
Vielen Dank und beste Grüße