Thema: Negative Zeitdarstellung ohne Umstellung der 1904-Datumswerte

StandardModule: Modul1

Sub GetValues()
   Dim iWks As Integer, iRow As Integer, iRowT As Integer
   Dim sName As String, sSName As String
   sName = Range("F1").Value
   sSName = Range("F2").Value
   For iWks = ActiveSheet.Index + 1 To Worksheets.Count
      iRow = 1
      With Worksheets(iWks)
         Do Until IsEmpty(.Cells(iRow, 1))
            If .Cells(iRow, 1).Value = sName And .Cells(iRow, 2).Value = sSName Then
               iRowT = iRowT + 1
               Cells(iRowT, 1).Value = .Cells(iRow, 3).Value
               Cells(iRowT, 2).Value = .Name
               Cells(iRowT, 3).Value = .Cells(iRow, 1).Address(False, False)
            End If
            iRow = iRow + 1
         Loop
      End With
   Next iWks
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Zeit