Thema Datum  Von Nutzer Rating
Antwort
21.04.2016 23:09:03 Purps, Hans-Jürgen
NotSolved
23.04.2016 15:08:10 Gast83035
NotSolved
23.04.2016 15:38:11 Gast87766
NotSolved
Blau Werte eingeben mit VBA in bestimmte Zellen
 23.04.2016 16:47:50 Gast2288
NotSolved
30.04.2016 14:30:25 Jürgen
NotSolved

Ansicht des Beitrags:
Von:
Gast2288		 Datum:
23.04.2016 16:47:50		 Views:
795		 Rating:
     
Antwort:
  Ja
Thema:
Werte eingeben mit VBA in bestimmte Zellen

Hallo Jürgen!

Probiere es dann mal so. Der Code ist für die Anfangszeit.

Sub anfang()
Dim datumzelle As Object

Set datumzelle = ThisWorkbook.Worksheets("Jahr").Columns().Find(Date)
If datumzelle Is Nothing Then
    MsgBox "Das Datum wurde nicht gefunden!"
Else
    datumzelle.Offset(0, 4) = Format(Time, "h:mm;@")
End If
End Sub

Bei der Endzeit einfach im Else beim Offset die 4 zur 5 ändern. Den Vergleich habe ich drin, falls dein Datum doch nicht gefunden wird. Ohne gäbe es sonst eine Fehlermeldung. Die Zeit habe ich umformatiert. Könntest du auch über die Zellformatierung machen, dann nur einfach Time zuweisen.

VG

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
21.04.2016 23:09:03 Purps, Hans-Jürgen
NotSolved
23.04.2016 15:08:10 Gast83035
NotSolved
23.04.2016 15:38:11 Gast87766
NotSolved
Blau Werte eingeben mit VBA in bestimmte Zellen
 23.04.2016 16:47:50 Gast2288
NotSolved
30.04.2016 14:30:25 Jürgen
NotSolved