Hallo Detlev,
deine Hilfe war erfolgreich. Ich bin happy, es funktioniert alles wie gewünscht.
Die Prozedur für dein Eintrag der So-Zeit sieht jetzt so aus:
Sub SoZeit()
Spalte = 3 << 3 für C
Suche = "_Uhr+1h"
Wert = ""
For Zeile = 3 To 6 ' << Beginn und Ende Zeilen
Wert = Cells(Zeile, Spalte).Value
If InStr(1, Wert, Suche) > 0 Then ' << _Uhr suchen
Wert = Mid(Wert, 1, InStr(1, Wert, Suche) - 1) & Mid(Wert, InStr(1, Wert, Suche) + 7) ' 7=Anzahl Zeichen
Cells(Zeile, Spalte).Value = Wert
End If
Next
For Zeile = 3 To 6
If Cells(Zeile, Spalte - 1) = "So" Then
Cells(Zeile, Spalte).Value = Cells(Zeile, Spalte) & "_Uhr+1h"
Cells(7, 3).Value = Cells(Zeile, Spalte - 2)
End If
Next
End Sub
Dafür also nochmal vielen Dank Herbert
|