Schönen Abend
Habe ein kleines Problem
Will mittels Inputboxen Werte eingeben und mittels Makro diese dann in einer bestimmten Zelle eingeben
Der Inputteil lässt sich ausführen nur dann geschieht entweder:
Laufzeitfehler
oder wechselt auf die Programmieroberfläche mit einem Box mít einen roten X und nur "400"
Code lautet:
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
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")
If Bearbeiter = "Brandstatter" Then
With Worksheets("Brandstatter").Range(Cells(1, 1), Cells(100, 1))
Set C = .Find(Rubrik, LookIn:=xlValues)
If Not C Is Nothing Then
Zeile = C.Row
Else
MsgBox " Rubrik nicht gefunden"
End If
End With
With Worksheets("Brandstatter").Range(Cells(9, 19), Cells(9, 100))
Set D = .Find(Datum, LookIn:=xlValues)
If Not D Is Nothing Then
Datumsspalte = D.Column
Else
MsgBox " Datum nicht gefunden"
End If
End With
Cells(Zeile, Datumsspalte) = Arbeitsstunden
End If
End Sub
|