Listbox selected soll bestimmte Zeile in Tabellenblatt ansprechen

[Egon12]

Hallo,

teste mal:

Code:

Option Explicit

Private Sub CB_del_Click()
    Dim LR As Long
    Dim LC As Long
    Dim i As Long
    Dim ID As Long

    LR = Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row
    LC = Tabelle4.Cells(1, Columns.Count).End(xlToLeft).Column

    ID = ListBox1.List(ListBox1.ListIndex, 0)

    For i = 2 To LR
        If Tabelle4.Cells(i, 1).Value = ID Then
            Tabelle4.Rows(i).Delete
        End If
    Next i
    ListboxLaden
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Long
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        TB_Name = .List(.ListIndex, 3)
        TB_Telefon = .List(.ListIndex, 4)
        TB_Mobil = .List(.ListIndex, 5)
        TB_Email = .List(.ListIndex, 6)
        TB_Funktion = .List(.ListIndex, 7)
        For i = 2 To Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row
            If Tabelle2.Cells(i, 2) = .List(.ListIndex, 1) Then
                TB_Firma = Tabelle2.Cells(i, 4)
                TB_Standort = Tabelle2.Cells(i, 5)
                TB_Release = Tabelle2.Cells(i, 7)
                TB_Ablaufdatum = Tabelle2.Cells(i, 9)
            End If
        Next i
    End With
End Sub
Private Sub CommandButton6_Click()
    Me.Hide
    Inhaltsverzeichnis.Show
End Sub

Private Sub ListboxLaden()
    With ListBox1
        If Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row = 1 Then Exit Sub
        .List = Tabelle4.Range("A2:I" & Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
End Sub

Private Sub UserForm_Initialize()
    ListboxLaden
End Sub

was mich verwundert, du meldest dich, wenn man dir hilft, nicht zurück. Da weiß keiner der Helfer was Sache ist. Stattdessen machst du einen neuen Thread auf. Es ist ja nicht so, dass uns/ich der Wille zum Helfen fehlt. Man sieht ja an dem was man in den Dateien vorfindet, dass du mit diesem Projekt überfordert bist.

Gruß Uwe

[tomcat]

Hallo Klaus-Dieter,

hab mich bisschen zu ungenau ausgedrückt

Jetzt ist es so dass ich im listfeld die Zeilen vom tabellenblatt 4 und 6 einlese 

wenn im listfeld item z. B. 1 und 3 aufgenommen wurden aus tabelle4 dann sollen auch "Kontaktinformationen" im Userform "Kundendaten" mit den Daten aus der aus der Tabelle4 gefüllt werden.


Ich hoffe es ist so verständlicher anbei aber noch ein Screenshot.

Ich muss aber sagen dass der Ansatz von Egon12 wirklich gut ist!

Vielleicht fällt dir aber noch was anderes ein oder eine verbesserung

[Egon12]

Hallo,

anbei mal ein Weg, wo zumindest an der Stelle das Pferd von vorn aufgezäumt wird. Es wird als erstes der Kunde ausgewählt und dann erfolgt das Füllen der Listbox mit den zum Kunden gehörenden Kontakten. Das hatte ich eigentlich mit der 1. Version, wo deine Anfrage mit dynamisch erzeugten Controls verwurstet ist, schon so angelegt - halt eben dynamisch.

Gruß Uwe

[tomcat]

Hi Egon,

ja das stimmt hab mich damit so ein bisschen übernommen weil ich auch selbst am anfang wusste wie ich das ganze aufbauen soll aber jetzt durch eure hilfe kommt langsam licht ins dunkel ;)

ich hab eine Frage zu deinem Makro:

Code:

Private Sub ListboxLaden()
    With ListBox1
        If Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row = 1 Then Exit Sub
        .List = Tabelle4.Range("A2:I" & Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
End Sub

Die Listbox wird neu geladen aber mit allen Daten aus der Tabelle und nicht nur die Kontakte mit dem Kundencode gewählten Kundencode

[Egon12]

Hallo,

ja, hatte ich vergessen zu löschen. Das stammt noch vom Vorherigen. Wird so nicht mehr benötigt.

Gruß Uwe