|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.12.2020 13:15:04 |
Matthias Schmidt |
|
|
 Uhrzeit in Spalte matchen |
27.12.2020 13:36:28 |
Mase |
|
|
|
27.12.2020 13:54:37 |
Gast73643 |
|
|
|
27.12.2020 13:56:03 |
Matthias Schmidt |
|
|
|
27.12.2020 14:16:06 |
Mase |
|
|
|
27.12.2020 14:57:13 |
Matthias Schmidt |
|
|
|
27.12.2020 15:58:58 |
Mase |
|
|
|
27.12.2020 17:07:55 |
Matthias Schmidt |
|
|
|
27.12.2020 18:15:33 |
Mase |
|
|
|
27.12.2020 19:02:15 |
Matthias Schmidt |
|
|
|
27.12.2020 20:22:13 |
Mase |
|
|
|
27.12.2020 20:38:27 |
Matthias Schmidt |
|
|
|
27.12.2020 20:46:18 |
Mase |
|
|
Von:
Mase |
Datum:
27.12.2020 13:36:28 |
Views:
497 |
Rating:
|
Antwort:
|
Thema:
Uhrzeit in Spalte matchen |
|
Hallo Matthias,
verwende hierfür
Application.Match()
anstelle
Application.WorksheetFunction.Match()
Vorteil:
Die erste Variante liefert Dir im Falle eines Fehlers zwar auch eine Fehlermeldung, bricht Deinen Code aber nicht ab. Du kannst also während der Laufzeit prüfen, ob ein Fehler vorhanden ist oder nicht - und diesen Zustand entsprechend handeln.
(Ausserdem brauchst Du das unhübsche On Error Resume Next nicht.
Beispiel:
Option Explicit
Sub Matthias()
'*** ausführliche Variablendeklaration
Dim vRet As Variant
Dim vHour As Variant
Dim vMinute As Variant
Dim vSecond As Variant
'*** ausführlichere DefinitionDefinition
vHour = Hour(Range("D2").Value)
vMinute = Minute(Range("D2").Value)
vSecond = Second(Range("D2").Value)
'*** Der Suchprozess
vRet = Application.Match(CDbl(TimeSerial(vHour, vMinute, vSecond)), Range("A:A"), 0)
'*** Prüfen, ob die Variantvariable vRet einen Fehler oder die Zeilennummer bereithält
If Not IsError(vRet) Then
MsgBox "Wert in Zeile " & vRet & " gefunden."
Else
MsgBox "Nüscht gefunden."
End If
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
27.12.2020 13:15:04 |
Matthias Schmidt |
|
|
Uhrzeit in Spalte matchen |
27.12.2020 13:36:28 |
Mase |
|
|
|
27.12.2020 13:54:37 |
Gast73643 |
|
|
|
27.12.2020 13:56:03 |
Matthias Schmidt |
|
|
|
27.12.2020 14:16:06 |
Mase |
|
|
|
27.12.2020 14:57:13 |
Matthias Schmidt |
|
|
|
27.12.2020 15:58:58 |
Mase |
|
|
|
27.12.2020 17:07:55 |
Matthias Schmidt |
|
|
|
27.12.2020 18:15:33 |
Mase |
|
|
|
27.12.2020 19:02:15 |
Matthias Schmidt |
|
|
|
27.12.2020 20:22:13 |
Mase |
|
|
|
27.12.2020 20:38:27 |
Matthias Schmidt |
|
|
|
27.12.2020 20:46:18 |
Mase |
|
|