Private
Sub
CommandButton1_Click()
Dim
raMonat
As
Range, raJahr
As
Range
Dim
loSpalte
As
Long
, loZeile
As
Long
If
Me
.ComboBox1 <>
""
Then
If
Me
.TextBox1 <>
""
Then
If
IsNumeric(
Me
.TextBox1)
Then
Set
raMonat = Rows(2).Find(what:=
Me
.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If
Not
raMonat
Is
Nothing
Then
loSpalte = raMonat.Column
Else
MsgBox
"Fehler: Der Monat "
&
Me
.ComboBox1 &
" wurde nicht gefunden."
Exit
Sub
End
If
Set
raJahr = Columns(
"F"
).Find(what:=Year(
Date
), LookIn:=xlValues, lookat:=xlWhole)
If
Not
raJahr
Is
Nothing
Then
loZeile = raJahr.Row
Else
MsgBox
"Fehler: Das Jahr "
& Year(
Date
) &
" wurde nicht gefunden."
Exit
Sub
End
If
Cells(loZeile, loSpalte) =
CDbl
(
Me
.TextBox1)
Else
MsgBox
"Fehler: Der eingetragene Wert ist nicht numerisch."
Exit
Sub
End
If
End
If
Else
MsgBox
"Fehler: Bitte einen Monat auswählen."
End
If
Set
raMonat =
Nothing
:
Set
raJahr =
Nothing
End
Sub