Gruppe
Allgemein
Problem
Alle "u" bis zum aktuellen Datum sollen in "U" umgewandelt werden.
StandardModule: basMain
Sub UCaseU()
Dim iRow As Integer, iRowL As Integer, iCol As Integer
iCol = 1
Do While Cells(1, iCol).Value <= Date
iRowL = Cells(Rows.Count, iCol).End(xlUp).Row
For iRow = 2 To iRowL
If Cells(iRow, iCol).Value = "u" Then
Cells(iRow, iCol).Value = "U"
End If
Next iRow
iCol = iCol + 1
Loop
End Sub