Formel zusammenziehen
24.10.2002 21:09:19
Ralf
habe mal eine wahrscheinlich typische VBA-Neuling-Frage:
Wie kann ich die 12 Range- Anweisungen in diesem Makro zusammenziehen:
Sub ZellenLöscher()
Dim i As Integer, letzteZelle
letzteZelle = Range("A34").End(xlUp).Row
For i = 1 To letzteZelle
If Range("A" & i) = "a" Then
Range("B" & i) = " "
Range("D" & i) = " "
Range("E" & i) = " "
Range("F" & i) = " "
Range("G" & i) = " "
Range("H" & i) = " "
Range("I" & i) = " "
Range("J" & i) = " "
Range("K" & i) = " "
Range("L" & i) = " "
Range("M" & i) = " "
Range("N" & i) = " "
End If
Next
End Sub
Vielen Dank im voraus,
Ralf