VisualBasic Daten von der Combobox Splitten und vergleichen

[tonikln]

Hallo zusammen,

ich bin seid 3 tagen dran VBA in Excel zu lernen, da ich auch mal was neues machen wollte !

Erklärung:

Ich hab in Excel in 3 Spalten Daten drin und das über mehrere Zeilen. Ich hab es geschafft das ich die Daten auslesen kann. Die Daten werden dann in einer Combox mit einem Komma getrennt.


Nun zu meinem Problem...

Ich möchte das ich einen Datensatz auswählen kann und den Datensatz der ausgewählt wurde, aus meiner excel Tabelle gelöscht wird. Ich muss aber erst den Datensatz in der Combobox splitten und dann vergleichen, aber komm da leider nicht wieter

hier mein code:

Private Sub btnLoeschen2_Click()

Dim i As Integer
Dim splitten As Variant
max = 15

    For i = 1 To 7
        splitten = Split(Expression:=testContact.splitten, Delimiter:=",")
        If Cells(i, 3).Value = cbxListe.Text Then
        
        Rows(i).Delete
            
        
        End If
        
    Next i

End Sub

Ergänzung (16. Oktober 2009)

Habs anders gelöst bekommen nach einen ganzen Tag
Lese die Zeilen aus der Excel Tabelle aus, füge dort einen Komma ein und dann vergleiche ich es mit der Combobox und zack weg ist der Datensatz


Hier mein Code:

Private Sub btnLoeschen2_Click()

Dim i As Integer
Dim splitten As Variant
Dim Wort As String
Dim Wort1 As String
Dim Wort2 As String
Dim zusammen As String
max = 15

    For i = 1 To max
        Wort = Cells(i, 1).Value & ", "
        Wort1 = Cells(i, 2).Value & ", "
        Wort2 = Cells(i, 3).Value
        zusammen = Wort & Wort1 & Wort2
        If zusammen = cbxListe.Text Then
        
        Rows(i).Delete
        MsgBox ("Gelöscht")
        
        End If
        
    Next i

End Sub

 

[schmidmi]

Schön das es funktioniert.
Wieso hast du die Combobox nicht mehrspaltig aufgebaut?
Oder wenn dir deine jetzige Darstelling gefällt, wieso speicherst du nicht die Zelladresse mit in die Box(z.B. in einer ausgeblendeten Spalte) und löscht dann darüber?