Buchstaben löschen
21.02.2006 07:30:57
Frank
Hab eine Frage.
Mit angeführten makro lösche ich alle Buchstaben aus Spalte a Zeile 14.
kann ich das makro so umschreiben das alle Buchstaben in der zeile 14 von spalte a bis d gelöscht werden?
Sub BuchstabenLöschen()
Dim Inhalt$
sp = 1 'Spalte A
z1 = 14 'Erste Zeile
Zn = 14 'Letzte Zeile
For i = z1 To Zn
Inhalt = Cells(i, sp)
For j = 1 To Len(Inhalt)
II = Asc(Mid(Inhalt, j, 1))
If II >= 65 And II <= 255 Then ' Buchstaben raus
Mid(Inhalt, j, 1) = " "
End If
Next
Cells(i, sp) = Inhalt
Next
End Sub
Danke