Makro - Formel eintragen
Walterk
mit dem folgenden Codeteil wird in Zeile 1 eine Formel eingetragen, außer der Inhalt der Zeile 2 ist bei den Ausnahmen angeführt. Die Formel wird in eine extra eingefügte Zeile geschrieben.
Und das sollte geändert werden: Es soll keine extra Zeile eingefügt werden. Ich weiß nicht, was ich ändern muss, damit der Code funktioniert ohne das eine extra Zeile eingefügt wird.
Hier ist der Codeteil:
Dim rngListe As Range, rngFormel As Range, rngCell As Range
Const cstrAusnahmen As String = "DIENSTNEHMER,DATUM,BEZEICHNUNG,LA"
Set rngListe = Cells(1, 1).CurrentRegion
Set rngFormel = Cells(Rows.Count, Columns.Count)
For Each rngCell In rngListe.Rows(1).Cells
If InStr(1, cstrAusnahmen, rngCell.Value) = 0 Then Set rngFormel = Union(rngFormel, _
rngCell)
Next
If rngFormel.Count > 1 Then
Set rngFormel = Intersect(rngFormel, Rows(1))
Rows(1).Insert
For Each rngCell In rngFormel
rngCell.Offset(-1).FormulaLocal = "=TEILERGEBNIS(9;" & rngCell.Offset(1).Resize( _
rngListe.Rows.Count - 1).Address(False, False, xlA1) & ")"
Next
End If
Servus, Walter
Anzeige