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()
Unload PersonenEingabe
End
Sub
Private
Sub
Button_Take_Click()
If
Nachname.Value =
""
Or
Dienstgrad.Value =
""
Or
Zug.Value =
""
Then
MsgBox
"Nachname, Dienstgrad und Zug sind Pflichtfelder!"
Exit
Sub
End
If
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
Dim
las
As
Integer
last = ActiveSheet.Cells(1, Columns.Count).
End
(xlToRight).Column + 1
ActiveSheet.Cells(2, 4).Value = Nachname.Value
ActiveSheet.Cells(3, 4).Value = Dienstgrad.Value
ActiveSheet.Cells(4, 4).Value = Zug.Value
ActiveSheet.Cells(5, 4).Value = TextBox1.Value
ActiveSheet.Cells(6, 4).Value = TextBox2.Value
ActiveSheet.Cells(7, 4).Value = TextBox3.Value
ActiveSheet.Cells(8, 4).Value = TextBox4.Value
ActiveSheet.Cells(9, 4).Value = TextBox5.Value
ActiveSheet.Cells(10, 4).Value = TextBox6.Value
ActiveSheet.Cells(11, 4).Value = TextBox7.Value
ActiveSheet.Cells(12, 4).Value = TextBox9.Value
ActiveSheet.Cells(13, 4).Value = TextBox10.Value
ActiveSheet.Cells(14, 4).Value = TextBox11.Value
ActiveSheet.Cells(15, 4).Value = TextBox12.Value
ActiveSheet.Cells(16, 4).Value = TextBox13.Value
ActiveSheet.Cells(17, 4).Value = TextBox16.Value
ActiveSheet.Cells(18, 4).Value = TextBox19.Value
ActiveSheet.Cells(19, 4).Value = TextBox20.Value
ActiveSheet.Cells(20, 4).Value = TextBox21.Value
ActiveSheet.Cells(21, 4).Value = TextBox22.Value
ActiveSheet.Cells(22, 4).Value = TextBox63.Value
ActiveSheet.Cells(23, 4).Value = TextBox66.Value
ActiveSheet.Cells(24, 4).Value = TextBox65.Value
ActiveSheet.Cells(25, 4).Value = TextBox64.Value
ActiveSheet.Cells(26, 4).Value = TextBox67.Value
ActiveSheet.Cells(27, 4).Value = TextBox68.Value
ActiveSheet.Cells(28, 4).Value = TextBox69.Value
ActiveSheet.Cells(29, 4).Value = TextBox70.Value
ActiveSheet.Cells(30, 4).Value = TextBox14.Value
ActiveSheet.Cells(31, 4).Value = TextBox23.Value
ActiveSheet.Cells(32, 4).Value = TextBox24.Value
ActiveSheet.Cells(33, 4).Value = TextBox25.Value
ActiveSheet.Cells(34, 4).Value = TextBox26.Value
ActiveSheet.Cells(157, 4).Value = TextBox27.Value
ActiveSheet.Cells(158, 4).Value = TextBox28.Value
ActiveSheet.Cells(159, 4).Value = TextBox31.Value
ActiveSheet.Cells(35, 4).Value = TextBox49.Value
ActiveSheet.Cells(36, 4).Value = TextBox50.Value
ActiveSheet.Cells(37, 4).Value = TextBox51.Value
ActiveSheet.Cells(38, 4).Value = TextBox52.Value
ActiveSheet.Cells(39, 4).Value = TextBox53.Value
ActiveSheet.Cells(40, 4).Value = TextBox54.Value
ActiveSheet.Cells(41, 4).Value = TextBox55.Value
ActiveSheet.Cells(42, 4).Value = TextBox29.Value
ActiveSheet.Cells(43, 4).Value = TextBox30.Value
ActiveSheet.Cells(44, 4).Value = TextBox33.Value
ActiveSheet.Cells(45, 4).Value = TextBox34.Value
ActiveSheet.Cells(46, 4).Value = TextBox35.Value
ActiveSheet.Cells(47, 4).Value = TextBox36.Value
ActiveSheet.Cells(48, 4).Value = TextBox37.Value
ActiveSheet.Cells(49, 4).Value = TextBox38.Value
ActiveSheet.Cells(50, 4).Value = TextBox39.Value
ActiveSheet.Cells(51, 4).Value = TextBox40.Value
ActiveSheet.Cells(52, 4).Value = TextBox41.Value
ActiveSheet.Cells(53, 4).Value = TextBox42.Value
ActiveSheet.Cells(54, 4).Value = TextBox43.Value
ActiveSheet.Cells(55, 4).Value = TextBox44.Value
ActiveSheet.Cells(56, 4).Value = TextBox45.Value
ActiveSheet.Cells(57, 4).Value = TextBox46.Value
ActiveSheet.Cells(58, 4).Value = TextBox47.Value
ActiveSheet.Cells(59, 4).Value = TextBox48.Value
ActiveSheet.Cells(82, 4).Value = TextBox56.Value
ActiveSheet.Cells(83, 4).Value = TextBox57.Value
ActiveSheet.Cells(84, 4).Value = TextBox58.Value
ActiveSheet.Cells(85, 4).Value = TextBox59.Value
ActiveSheet.Cells(86, 4).Value = TextBox60.Value
ActiveSheet.Cells(87, 4).Value = TextBox61.Value
ActiveSheet.Cells(88, 4).Value = TextBox62.Value
ActiveSheet.Cells(89, 4).Value = TextBox61.Value
ActiveSheet.Cells(90, 4).Value = TextBox62.Value
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
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
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
If
CheckBox28.Value =
True
Then
ActiveSheet.Cells(93, 4).Value =
"X"
End
If
If
CheckBox29.Value =
True
Then
ActiveSheet.Cells(94, 4).Value =
"X"
End
If
If
CheckBox30.Value =
True
Then
ActiveSheet.Cells(95, 4).Value =
"X"
End
If
If
CheckBox31.Value =
True
Then
ActiveSheet.Cells(96, 4).Value =
"X"
End
If
If
CheckBox32.Value =
True
Then
ActiveSheet.Cells(97, 4).Value =
"X"
End
If
If
CheckBox33.Value =
True
Then
ActiveSheet.Cells(98, 4).Value =
"X"
End
If
If
CheckBox34.Value =
True
Then
ActiveSheet.Cells(99, 4).Value =
"X"
End
If
If
CheckBox35.Value =
True
Then
ActiveSheet.Cells(100, 4).Value =
"X"
End
If
If
CheckBox36.Value =
True
Then
ActiveSheet.Cells(101, 4).Value =
"X"
End
If
If
CheckBox37.Value =
True
Then
ActiveSheet.Cells(102, 4).Value =
"X"
End
If
If
CheckBox39.Value =
True
Then
ActiveSheet.Cells(103, 4).Value =
"X"
End
If
If
CheckBox40.Value =
True
Then
ActiveSheet.Cells(104, 4).Value =
"X"
End
If
If
CheckBox41.Value =
True
Then
ActiveSheet.Cells(105, 4).Value =
"X"
End
If
If
CheckBox42.Value =
True
Then
ActiveSheet.Cells(106, 4).Value =
"X"
End
If
If
CheckBox43.Value =
True
Then
ActiveSheet.Cells(107, 4).Value =
"X"
End
If
If
CheckBox44.Value =
True
Then
ActiveSheet.Cells(108, 4).Value =
"X"
End
If
If
CheckBox45.Value =
True
Then
ActiveSheet.Cells(109, 4).Value =
"X"
End
If
If
CheckBox46.Value =
True
Then
ActiveSheet.Cells(110, 4).Value =
"X"
End
If
If
CheckBox47.Value =
True
Then
ActiveSheet.Cells(111, 4).Value =
"X"
End
If
If
CheckBox38.Value =
True
Then
ActiveSheet.Cells(112, 4).Value =
"X"
End
If
If
CheckBox70.Value =
True
Then
ActiveSheet.Cells(113, 4).Value =
"X"
End
If
If
CheckBox71.Value =
True
Then
ActiveSheet.Cells(114, 4).Value =
"X"
End
If
If
CheckBox72.Value =
True
Then
ActiveSheet.Cells(115, 4).Value =
"X"
End
If
If
CheckBox69.Value =
True
Then
ActiveSheet.Cells(116, 4).Value =
"X"
End
If
If
CheckBox49.Value =
True
Then
ActiveSheet.Cells(117, 4).Value =
"X"
End
If
If
CheckBox50.Value =
True
Then
ActiveSheet.Cells(118, 4).Value =
"X"
End
If
If
CheckBox51.Value =
True
Then
ActiveSheet.Cells(119, 4).Value =
"X"
End
If
If
CheckBox52.Value =
True
Then
ActiveSheet.Cells(120, 4).Value =
"X"
End
If
If
CheckBox53.Value =
True
Then
ActiveSheet.Cells(121, 4).Value =
"X"
End
If
If
CheckBox54.Value =
True
Then
ActiveSheet.Cells(122, 4).Value =
"X"
End
If
If
CheckBox55.Value =
True
Then
ActiveSheet.Cells(123, 4).Value =
"X"
End
If
If
CheckBox56.Value =
True
Then
ActiveSheet.Cells(124, 4).Value =
"X"
End
If
If
CheckBox57.Value =
True
Then
ActiveSheet.Cells(125, 4).Value =
"X"
End
If
If
CheckBox58.Value =
True
Then
ActiveSheet.Cells(126, 4).Value =
"X"
End
If
If
CheckBox59.Value =
True
Then
ActiveSheet.Cells(127, 4).Value =
"X"
End
If
If
CheckBox60.Value =
True
Then
ActiveSheet.Cells(128, 4).Value =
"X"
End
If
If
CheckBox61.Value =
True
Then
ActiveSheet.Cells(129, 4).Value =
"X"
End
If
If
CheckBox62.Value =
True
Then
ActiveSheet.Cells(130, 4).Value =
"X"
End
If
If
CheckBox63.Value =
True
Then
ActiveSheet.Cells(131, 4).Value =
"X"
End
If
If
CheckBox64.Value =
True
Then
ActiveSheet.Cells(132, 4).Value =
"X"
End
If
If
CheckBox65.Value =
True
Then
ActiveSheet.Cells(133, 4).Value =
"X"
End
If
If
CheckBox66.Value =
True
Then
ActiveSheet.Cells(134, 4).Value =
"X"
End
If
If
CheckBox67.Value =
True
Then
ActiveSheet.Cells(135, 4).Value =
"X"
End
If
If
CheckBox48.Value =
True
Then
ActiveSheet.Cells(136, 4).Value =
"X"
End
If
If
CheckBox73.Value =
True
Then
ActiveSheet.Cells(137, 4).Value =
"X"
End
If
If
CheckBox74.Value =
True
Then
ActiveSheet.Cells(138, 4).Value =
"X"
End
If
If
CheckBox75.Value =
True
Then
ActiveSheet.Cells(139, 4).Value =
"X"
End
If
If
CheckBox68.Value =
True
Then
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