Daten in Userform laden & zurück schreiben
webdepp
ich brauche eure Hilfe, denn ich komme nicht weiter. Mein Problem sieht wie folgt aus.
Ich habe eine userform mit einem Button. Über diesen Button rufe ich eine zweite Userform auf. In dieser zweiten Userform habe ich eine Dropdownbox (DDB) und textfelder. Je nach dem was ich in der DDB auswähle werden entsprechend die Textboxen mit Daten aus Excel gefüllt. Jetzt ändere ich die Daten in den Textfeldern. Danach betätige ich ein Button und möchte die Daten in die gleiche Zeile in Excel zurück schreiben. Nur kommen die Daten nicht an. Und da benötige ich eure Hilfe. Ich weiß nicht warum die Daten nicht ankommen. Wenn ich Sie in die nächste freie Zeile im Exxcel schreiben will, kommen Sie an.
Wo ist mein Fehler?
Aufrufen der zweiten Userform:
Private Sub CB_S2_NA_Click()
Dim V_ZEILE_UA As Integer
Dim V_ZEILE_FIRMA As Integer
Dim V_ZEILE As Integer
V_ZEILE_UA = Worksheets("Neuer Anwender").Cells(Rows.Count, 3).End(xlUp).Row
V_ZEILE_FIRMA = Worksheets("Angaben").Cells(Rows.Count, 1).End(xlUp).Row
UF_S3_NA.CB_S3_NA_KO.RowSource = "'Neuer Anwender'!B8:B" & V_ZEILE_UA 'Source aus dem _
Excel
UF_S3_NA.CB_S3_FIRMA.RowSource = "Angaben!A2:A" & V_ZEILE_FIRMA 'Source aus dem Excel
V_ZEILE = Worksheets("Neuer Anwender").Cells(Rows.Count, 2).End(xlUp).Row
'FüllungComboBox mit 2 Spalten
With UF_S3_NA.CB_S3_NA_KO
.ColumnCount = 2 'Spaltenanzahl
.ColumnWidths = "0,5cm" 'Spaltenbreite
.ColumnWidths = "1cm" 'Spaltenbreite
' .ColumnHeads = True 'Kopfzeile
.RowSource = "'Neuer Anwender'!B8:C" & V_ZEILE 'Source aus dem Excel
End With
UF_S3_NA.Show vbModeless
End Sub
Zurück schreiben der Daten:
Private Sub BU_S3_KO_Click()
Dim V_ZEILE_KO As Integer
V_ZEILE_KO = CB_S3_NA_KO.ListIndex + 8
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 3) = TB_S3_NA_BSKENNUNG
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 4) = TB_S3_NA_NACHNAME
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 5) = TB_S3_NA_VORNAME
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 6) = TB_S3_NA_MAIL
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 7) = TB_S3_NA_REFERENZ
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 8) = TB_S3_APG
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 9) = TB_S3_ASG
Sheets("Neuer Anwender").Cells(V_ZEILE_KO, 10) = CB_S3_FIRMA
End Sub
Private Sub BU_S3_OK_Click()
Dim V_LASTROW As Integer
V_LASTROW = Sheets("Neuer Anwender").Cells(Rows.Count, 3).End(xlUp).Row + 1
Sheets("Neuer Anwender").Cells(V_LASTROW, 3) = TB_S3_NA_BSKENNUNG
Sheets("Neuer Anwender").Cells(V_LASTROW, 4) = TB_S3_NA_NACHNAME
Sheets("Neuer Anwender").Cells(V_LASTROW, 5) = TB_S3_NA_VORNAME
Sheets("Neuer Anwender").Cells(V_LASTROW, 6) = TB_S3_NA_MAIL
Sheets("Neuer Anwender").Cells(V_LASTROW, 7) = TB_S3_NA_REFERENZ
Sheets("Neuer Anwender").Cells(V_LASTROW, 8) = TB_S3_APG
Sheets("Neuer Anwender").Cells(V_LASTROW, 9) = TB_S3_ASG
Sheets("Neuer Anwender").Cells(V_LASTROW, 10) = CB_S3_FIRMA
Unload UF_S3_NA 'Userform UF_S3_FK leeren
UF_S3_NA.Hide 'Userform UF_S3_FK schließen
End Sub