Makro ausbauen
01.04.2009 08:48:02
Ruedi
mir wurde vor einiger Zeit dieses Makro hier geschrieben:
Sub Makro2()
Dim x As Integer, wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "Monat*" Then
With wks
For i = 1 To 1000
If .Cells(i, 1).Font.Size = 14 Then .Cells(i, 12) = .Cells(i, 1)
Next i
End With
End If
Next wks
End Sub
Wie muss ich das Makro ausbauen, dass zuerst in allen Monat* bei der Spalte 12 der Inhalt gelöscht wird und danach das Makro so wie oben abläuft?
Also zuerst Spalte 12 "reinigen" und danach Makro ausführen.
Vielen Dank für eure Hilfe!
Gruss Ruedi