Ich habe mir eine Eingabemaske für Personal per Userform gebastelt.
Hierbei soll es eine separate Userform für Neueingaben und verschiedene kleinere für Änderungen geben.
Bisher klappt alles super. In der Userform für Neuanlagen möchte ich jedoch Zwischenspeicher erlauben.
D.h. falls im Blatt "MAStD" in Spalte A bereits die ID aus UserForm: UF_MA_Aufnahme1 und _ TextBOX: TB_MAStD_Personalnummer vorhanden ist, soll die betreffende Zeile markiert und überschrieben werden. Andernfalls könnte das Makro wie folgt weiterlaufen. mit dieser If/Else Abfrage tue ich mich schwer. Kann jemand helfen?
Private Sub CommandButton2_Click()
Set frm = UF_MA_Aufnahme1
'STAMMDATEN
Sheets("MAStD").Activate
letztezeile = Sheets("MAStD").UsedRange.SpecialCells(xlCellTypeLastCell).Select
Cells(Selection.Row, 1).Offset(1, 0).Select
With frm
ActiveCell.Value = .TB_MAStD_Personalnummer.Value
ActiveCell.Offset(0, 1).Value = .TB_MAStD_Nachname.Value
ActiveCell.Offset(0, 2).Value = .TB_MAStD_Vorname.Value
ActiveCell.Offset(0, 3).Value = .TB_MAStD_Nachname.Value & ", " & .TB_MAStD_Vorname.Value
'ActiveCell.Offset(0, 4).Value = "aktiv"
ActiveCell.Offset(0, 5).Value = .TB_MAStD_Einstellungsdatum.Value
'ActiveCell.Offset(0, 6).Value = Enddatum
ActiveCell.Offset(0, 7).Value = .TB_MAStD_Geburtsdatum.Value
ActiveCell.Offset(0, 8).Value = .TB_MAStD_Geburtsname.Value
ActiveCell.Offset(0, 9).Value = .TB_MAStD_Geburtsort.Value
ActiveCell.Offset(0, 10).Value = .TB_MAStD_Personalnummer.Value
ActiveCell.Offset(0, 11).Value = .TB_MaStD_QualiKurz.Value
ActiveCell.Offset(0, 12).Value = .TB_MAStD_QualiLang.Value
ActiveCell.Offset(0, 13).Value = .TB_MAStD_Berufsbezeichnung.Value
ActiveCell.Offset(0, 14).Value = .TB_MAStD_AbschlJahr.Value
'ActiveCell.Offset(0, 15).Value = .TB_MAStD_Freitext.Value
ActiveCell.Offset(0, 16).Value = Worksheets("User").Range("G1").Value & " - " & _
Format(Date, "DD.MM.YYYY (DDDD)") & " - " & Time & " Uhr"
End With
End Sub