Private Sub Cancel_Button_Click()
Unload Formular_Pat
End Sub
Private Sub CB_Geschlecht_Change()
End Sub
Private Sub Frame3_Click()
End Sub
Private Sub Hilfe_Diagnose_CB_Click()
Hilfe_Diagnose.Show
End Sub
Private Sub Hilfe_Koro_CB_Click()
Hilfe_Koro.Show
End Sub
Private Sub Ok_Button_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = TB_Fallnummer
If CB_Geschlecht = "Weiblich" Then Cells(last, 2).Value = "W"
If CB_Geschlecht = "Männlich" Then Cells(last, 2).Value = "M"
Cells(last, 8).Value = CStr(CB_Stressecho)
If CB_WBS = "Ja" Then Cells(last, 9).Value = "1"
If CB_WBS = "Nein" Then Cells(last, 9).Value = "0"
If CB_Beschwerden = "Ja" Then Cells(last, 10).Value = "1"
If CB_Beschwerden = "Nein" Then Cells(last, 10).Value = "0"
If CB_EKG = "Ja" Then Cells(last, 11).Value = "1"
If CB_EKG = "Nein" Then Cells(last, 11).Value = "0"
If CB_Rhythmus = "Ja" Then Cells(last, 12).Value = "1"
If CB_Rhythmus = "Nein" Then Cells(last, 12).Value = "0"
Cells(last, 15).Value = CStr(CB_KHK)
Cells(last, 14).Value = CStr(CB_CAD)
If CheckBox_Hypertonus = True Then Cells(last, 17).Value = "1"
If CheckBox_Hypertonus = False Then Cells(last, 17).Value = "0"
If CheckBox_Diabetes = True Then Cells(last, 18).Value = "1"
If CheckBox_Diabetes = False Then Cells(last, 18).Value = "0"
If CheckBox_Lipoprotein = True Then Cells(last, 19).Value = "1"
If CheckBox_Lipoprotein = False Then Cells(last, 19).Value = "0"
If CheckBox_Nikotin = True Then Cells(last, 20).Value = "1"
If CheckBox_Nikotin = False Then Cells(last, 20).Value = "0"
If CheckBox_Ex = True Then Cells(last, 21).Value = "1"
If CheckBox_Ex = False Then Cells(last, 21).Value = "0"
If CheckBox_Adipositas = True Then Cells(last, 22).Value = "1"
If CheckBox_Adipositas = False Then Cells(last, 22).Value = "0"
If CheckBox_FamAnam = True Then Cells(last, 23).Value = "1"
If CheckBox_FamAnam = False Then Cells(last, 23).Value = "0"
Cells(last, 24).Value = CStr(CB_CCS)
If CB_Rhythmus = "I" Then Cells(last, 25).Value = "1"
If CB_Rhythmus = "II" Then Cells(last, 25).Value = "2"
If CB_Rhythmus = "III" Then Cells(last, 25).Value = "3"
If CB_Rhythmus = "IV" Then Cells(last, 25).Value = "4"
If CB_Bypass = "Ja" Then Cells(last, 12).Value = "1"
If CB_Bypass = "Nein" Then Cells(last, 12).Value = "0"
Cells(last, 27).Value = TB_Bemerkung
Unload meinFormular
End Sub
Private Sub TB_Fallnummer_Enter()
TB_Fallnummer.BackColor = vbGreen
End Sub
Private Sub TB_Fallnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Fallnummer.BackColor = vbWhite
End Sub
Private Sub CB_Geschlecht_Enter()
CB_Geschlecht.BackColor = vbGreen
End Sub
Private Sub CB_Geschlecht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_Geschlecht.BackColor = vbWhite
End Sub
Private Sub CB_Stressecho_Enter()
CB_Stressecho.BackColor = vbGreen
End Sub
Private Sub CB_Stressecho_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_Stressecho.BackColor = vbWhite
End Sub
Private Sub CB_Beschwerden_Enter()
CB_Beschwerden.BackColor = vbGreen
End Sub
Private Sub CB_Beschwerden_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_Beschwerden.BackColor = vbWhite
End Sub
Private Sub CB_EKG_Enter()
CB_EKG.BackColor = vbGreen
End Sub
Private Sub CB_EKG_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_EKG.BackColor = vbWhite
End Sub
Private Sub CB_Rhythmus_Enter()
CB_Rhythmus.BackColor = vbGreen
End Sub
Private Sub CB_Rhythmus_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_Rhythmus.BackColor = vbWhite
End Sub
Private Sub CB_WBS_Enter()
CB_WBS.BackColor = vbGreen
End Sub
Private Sub CB_WBS_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_WBS.BackColor = vbWhite
End Sub
Private Sub CB_KHK_Enter()
CB_KHK.BackColor = vbGreen
End Sub
Private Sub CB_KHK_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_KHK.BackColor = vbWhite
End Sub
Private Sub CB_CAD_Enter()
CB_CAD.BackColor = vbGreen
End Sub
Private Sub CB_CAD_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_CAD.BackColor = vbWhite
End Sub
Private Sub CB_CCS_Enter()
CB_CCS.BackColor = vbGreen
End Sub
Private Sub CB_CCS_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_CCS.BackColor = vbWhite
End Sub
Private Sub CB_NYHA_Enter()
CB_NYHA.BackColor = vbGreen
End Sub
Private Sub CB_NYHA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_NYHA.BackColor = vbWhite
End Sub
Private Sub CB_Bypass_Enter()
CB_Bypass.BackColor = vbGreen
End Sub
Private Sub CB_Bypass_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CB_Bypass.BackColor = vbWhite
End Sub
Private Sub UserForm_Initialize()
With CB_Geschlecht
.AddItem "Weiblich"
.AddItem "Männlich"
End With
With CB_Stressecho
.AddItem "1"
.AddItem "2"
.AddItem "X"
End With
With CB_Beschwerden
.AddItem "Ja"
.AddItem "Nein"
End With
With CB_WBS
.AddItem "Ja"
.AddItem "Nein"
End With
With CB_EKG
.AddItem "Ja"
.AddItem "Nein"
End With
With CB_Rhythmus
.AddItem "Ja"
.AddItem "Nein"
End With
With CB_KHK
.AddItem "Ja"
.AddItem "Nein"
End With
With CB_CAD
For i = 0 To 99
.AddItem CStr(i)
Next
End With
With CB_CCS
.AddItem "0"
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
With CB_NYHA
.AddItem "I"
.AddItem "II"
.AddItem "III"
.AddItem "IV"
End With
With CB_Bypass
.AddItem "Ja"
.AddItem "Nein"
End With
End Sub