Filtern, Sortieren und in Spalte ersten 10 Zeilen ändern

[Steffl]

Hallo Sandor,

könntest Du mal testen?

Code:

Private Sub CommandButton4_Click()
  
   Dim i As Integer
   Dim rngAusgabe As Range
  
   'Set rngAusgabe = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   'rngAusgabe = ActiveCell.Row + 1
  
   With Me.ListBox1
      For i = 0 To .ListCount - 1
      If .Selected(i) Then
         Set rngAusgabe = Sheets("Tabelle1").Columns(1).Find(.List(i, 0), LookIn:=xlValues, lookat:=xlWhole)
         If Not rngAusgabe Is Nothing Then
            'rngAusgabe.Offset(0, 0).Value = .Column(0, i)
            rngAusgabe.Offset(0, 1).Value = .Column(1, i)
            rngAusgabe.Offset(0, 2).Value = .Column(2, i)
            rngAusgabe.Offset(0, 3).Value = .Column(3, i)
            rngAusgabe.Offset(0, 6).Value = WorksheetFunction.Proper(ComboBox1.Text)
         End If
         'Set rngAusgabe = rngAusgabe.Offset(1, 0)
      End If
      Next i
   End With
  
   Set rngAusgabe = Nothing
End Sub

[sandormiles]

Hallo Stefan, schau ich mir morgen an, weil nicht zuhause. Melde mich dann und berichte.

Grüße

[sandormiles]

Hallo Stefan,

hat funktioniert. Ich danke dir!!!

Grüße und schönen Sonntag
Sandor

[sandormiles]

Man testet sich ja so langsam ran... Habe die Userform jetzt so erweitert, dass ich von ListBox1 Werte aussuchen und die dann in Listbox2 übertragen kann. Soweit funktioniert das auch. Hierzu die nächste Frage, erstmal nach einem Stichwort, damit ich mich selbst rantasten kann. Gibt es eine Möglichkeit / geht das überhaupt, dass wenn ich in Listbox1 einen Eintrag markiere, dass er die Listbox1 danach überprüft, ob es weitere Zeilen in Listbox1 mit identischem Wert in Spalte 1 gibt und die dann auch markiert. Der Rest in der jeweiligen Zeile könnte theoretisch anders sein.

Grüße zur Nacht!