So lasse ich mir in einer Listbox alle Spalten aller Zeilen einer Quelle anzeigen:
Dim wbk As Workbook
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer, iRowL As Integer
Application.ScreenUpdating = False
Set wbk = Workbooks.Open("F:\daten\mängelliste.xls")
'definieren was gelistet werden soll
If frmAuftragListe.lbWas = "alle" Then
'Box mit firmen für auswahl füllen START
'firmenliste.xls ist für gemeinsames bearbeiten freigegeben
'Dim wbk As Workbook
'Dim wks As Worksheet
'Dim vRow As Variant
'Dim iRow As Integer, iRowT As Integer, iRowL As Integer
Application.ScreenUpdating = False
'Set wbk = Workbooks.Open("F:\daten\mängelliste.xls")
Set wks = wbk.Sheets(1)
With listBmangelliste
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
wbk.Close savechanges:=False
Set wbk = Nothing
Set wks = Nothing
Application.ScreenUpdating = True
'Box mit firmen für auswahl füllen Ende
End If
Jetzt möchte ich mir aber nur bestimmte Zeilen der Quelle anzeigen lassen, allerdings funktioniert mein code nur so, dass zwar alle Zeilen angezeigt werden aber nur eine Spalte.
If frmAuftragListe.lbWas = "VE" Then
'Box mit firmen für auswahl füllen START
On Error Resume Next 'GoTo zError 'muß rein, da er sonst bei sortieren Err weil Liste leer und nix kann man nicht sortieren
iRowL = 0
iRowT = 0
Set wks = wbk.Sheets(1)
iRowL = wks.Cells(wks.Rows.Count, 8).End(xlUp).Row
Workbooks.Add
'MsgBox "" & iRowL 'Anzahl der Zeilen(Reihen)
For iRow = 1 To iRowL
If wks.Cells(iRow, 2).Value = frmAuftrag.lbVE Then
vRow = Application.Match(wks.Cells(iRow, 8).Value, Columns(10), 10) '10statt1
If IsError(vRow) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = wks.Cells(iRow, 8).Value
End If
End If
Next iRow
Range("a1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Dim vTemp1 As Variant
With wks
vTemp1 = Range("A2").CurrentRegion.Value '.Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
With listBmangelliste
.List = Range("A1").CurrentRegion.Value 'vTemp1
If .ListCount > 0 Then .ListIndex = 0
End With
wbk.Close savechanges:=False
'Box mit firmen für auswahl füllen Ende
End If
Hab schon rumprobiert, kanns aber wieder nicht. Könnt ihr mal bitte schauen.Viele Grüße aus frostigen Hamburg
Ray