Thema Datum  Von Nutzer Rating
Antwort
12.06.2018 14:16:05 Marius
NotSolved
Blau VBA Code für Datum
 12.06.2018 16:35:06 Gast54608
NotSolved
13.06.2018 08:58:46 Marius
NotSolved
14.06.2018 11:11:31 Gast51558
NotSolved
14.06.2018 11:16:47 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Gast54608		 Datum:
12.06.2018 16:35:06		 Views:
548		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code für Datum		 
Sub Test()
Dim rngTo As Range

   On Error GoTo NotFound
   With ActiveSheet
      Set rngTo = .Cells.Find(What:=CDate(Date - 1), After:=.Cells(1), LookIn:=xlValues).EntireRow
      rngTo.Cells(4) = "UserForm2.Bestand.Value"   'der Wert eben
      rngTo.Cells(12) = "UserForm2.Eingang.Value"  'ditto
   End With
   On Error GoTo 0
NotFound:
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
12.06.2018 14:16:05 Marius
NotSolved
Blau VBA Code für Datum
 12.06.2018 16:35:06 Gast54608
NotSolved
13.06.2018 08:58:46 Marius
NotSolved
14.06.2018 11:11:31 Gast51558
NotSolved
14.06.2018 11:16:47 RPP63
NotSolved