ich habe mal wieder eine Frage:
ich möchte das Datum 2006/01 ersetzen in 2007/01 und danch für alle Monate.
Wie bekomme ich das hin?
Danke
Matthias
Sub Datum_aendern()
Dim iSpalte As Integer
Dim sDatum As String
For iSpalte = 1 To 12
If Left(Cells(1, iSpalte).Value, 4) = "2006" Then
sDatum = "2007" & Mid(Cells(1, iSpalte), 5)
Cells(1, iSpalte).Value = sDatum
End If
Next iSpalte
End Sub