Daten aus geöffneter Tabelle übernehmen
25.12.2018 11:52:44
Tim
ich möchte gern via Doppelclick eine Tabelle öffnen und den Inhalt ab A21 bis zur letzten beschriebenen Zeile in die Userform2 übernehmen. Irgendwie stört sich jedoch meine Zusammenstellung an der geöffneten Tabelle. Kann mir jemand sagen, wie ich das Problem lösen kann?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strFirstAddress As String
Dim rng As Range
Dim objShellApp As Object
Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open ListBox1.Column(1) 'alt objShellApp.Open ListBox1.Value
With Worksheets("Tabelle1").Range("A22:A")
UserForm2.Show
Me.ListBox1.Clear
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = rngCell.Row 'Zeilennummer in der sich der Eintrag befindet = _
eindeutige Zuordnung wenn z.B. Bezeichnung doppelt vorkommt
.List(.ListCount - 1, 1) = rngCell.Offset(0, 2).Value ' Artikelbezeichnung aus Spalte D
.ColumnWidths = "2cm;4cm;3cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
End If
End With
Set objShellApp = Nothing
End Sub