Clever-Excel-Forum

Seiten: 1 2

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

Hallo Klaus-Dieter,

hab mich bisschen zu ungenau ausgedrückt

Zitat: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

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

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

Hallo,

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

Gruß Uwe

Seiten: 1 2

Egon12

tomcat

Egon12

tomcat

Egon12