Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 17:35:35 Gast86515
NotSolved
06.12.2016 20:47:00 Gast29545
NotSolved
07.12.2016 07:24:01 GraFri
NotSolved
07.12.2016 07:53:19 GraFri
NotSolved
Rot Laufzeitfehler und Fehler "400"
07.12.2016 12:06:00 Gast87231
NotSolved
07.12.2016 12:06:12 Gast76343
NotSolved
13.12.2016 10:46:18 jcem
NotSolved
13.12.2016 16:04:35 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast87231
Datum:
07.12.2016 12:06:00
Views:
756
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler und Fehler "400"

Hallo! Um beide Ideen der Vorschreiben zu vereinen habe ich mal deinen Code abgeändert. So könnte er laufen (ungetestet). VG

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 17:35:35 Gast86515
NotSolved
06.12.2016 20:47:00 Gast29545
NotSolved
07.12.2016 07:24:01 GraFri
NotSolved
07.12.2016 07:53:19 GraFri
NotSolved
Rot Laufzeitfehler und Fehler "400"
07.12.2016 12:06:00 Gast87231
NotSolved
07.12.2016 12:06:12 Gast76343
NotSolved
13.12.2016 10:46:18 jcem
NotSolved
13.12.2016 16:04:35 Mackie
NotSolved