Einfügen mit Left
27.04.2003 17:04:09
Wolfgang
habe mir folgenden Code gestrickt um in A1:A12 nur die Jahreszahl zu ändern.
Sub Test()
Dim intCounter As Integer, DaDat As String
For intCounter = 1 To 12
DaDat = Sheets("Tabelle1").Left(Range("A" & intCounter), 6)
Sheets("Tablle1").Range("A" & intCounter) = DaDat & Year(Date)
Next intCounter
End Sub
Gebe ich diesen Code ohne das Tabellenblatt an funzt er, so aber nicht! Was mache ich falsch, bzw. gibt es eine bessere Lösung?
Danke im voraus.
Gruß
Wolfgang