Office: userform zum suchen in Tabelle1 und Auswahl kopieren in Tabelle2

Hallo zusammen,

meine VBA kenntnisse sind eher sehr rudimentär. Ich habe ein funktionierendes Script gefunden, was nur einen kleinen Makel hat. Wie bekomme ich es hin dass in der Listbox die Spalte mit angezeit wird. Ich kann einfach im Code nicht den Grund für das Einlesen am Spalte 2 (B) finden. Vielleicht kann mir da jemand weiter helfen.

Hier der Code:

Option Explicit
Dim Bol As Boolean
Private mrngData As Range
Private Sub cboField_Change()
Call Data_Filter(txtSearch.Text & "*", cboField.ListIndex + 1)
End Sub

Private Sub lstDisplay_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer
Dim strAuswahl As String

For i = 0 To lstDisplay.ListIndex
If lstDisplay.Selected(i) Then
Sheets("Tabelle2").Cells(5, 2) = lstDisplay.Column(2, i)
Sheets("Tabelle2").Cells(5, 3) = lstDisplay.Column(1, i)
Sheets("Tabelle2").Cells(6, 2) = lstDisplay.Column(3, i)
Sheets("Tabelle2").Cells(7, 2) = lstDisplay.Column(4, i)
Sheets("Tabelle2").Cells(7, 3) = lstDisplay.Column(5, i)
End If
Next i

Unload UserForm1

End Sub

Private Sub txtSearch_Change()
Call Data_Filter(txtSearch.Text & "*", cboField.ListIndex + 1)
End Sub

Private Sub cmdClear_Click()
txtSearch.Text = ""
txtSearch.SetFocus
End Sub

Private Sub cmdAnzeigeWahl_Click()

Dim ilstRow As Long
Dim strID As String

With lstDisplay
For ilstRow = 0 To .ListCount - 1
If .Selected(ilstRow) Then
strID = strID & vbLf & " ID: " & .List(ilstRow, 0)
End If
Next
End With

If Len(strID) = 0 Then
MsgBox "Bitte mind. 1 Datensatz aus der Liste wählen!", vbInformation, "Info"
Else
MsgBox "Gewählte Datensätze:" & vbLf & strID
End If

End Sub

Private Sub UserForm_Initialize()

Set mrngData = ThisWorkbook.Worksheets("Tabelle1").Range("A3").CurrentRegion


cboField.Column = mrngData.Rows(1).Value
cboField.List(0) = "[Alle]"
cboField.ListIndex = 0

lstDisplayHeader.List = mrngData.Rows(1).Value

Call Data_Filter(txtSearch.Text)

txtSearch.SetFocus

End Sub

Private Sub UserForm_Terminate()
Set mrngData = Nothing
End Sub
Private Sub UserForm_Activate()
'Datum und Uhrzeit anzeigen
'Label9.Caption = Date

Label9.Caption = Format(Date, "dd/mm/yyyy ,dddd")

'Bol = True
'Do Until Bol = False
' DoEvents
' Label10.Caption = Time
'Loop
End Sub
Private Sub Data_Filter(strSearch As String, Optional lngColumn As Long = 1)

Dim avntData() As Variant
Dim iavntData1 As Long
Dim iavntData2 As Long

Dim avntResult() As Variant
Dim iavntResult1 As Long

Dim blnExist As Boolean


If mrngData.Rows.Count

:)

 

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

Das ist nur meine Meinung zu dem Thema.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo,

avntData() = mrngData.Offset(1).Resize(mrngData.Rows.Count - 1).Value

If Len(strSearch) = 0 Then

lstDisplay.List = avntData()

 

Das kommt davon, wenn zur Arbeit muss und was man reingeschrieben hat nicht noch mal durchliest.

Das einzige Problem was ich habe ist, dass in der Listbox die Spalte A aus Tabelle1 nicht angezeigt wird. Die Datei lade ich gleich noch mit hoch.

Code:

 

Hallo Uwe,

was muss ich an dieser Stelle ändern?