ich habe eine Excelsheet und in Spalte B möchte ich nach (bzw. unter) der Uhrzeit 23:45:00
eine neue Spalte einfügen. Wie kann ich aber die Zeit 23:45:00 abrufen?
Hat jeamand eine Idee?
Danke
Gruß
Franz
Sub ZelleeinfügenÜberschrift() 'Unter die Zeile 23:45:00 wird eine neue Zeile eingefügt mit _
Tagesübersichtn'
Dim zeile As Long
Dim Zelle As Range
For zeile = 3106 To 100 Step -1
If Cells(zeile, 2).Value = "23:45:00" Then
Rows(zeile + 1).Insert shift:=xlDown
Cells(zeile + 1, 1).Value = "Datum"
Cells(zeile + 1, 2).Value = "Zeit"
End If
Next
End Sub