Excel Userform - Eintrag aus Listbox in neuer Userform anzeigen und verarbeiten

Zvoni

Erfahrenes Mitglied
Wieso vergleichst du Ticketnummer mit betroffene PK?????
Du musst Ticketnummer mit Spalte A vergleichen?!?!?

Generell solltest du die Prozedur wie folgt aufbauen:
Suche Ticketnummer in Spalte A
Falls gefunden dann
Schreibe Textboxes in die entsprechende Zelle im Arbeitsblatt
Springe aus Schleife
Ende Falls
 

jerry0110

Erfahrenes Mitglied
Ja wollte gerade mein neues script posten :)
Habe es gerade selber bemerkt.

Bin immer noch nicht so weit, warum die Checkbox nicht gefüllt wird.

Visual Basic:
Private Sub CommandButton2_Click()
   
    Dim source As Worksheet
    Dim f As Long
    Dim lastRow As Long
    Dim x As Long
    Dim Temp As Integer
   
    Set source = ActiveWorkbook.Worksheets("Datentabelle")
   
    lastRow = xlsGetLastRow(source)
   

    x = TextBox_Ticketnummer
    Temp = 0
   
    For f = lastRowNr(source) To 2 Step -1
        If source.Range("A" & f) = x Then
            zeile = f
            Temp = 1
            Exit For
        End If
    Next f
           
    If Temp = 1 Then

        Unload Me

    End If
   
MsgBox f
   
        source.Range("A" & f).Value = TextBox_Ticketnummer
        source.Range("B" & f).Value = TextBox_St_Anfang
        source.Range("C" & f).Value = TextBox_St_Ende
        source.Range("D" & f).Value = TextBox_Betr_Gebiet
        source.Range("E" & f).Value = TextBox_Betr_POP
        source.Range("F" & f).Value = TextBox_Betr_KR
        source.Range("G" & f).Value = TextBox_Betr_DSW
        source.Range("H" & f).Value = TextBox_Firmenname
        source.Range("I" & f).Value = TextBox_Adresse
        source.Range("J" & f).Value = TextBox_ASP
        source.Range("K" & f).Value = TextBox_Schadenstelle
        source.Range("L" & f).Value = ComboBox_Kabeltyp
        source.Range("M" & f).Value = ComboBox_Darkfiber
        source.Range("N" & f).Value = ComboBoxWDM_Strecke
        source.Range("O" & f).Value = ComboBox_DP_TYP
        source.Range("P" & f).Value = TextBox_Betr_PK
        source.Range("Q" & f).Value = TextBox_Betr_Grosskunden
        source.Range("R" & f).Value = Textbox_Bemerkung
        source.Range("S" & f).Value = CheckBox_Störung_erledigt
       

   
End Sub
 

Zvoni

Erfahrenes Mitglied
1) Schieb dein source.range etc. vor das Unload me. Damit verhinderst du deinen Fehler 1004

Wegen der Checkbox: Vermutung: Der Wert der Checkbox ist ein True/False (bzw. eine Repräsentation davon).
Der Wert in der Zelle scheint aber ein Text zu sein. Mach doch einfach eine If-Then-Else daraus
If Checkbox=True Then
source.range="WAHR"
Else
source.range="FALSCH"
End if