habe schon viele Seiten aus dem Forum besucht und nicht gefunden was mir helfen könnte.
Wenn Ihr mir weiterhelfen könntet, würde ich mich sehr freuen.
Ich möchte nach Auswahl, einer der gefilterten Anzeigetexte in der Listbox, die dazugehörenden Daten der originalen Tabelle in einem anderen Tabellenblatt in eine freie wählbare Zelle schreiben. Eine weitere Auswahl soll in die darauf folgende Zelle geschrieben werden usw.
Hoffe das geht so wie ich mir das denke und das Ihr mir helfen könnt.
Gruß Nico
Option Explicit
Private Sub CommandButton1_Click() ' soll bei click die zugehörigen Tabellenwerte in neue Mappe _
schreiben.
If ListBox1.ListIndex = -1 Then
MsgBox "Es wurde keine Auswahl getroffen."
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Objekt" 'Filterauswahl
End Sub
Private Sub ComboBox1_Click()
Application.ScreenUpdating = False
Dim i As Integer
Dim lngArr As Integer
Dim SuchZelle As String
SuchZelle = ComboBox1.Value
With Worksheets("Tabelle1")
lngArr = Application.WorksheetFunction.CountIf(.Range("D1:D35"), SuchZelle) ' vielleicht geht _
das ja auch etwas einfacher mit "[Objekt]"
If lngArr = 0 Then
MsgBox "Keine Einträge gemäss den ausgewählten Kriterien"
Exit Sub
End If
ReDim MyArray(1 To lngArr, 0 To 4)
lngArr = 0
For i = 1 To 35
If .Cells(i, 4) = SuchZelle Then
lngArr = lngArr + 1
MyArray(lngArr, 0) = .Cells(i, 2)
MyArray(lngArr, 1) = .Cells(i, 3)
MyArray(lngArr, 2) = .Cells(i, 4)
MyArray(lngArr, 3) = .Cells(i, 5)
MyArray(lngArr, 4) = .Cells(i, 6)
End If
Next i
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.List = MyArray
End With
Application.ScreenUpdating = True
End Sub