Guten Tag,
Ich bin grade dabei eine Eingabemaske zu erstellen um bei neuem Personal schnellstmöglich alle Personaldaten einpflegen zu können....
Wenn ich jetzt eine Person über die Maske angelegt habe, möchte ich die eingabemaske aber auch gerne nutzen können um den Datensatz zu bearbeiten...
Gerne eine Suchfunktion oder einen ändern Buttom über dem namen.... ich habe jedoch keine idee wie ich das umsetzen kann...
kann eventuell jemand helfen?
Private Sub CheckBox13_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CheckBox26_Click()
End Sub
Private Sub CheckBox27_Click()
End Sub
Private Sub CheckBox3_Click()
End Sub
Private Sub CheckBox32_Click()
End Sub
Private Sub CheckBox37_Click()
End Sub
Private Sub CheckBox4_Click()
End Sub
Private Sub CheckBox47_Click()
End Sub
Private Sub CheckBox53_Click()
End Sub
Private Sub CheckBox58_Click()
End Sub
Private Sub CheckBox8_Click()
End Sub
Private Sub Label19_Click()
End Sub
Private Sub Label21_Click()
End Sub
Private Sub Label22_Click()
End Sub
Private Sub Label23_Click()
End Sub
Private Sub Label24_Click()
End Sub
Private Sub Label26_Click()
End Sub
Private Sub Label31_Click()
End Sub
Private Sub Label39_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub Button_Chancel_Click()
'Eingabefenster schließen
Unload PersonenEingabe
End Sub
Private Sub Button_Take_Click()
'Leer Prüfung
If Nachname.Value = "" Or Dienstgrad.Value = "" Or Zug.Value = "" Then
MsgBox "Nachname, Dienstgrad und Zug sind Pflichtfelder!"
Exit Sub
End If
'Neue Spalte formatiert hinzufügen
Sheets("Übersicht Kompanie").Select
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ColumnWidth = 15
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("D3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'Eingabe Übernehmen
Dim las As Integer
last = ActiveSheet.Cells(1, Columns.Count).End(xlToRight).Column + 1
ActiveSheet.Cells(2, 4).Value = Nachname.Value 'x
ActiveSheet.Cells(3, 4).Value = Dienstgrad.Value 'x
ActiveSheet.Cells(4, 4).Value = Zug.Value 'x
'Dienstfahrerlaubnis
ActiveSheet.Cells(5, 4).Value = TextBox1.Value 'x
ActiveSheet.Cells(6, 4).Value = TextBox2.Value 'x
ActiveSheet.Cells(7, 4).Value = TextBox3.Value 'x
ActiveSheet.Cells(8, 4).Value = TextBox4.Value 'x
ActiveSheet.Cells(9, 4).Value = TextBox5.Value 'x
ActiveSheet.Cells(10, 4).Value = TextBox6.Value 'x
ActiveSheet.Cells(11, 4).Value = TextBox7.Value 'x
ActiveSheet.Cells(12, 4).Value = TextBox9.Value 'x
'FSP
ActiveSheet.Cells(13, 4).Value = TextBox10.Value
ActiveSheet.Cells(14, 4).Value = TextBox11.Value
'Lasi
ActiveSheet.Cells(15, 4).Value = TextBox12.Value
ActiveSheet.Cells(16, 4).Value = TextBox13.Value
'Impfen
ActiveSheet.Cells(17, 4).Value = TextBox16.Value 'x
ActiveSheet.Cells(18, 4).Value = TextBox19.Value 'x
ActiveSheet.Cells(19, 4).Value = TextBox20.Value 'x
ActiveSheet.Cells(20, 4).Value = TextBox21.Value 'x
ActiveSheet.Cells(21, 4).Value = TextBox22.Value 'x
ActiveSheet.Cells(22, 4).Value = TextBox63.Value 'x
ActiveSheet.Cells(23, 4).Value = TextBox66.Value 'x
ActiveSheet.Cells(24, 4).Value = TextBox65.Value 'x
ActiveSheet.Cells(25, 4).Value = TextBox64.Value 'x
ActiveSheet.Cells(26, 4).Value = TextBox67.Value 'x
ActiveSheet.Cells(27, 4).Value = TextBox68.Value 'x
ActiveSheet.Cells(28, 4).Value = TextBox69.Value 'x
ActiveSheet.Cells(29, 4).Value = TextBox70.Value 'x
'KEO
ActiveSheet.Cells(30, 4).Value = TextBox14.Value 'x
ActiveSheet.Cells(31, 4).Value = TextBox23.Value 'x
ActiveSheet.Cells(32, 4).Value = TextBox24.Value 'x
ActiveSheet.Cells(33, 4).Value = TextBox25.Value 'x
ActiveSheet.Cells(34, 4).Value = TextBox26.Value 'x
'Pers1
ActiveSheet.Cells(157, 4).Value = TextBox27.Value 'x
ActiveSheet.Cells(158, 4).Value = TextBox28.Value 'x
ActiveSheet.Cells(159, 4).Value = TextBox31.Value 'x
'MBF
ActiveSheet.Cells(35, 4).Value = TextBox49.Value 'x
ActiveSheet.Cells(36, 4).Value = TextBox50.Value 'x
ActiveSheet.Cells(37, 4).Value = TextBox51.Value 'x
ActiveSheet.Cells(38, 4).Value = TextBox52.Value 'x
ActiveSheet.Cells(39, 4).Value = TextBox53.Value 'x
ActiveSheet.Cells(40, 4).Value = TextBox54.Value 'x
ActiveSheet.Cells(41, 4).Value = TextBox55.Value 'x
'S2
ActiveSheet.Cells(42, 4).Value = TextBox29.Value 'x
ActiveSheet.Cells(43, 4).Value = TextBox30.Value 'x
'Pers
ActiveSheet.Cells(44, 4).Value = TextBox33.Value 'x
ActiveSheet.Cells(45, 4).Value = TextBox34.Value 'x
ActiveSheet.Cells(46, 4).Value = TextBox35.Value 'x
ActiveSheet.Cells(47, 4).Value = TextBox36.Value 'x
ActiveSheet.Cells(48, 4).Value = TextBox37.Value 'x
ActiveSheet.Cells(49, 4).Value = TextBox38.Value 'x
ActiveSheet.Cells(50, 4).Value = TextBox39.Value 'x
ActiveSheet.Cells(51, 4).Value = TextBox40.Value 'x
ActiveSheet.Cells(52, 4).Value = TextBox41.Value 'x
ActiveSheet.Cells(53, 4).Value = TextBox42.Value 'x
ActiveSheet.Cells(54, 4).Value = TextBox43.Value 'x
ActiveSheet.Cells(55, 4).Value = TextBox44.Value 'x
ActiveSheet.Cells(56, 4).Value = TextBox45.Value 'x
ActiveSheet.Cells(57, 4).Value = TextBox46.Value 'x
ActiveSheet.Cells(58, 4).Value = TextBox47.Value 'x
ActiveSheet.Cells(59, 4).Value = TextBox48.Value 'x
'G36 Checkbox
'GP8 Checkbox
'KTF
ActiveSheet.Cells(82, 4).Value = TextBox56.Value 'x
ActiveSheet.Cells(83, 4).Value = TextBox57.Value 'x
ActiveSheet.Cells(84, 4).Value = TextBox58.Value 'x
ActiveSheet.Cells(85, 4).Value = TextBox59.Value 'x
ActiveSheet.Cells(86, 4).Value = TextBox60.Value 'x
ActiveSheet.Cells(87, 4).Value = TextBox61.Value 'x
ActiveSheet.Cells(88, 4).Value = TextBox62.Value 'x
'ABC Checkbox
'ABC Checkbox
ActiveSheet.Cells(89, 4).Value = TextBox61.Value 'x
ActiveSheet.Cells(90, 4).Value = TextBox62.Value 'x
'Checkbox abfragen
'G36
If CheckBox1.Value = True Then
ActiveSheet.Cells(60, 4).Value = "X"
End If
If CheckBox2.Value = True Then
ActiveSheet.Cells(61, 4).Value = "X"
End If
If CheckBox3.Value = True Then
ActiveSheet.Cells(62, 4).Value = "X"
End If
If CheckBox4.Value = True Then
ActiveSheet.Cells(63, 4).Value = "X"
End If
If CheckBox5.Value = True Then
ActiveSheet.Cells(64, 4).Value = "X"
End If
If CheckBox6.Value = True Then
ActiveSheet.Cells(65, 4).Value = "X"
End If
If CheckBox7.Value = True Then
ActiveSheet.Cells(66, 4).Value = "X"
End If
If CheckBox8.Value = True Then
ActiveSheet.Cells(67, 4).Value = "X"
End If
If CheckBox9.Value = True Then
ActiveSheet.Cells(68, 4).Value = "X"
End If
If CheckBox10.Value = True Then
ActiveSheet.Cells(69, 4).Value = "X"
End If
If CheckBox11.Value = True Then
ActiveSheet.Cells(70, 4).Value = "X"
End If
If CheckBox12.Value = True Then
ActiveSheet.Cells(71, 4).Value = "X"
End If
If CheckBox13.Value = True Then
ActiveSheet.Cells(72, 4).Value = "X"
End If
'P8
If CheckBox14.Value = True Then
ActiveSheet.Cells(73, 4).Value = "X"
End If
If CheckBox15.Value = True Then
ActiveSheet.Cells(74, 4).Value = "X"
End If
If CheckBox16.Value = True Then
ActiveSheet.Cells(75, 4).Value = "X"
End If
If CheckBox19.Value = True Then
ActiveSheet.Cells(76, 4).Value = "X"
End If
If CheckBox20.Value = True Then
ActiveSheet.Cells(77, 4).Value = "X"
End If
If CheckBox21.Value = True Then
ActiveSheet.Cells(78, 4).Value = "X"
End If
If CheckBox23.Value = True Then
ActiveSheet.Cells(79, 4).Value = "X"
End If
If CheckBox24.Value = True Then
ActiveSheet.Cells(80, 4).Value = "X"
End If
If CheckBox25.Value = True Then
ActiveSheet.Cells(81, 4).Value = "X"
End If
'ABC
If CheckBox27.Value = True Then
ActiveSheet.Cells(89, 4).Value = "X"
End If
If CheckBox26.Value = True Then
ActiveSheet.Cells(90, 4).Value = "X"
End If
'Einweisungen und Überprüfungen
If CheckBox28.Value = True Then
ActiveSheet.Cells(93, 4).Value = "X" 'X
End If
If CheckBox29.Value = True Then
ActiveSheet.Cells(94, 4).Value = "X" 'X
End If
If CheckBox30.Value = True Then
ActiveSheet.Cells(95, 4).Value = "X" 'X
End If
If CheckBox31.Value = True Then
ActiveSheet.Cells(96, 4).Value = "X" 'X
End If
If CheckBox32.Value = True Then
ActiveSheet.Cells(97, 4).Value = "X" 'X
End If
If CheckBox33.Value = True Then
ActiveSheet.Cells(98, 4).Value = "X" 'X
End If
If CheckBox34.Value = True Then 'X
ActiveSheet.Cells(99, 4).Value = "X"
End If
If CheckBox35.Value = True Then 'X
ActiveSheet.Cells(100, 4).Value = "X"
End If
If CheckBox36.Value = True Then 'X
ActiveSheet.Cells(101, 4).Value = "X"
End If
If CheckBox37.Value = True Then 'X
ActiveSheet.Cells(102, 4).Value = "X"
End If
If CheckBox39.Value = True Then 'X
ActiveSheet.Cells(103, 4).Value = "X"
End If
If CheckBox40.Value = True Then 'X
ActiveSheet.Cells(104, 4).Value = "X"
End If
If CheckBox41.Value = True Then 'X
ActiveSheet.Cells(105, 4).Value = "X"
End If
If CheckBox42.Value = True Then 'X
ActiveSheet.Cells(106, 4).Value = "X"
End If
If CheckBox43.Value = True Then 'X
ActiveSheet.Cells(107, 4).Value = "X"
End If
If CheckBox44.Value = True Then 'X
ActiveSheet.Cells(108, 4).Value = "X"
End If
If CheckBox45.Value = True Then 'X
ActiveSheet.Cells(109, 4).Value = "X"
End If
If CheckBox46.Value = True Then 'X
ActiveSheet.Cells(110, 4).Value = "X"
End If
If CheckBox47.Value = True Then 'X
ActiveSheet.Cells(111, 4).Value = "X"
End If
If CheckBox38.Value = True Then 'X
ActiveSheet.Cells(112, 4).Value = "X"
End If
If CheckBox70.Value = True Then 'X
ActiveSheet.Cells(113, 4).Value = "X"
End If
If CheckBox71.Value = True Then 'X
ActiveSheet.Cells(114, 4).Value = "X"
End If
If CheckBox72.Value = True Then 'X
ActiveSheet.Cells(115, 4).Value = "X"
End If
If CheckBox69.Value = True Then 'X
ActiveSheet.Cells(116, 4).Value = "X"
End If
If CheckBox49.Value = True Then 'X
ActiveSheet.Cells(117, 4).Value = "X"
End If
If CheckBox50.Value = True Then 'X
ActiveSheet.Cells(118, 4).Value = "X"
End If
If CheckBox51.Value = True Then 'X
ActiveSheet.Cells(119, 4).Value = "X"
End If
If CheckBox52.Value = True Then 'X
ActiveSheet.Cells(120, 4).Value = "X"
End If
If CheckBox53.Value = True Then 'X
ActiveSheet.Cells(121, 4).Value = "X"
End If
If CheckBox54.Value = True Then 'X
ActiveSheet.Cells(122, 4).Value = "X"
End If
If CheckBox55.Value = True Then 'X
ActiveSheet.Cells(123, 4).Value = "X"
End If
If CheckBox56.Value = True Then 'X
ActiveSheet.Cells(124, 4).Value = "X"
End If
If CheckBox57.Value = True Then 'X
ActiveSheet.Cells(125, 4).Value = "X"
End If
If CheckBox58.Value = True Then 'X
ActiveSheet.Cells(126, 4).Value = "X"
End If
If CheckBox59.Value = True Then 'X
ActiveSheet.Cells(127, 4).Value = "X"
End If
If CheckBox60.Value = True Then 'X
ActiveSheet.Cells(128, 4).Value = "X"
End If
If CheckBox61.Value = True Then 'X
ActiveSheet.Cells(129, 4).Value = "X"
End If
If CheckBox62.Value = True Then 'X
ActiveSheet.Cells(130, 4).Value = "X"
End If
If CheckBox63.Value = True Then 'X
ActiveSheet.Cells(131, 4).Value = "X"
End If
If CheckBox64.Value = True Then 'X
ActiveSheet.Cells(132, 4).Value = "X"
End If
If CheckBox65.Value = True Then 'X
ActiveSheet.Cells(133, 4).Value = "X"
End If
If CheckBox66.Value = True Then 'X
ActiveSheet.Cells(134, 4).Value = "X"
End If
If CheckBox67.Value = True Then 'X
ActiveSheet.Cells(135, 4).Value = "X"
End If
If CheckBox48.Value = True Then 'X
ActiveSheet.Cells(136, 4).Value = "X"
End If
If CheckBox73.Value = True Then 'X
ActiveSheet.Cells(137, 4).Value = "X"
End If
If CheckBox74.Value = True Then 'X
ActiveSheet.Cells(138, 4).Value = "X"
End If
If CheckBox75.Value = True Then 'X
ActiveSheet.Cells(139, 4).Value = "X"
End If
If CheckBox68.Value = True Then 'X
ActiveSheet.Cells(140, 4).Value = "X"
End If
If CheckBox76.Value = True Then
ActiveSheet.Cells(141, 4).Value = "X"
End If
If CheckBox78.Value = True Then
ActiveSheet.Cells(142, 4).Value = "X"
End If
If CheckBox79.Value = True Then
ActiveSheet.Cells(143, 4).Value = "X"
End If
If CheckBox80.Value = True Then
ActiveSheet.Cells(144, 4).Value = "X"
End If
If CheckBox81.Value = True Then
ActiveSheet.Cells(145, 4).Value = "X"
End If
If CheckBox82.Value = True Then
ActiveSheet.Cells(146, 4).Value = "X"
End If
If CheckBox83.Value = True Then
ActiveSheet.Cells(147, 4).Value = "X"
End If
If CheckBox84.Value = True Then
ActiveSheet.Cells(148, 4).Value = "X"
End If
If CheckBox85.Value = True Then
ActiveSheet.Cells(149, 4).Value = "X"
End If
If CheckBox86.Value = True Then
ActiveSheet.Cells(150, 4).Value = "X"
End If
If CheckBox87.Value = True Then
ActiveSheet.Cells(151, 4).Value = "X"
End If
If CheckBox88.Value = True Then
ActiveSheet.Cells(152, 4).Value = "X"
End If
If CheckBox89.Value = True Then
ActiveSheet.Cells(153, 4).Value = "X"
End If
If CheckBox90.Value = True Then
ActiveSheet.Cells(154, 4).Value = "X"
End If
If CheckBox91.Value = True Then
ActiveSheet.Cells(155, 4).Value = "X"
End If
If CheckBox92.Value = True Then
ActiveSheet.Cells(156, 4).Value = "X"
End If
End Sub
Private Sub UserForm_Click()
End Sub
|