Hallo zusammen,
Ich habe mich das ganze WE mit diesem Problem rumgeschlagen und leider keine Lösung gefunden (die aber wahrscheinlich ziemlich einfach ist), und würde mich sehr über Hilfe freuen!
Die Situation ist Folgende:
In Tabellenblatt 1 wird in einer Tabelle eine Startzeit und eine Stopzeit festgehalten.
in Tabellenblatt 3 soll dieser Zeitraum dargelegt werden wobei 1 Zeile = 1 Sekunde darstellt. Das ist auch schon in Spalte B für den infragekommenden Zeitraum abgetragen. Jetzt muss ich die Zelle mit dem Startzeitpunkt (und Stopzeitpunkt) auf Tabellenblatt 2 finden, aber das funktioniert einfach nicht, obwohl ich die Zeit (in Tabellenblatt 2) schon in Text umgewandelt habe, der identisch ist mit der Zeitangabe die als Text in der Variablen liegt (habs per messagebox überprüft). Das war deswegen notwendig, weil die TIME -Funktion von VBA trotz vermeitlich gleicherzeit nicht den gleichen Wert (als dezimalzal) produziert.
Hier der Code. Ein Teil von dem Text sind verschiedene Wege, die ich in Foren gefundne und ausprobiert habe
Dim TimeMarker1 As String
Dim TimeMarker2 As String
Dim PH1 As Long
TimeMarker1 = ActiveCell.Offset(0, -5).Text
TimeMarker2 = ActiveCell.Text
PH1 = ActiveCell.Offset(0, 1).Row
Worksheets("Tabelle3").Activate
' Dim l As Long
' l = Application.WorksheetFunction.Match(TimeMarker1, Range("B1:B100"), 0)
' .Activate
'Start going down column A to see if you find the total
' Dim loopBool As Boolean
'loopBool = True
' Worksheets("Project Total").Range("A1").Activate
'Do While loopBool = True
' If ActiveCell.Value = "TOTAL" Then
' loop = false
' Else
' ActiveCell.Offset(1, 0).Activate
' End If
' Loop
'Dim Startmaker As Range
'Dim CopyPoint1 As Range
'With Sheets("Tabelle3")
' Set Startmarker = .Cells.Find(what:=TimeMarker1)
' Set CopyPoint1 = Startmarker.Offset(0, 1)
'End With
Dim Startmarker As Range
For Each Startmaker In ActiveSheet.Range("B4:B61296").Cells
If Startmaker.Text = TimeMarker1 Then
Startmarker.Activate
Exit For
End If
Next
ActiveCell.Offset(0, 1).FormulaLocal = "=Tabelle1!C" & PHI
' jetzt muss ich noch den TimeMarker2 in der selben spalte (B) finden, gleiches Problem wie oben.
' Dann soll die Formel 1 (siehe oben) für alle Zellen in Spalte B kopiert werden, die zwischen TimeMarker1 und TimeMarker2 liegen.
End Sub
Vielen Dank für Hilfe!
|