ich suche seit mehreren Stunden eine Lösung für folgendes Problem:
Ich habe eine Datei mit UF Listbox1 und Listbox2. Diese beiden Listboxen möchte ich mit den Daten der ScantabelleKopierer1Ber und ScantabelleKopierer2Ber einer anderen geöffneten Datei befüllen.
Könnt ihr mir bitte helfen, wie ich diese Listbox befüllen kann.
Der Code für das befüllen aus der aktiven Datei lautet:
<pre>Sub Listbox1u2_aktualisieren()
'Anfang Listbox1
Dim i As Long
ListBox1.Clear
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "1,0cm;0,8cm;1,5cm;3,5cm;1,5cm;1,5cm;1,5cm"
Dim zeile As Long
Worksheets("ScantabelleKopierer1Ber").Activate
With Worksheets("ScantabelleKopierer1Ber")
zeile = .Cells(.Rows.Count, 6).End(xlUp).Row
With Me.ListBox1
For i = 2 To zeile
.AddItem Cells(i, 1) 'SpalteA in erste Spalte
.List(.ListCount - 1, 2) = Cells(i, 2) 'SpalteB in zweite Spalte
.List(.ListCount - 1, 3) = Cells(i, 3) 'SpalteC in dritte Spalte
.List(.ListCount - 1, 4) = Cells(i, 4) 'SpalteD in vierte Spalte
.List(.ListCount - 1, 5) = Cells(i, 5) 'SpalteD in fünfte Spalte
.List(.ListCount - 1, 6) = Cells(i, 6) 'SpalteD in sechste Spalte
Next
End With
End With
Me.TextBox1 = Worksheets("Hilfstabelle").Range("W2").Value
'Ende Listbox1
'Anfang Listbox2
ListBox2.Clear
ListBox2.ColumnCount = 7
ListBox2.ColumnWidths = "1,0cm;0,8cm;1,5cm;3,5cm;1,5cm;1,5cm;1,5cm"
Worksheets("ScantabelleKopierer2Ber").Activate
With Worksheets("ScantabelleKopierer2Ber")
zeile = .Cells(.Rows.Count, 6).End(xlUp).Row
With Me.ListBox2
For i = 2 To zeile
.AddItem Cells(i, 1) 'SpalteA in erste Spalte
.List(.ListCount - 1, 2) = Cells(i, 2) 'SpalteB in zweite Spalte
.List(.ListCount - 1, 3) = Cells(i, 3) 'SpalteC in dritte Spalte
.List(.ListCount - 1, 4) = Cells(i, 4) 'SpalteD in vierte Spalte
.List(.ListCount - 1, 5) = Cells(i, 5) 'SpalteD in fünfte Spalte
.List(.ListCount - 1, 6) = Cells(i, 6) 'SpalteD in sechste Spalte
Next
End With
End With
Me.TextBox7 = Worksheets("Hilfstabelle").Range("W3").Value
'Ende Listbox2
End Sub</pre>
Der Name der anderen geöffneten Datei lautet: Berichtigung_05.04.2019.xlsm
Besten Dank für eure Hilfe.
Gruss
Peter