Dank eurer Hilfe habe ich ein schönes Makro hin bekommen.
Nun hätte ich noch gerne folgende Formel in das Makro eingebaut:
=C3-(F$1-GANZZAHL(F$1))
Die Formel steht in F3:F1000
Auch wenn sich die Startzeit in F1 noch ändert müßten sich die Nettozeiten in F3:F1000 auch ändern.
Formatierung F1 ist Uhrzeit
Faortmierung C3:C1000 und F3:F1000 ist hh:mm:ss,000
Das Makro:
Option Explicit
Dim DateiPos As Long
Dim zeile As Integer
Dim datei As String
Dim z As Double
Dim strFile As String
Dim lngPos As Long, lngR As Long
Dim Startzeit As Date
Sub AusTextDatei()
strFile = Application.GetOpenFilename("TagRegEx.dat,*.dat")
lngR = 3
With ActiveSheet
.Cells(1, 1) = 1
.Range(.Cells(3, 3), .Cells(.Rows.Count, 3)).NumberFormat = "hh:mm:ss.000"
.Range(.Cells(3, 4), .Cells(.Rows.Count, 4)).NumberFormat = "@"
End With
Call LeseAbPos
End Sub
Sub LeseAbPos()
Dim intFile As Integer
Dim strLine As String, varLine
intFile = FreeFile
With ActiveSheet
If .Cells(1, 1) 1 Then Exit Sub
Open strFile For Input As #intFile
Seek #intFile, lngPos + 1
Do Until lngPos >= LOF(intFile)
Line Input #intFile, strLine
varLine = Split(strLine, ";")
.Cells(lngR, 4) = Trim(varLine(1))
varLine = Split(varLine(0))
.Cells(lngR, 1) = lngR - 2
.Cells(lngR, 2) = CDate(varLine(0))
.Cells(lngR, 3) = varLine(1)
lngPos = lngPos + Len(strLine) + 2
lngR = lngR + 1
Loop
Close #intFile
Application.OnTime Now + TimeValue("00:00:01"), "LeseAbPos"
End With
End Sub
Public Sub StopEinlesen18072008()
ActiveSheet.Cells(1, 1) = 0
End Sub
Sub start18072008()
With Worksheets("rfid")
Startzeit = Now
.Range("F1").Value = Startzeit
End With
End Sub
Könnt ihr mir noch mal helfen?
Vielen Dank für eure Hilfe!
Gruß
Rolf