Private
Sub
KohlenwertX_Change()
Dim
Tabellenname
As
String
Tabellenname = Year(
Date
)
If
Date
< (
"30.06."
& Year(
Date
))
Then
Worksheets(Tabellenname).Cells(1 + ((AuswahlLM.ListIndex + 1) * 4), 3) = KohlenwertX.Value
Else
Worksheets(Tabellenname).Cells(1 + ((AuswahlLM.ListIndex + 1) * 4), 6) = KohlenwertX.Value
End
If
If
Date
< (
"30.06."
& Year(
Date
))
Then
Worksheets(Tabellenname).Cells(((AuswahlLM.ListIndex + 1) * 4), 3) =
Date
Else
Worksheets(Tabellenname).Cells(((AuswahlLM.ListIndex + 1) * 4), 6) =
Date
End
If
End
Sub