Sub
Eingabeknopf()
Dim
Bearbeiter
As
String
Dim
Datum
As
Date
Dim
Rubrik
As
String
Dim
Arbeitsstunden
As
Integer
Dim
Vermerk
As
String
Dim
C
As
Range
Dim
D
As
Range
Dim
Zeile
As
Integer
Dim
Datumsspalte
As
Integer
Dim
treffer
As
Boolean
Bearbeiter = InputBox(
"Bearbeiter eingeben "
& vbNewLine &
"1. Brandstatter "
& vbNewLine &
"2. Huber"
)
Datum = InputBox(
"Datum eingeben"
& vbNewLine &
" zum Beispiel: 15.12.2016"
)
Rubrik = InputBox(
"Rubrik eingeben, siehe orange Unterpunkte!"
)
Arbeitsstunden = InputBox(
"Arbeitszeit in Stunden eingeben"
)
Vermerk = InputBox(
"Beliebigen Vermerk eingeben"
)
trreffer =
True
If
Bearbeiter =
"Brandstatter"
Then
With
Worksheets(
"Brandstatter"
).Range(Worksheets(
"Brandstatter"
).Cells(1, 1), Worksheets(
"Brandstatter"
).Cells(100, 1))
Set
C = .Find(Rubrik, LookIn:=xlValues)
If
Not
C
Is
Nothing
Then
Zeile = C.Row
Else
MsgBox
" Rubrik nicht gefunden"
treffer =
False
End
If
End
With
With
Worksheets(
"Brandstatter"
).Range(Worksheets(
"Brandstatter"
).Cells(9, 19), Worksheets(
"Brandstatter"
).Cells(9, 100))
Set
D = .Find(Datum, LookIn:=xlValues)
If
Not
D
Is
Nothing
Then
Datumsspalte = D.Column
Else
MsgBox
" Datum nicht gefunden"
treffer =
False
End
If
End
With
If
treffer =
True
Then
Cells(Zeile, Datumsspalte) = Arbeitsstunden
End
If
End
Sub