AW: Daten per VBA umformatieren
28.08.2017 12:32:19
Piet
Hallo snewi
ich freue mich das dir die Arbeit in Zusammenarbeit mit Nepumuk gefaellt. Wie ich in der Beispiel Datei sehe hast du den Fehler mit der Zeit schon selbst korrigiert. Danke! Der Fehler sollte damit behoben sein. Anbei ein überarbeiteter Code.
Die ID Nr. habe ich herausgenommen. Dafür übernehme ich an erster Stelle: - If Len(AC)
Der Fehler im Zeilenzähler basierte auf der Tatsache das ich dieses Datum vorher übersprungen habe.
Bitte schau dir das neue Ergebnis in Ruhe an. Würde mich freuen wenn es jetzt bso perfekt ist.
mfg Piet
Option Explicit '26.8.2017 Piet Herber Forum
Dim Start As String, Ende As String
Dim SZeit As String, EZeit As String
Const NMT = "15:00" 'nachmittag 15:00 Uhr
'Makro zum Datum aufschlüsseln !!
'** versagt beim diesem Datum:
' 13.02.2017 - 11.12.2017, 15:30 - 17:00 Uhr
'SZeit = Mid(Trim(AC), InStr(AC, ",") + 1, 5)
'überarbeitet 27.8.:
's. If Len(AC) 12 Then
'Cells(z, 4) = z - 1 '** ID Nummer nicht auflisten!! 28.8.17
'z = z + 1 'next Zeile
'End If
Next AC
Exit Sub 'Programm Ende, der Rest war Prüfprogramm für Zeitfehler !!
'Prüfung auf 30 Minuten Unstimmigkeit
For Each AC In Range("H2:H" & lz)
If AC.Value = Empty Or Minute(AC) = 0 Then
ElseIf Minute(AC) 30 Then
AC.Select
ok = MsgBox(AC.Value & " Minute 30, Prüfen", vbOKCancel)
If ok = vbCancel Then Exit Sub
End If
Next AC
For Each AC In Range("F2:F" & lz)
If AC.Value = Empty Or Minute(AC) = 0 Then
ElseIf Minute(AC) 30 Then
AC.Select
ok = MsgBox(AC.Value & " Minute 30, Prüfen", vbOKCancel)
If ok = vbCancel Then Exit Sub
End If
Next AC
End Sub