Thema Datum  Von Nutzer Rating
Antwort
16.10.2014 09:32:03 Nico
NotSolved
17.10.2014 15:42:16 Gast84311
NotSolved
Rot Bug .Find Time in Column
 18.10.2014 11:27:50 Trägheit
NotSolved
20.10.2014 09:29:45 Nico
NotSolved

Ansicht des Beitrags:
Von:
Trägheit		 Datum:
18.10.2014 11:27:50		 Views:
774		 Rating:
     
Antwort:
  Ja
Thema:
Bug .Find Time in Column

Höre bitte nicht auf das was Gast84311 schreibt. Diese Vorgehensweise wird dir in internationaler Hinsicht nur Probleme bereiten - weil sie eben nicht korrekt ist.

 

Mach es so:

Option Explicit

Sub finde_time()
  
  Dim rngStart  As Excel.Range
  Dim rngEnd    As Excel.Range
  Dim dtmStart  As Date
  Dim dtmEnd    As Date
  
  'Input Example
  dtmStart = TimeSerial(14, 30, 0)
  dtmEnd = TimeSerial(15, 30, 0)
  
  With Range("A:A")
    Set rngStart = .Find(dtmStart, LookIn:=xlFormulas, LookAt:=xlWhole)
    Set rngEnd = .Find(dtmEnd, LookIn:=xlFormulas, LookAt:=xlWhole)
  End With
  
  If rngStart Is Nothing Then
    Debug.Print "start time: <not found>"
  Else
    Debug.Print "start time: ", rngStart.Address
  End If
  
  If rngEnd Is Nothing Then
    Debug.Print "end time: <not found>"
  Else
    Debug.Print "end time: ", rngEnd.Address
  End If
  
End Sub

 

Gruß

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
16.10.2014 09:32:03 Nico
NotSolved
17.10.2014 15:42:16 Gast84311
NotSolved
Rot Bug .Find Time in Column
 18.10.2014 11:27:50 Trägheit
NotSolved
20.10.2014 09:29:45 Nico
NotSolved