Abstandszeile einfügen
29.09.2004 12:16:36
fabienne
Kann mir jemand sagen wie ich zusätzlich vor "name = " eine Zeile mit ---------------------- einfügen kann? Dankeschön!
Sub Abstandszeile_einfügen()
Dim k As Integer
For k = 1 To Range("A65536").End(xlUp).Row
If Range("A" & k).Value = "Other data = " Or Range("A" & k).Value = "name = " Then
Rows(k + 1).Insert
Range(Cells(k + 1, 1).Address).Select
ActiveCell.FormulaR1C1 = "#---------------------------------------------------------------------------------"
End If
Next k
Range("A1").Select
ActiveCell.FormulaR1C1 = "#---------------------------------------------------------------------------------"
End Sub
Anzeige