Zeile einfügen

• Zeile einfügen von Jörg vom 11.11.2003 09:30:21
  • AW: Zeile einfügen - von Jessica am 11.11.2003 10:03:05

Betrifft: Zeile einfügen
von: Jörg
Geschrieben am: 11.11.2003 09:30:21
Servus,

Ich habe ein kleines Pronlem, ich bräuchte ein Makro, was zwei Zellen einfügt, wenn der Wert der Zelle B kleiner 2 wird soll eine Zelle in der Spalte A und in der Spalte B eingefügt werden (Bereich A5:B105). In der eingefügten Zelle A soll "sonstige" und in der Zelle B soll die Funktion "summe" stehen mit dem Bereich nach unten bis zum Ende der Tabelle(B100).

Danke schon mal im Voraus

Betrifft: AW: Zeile einfügen
von: Jessica
Geschrieben am: 11.11.2003 10:03:05
Hallo,

so funktionierts auf jeden Fall mit dem einfügen. Das Problem ist, dass sich damit n erweitert. Außerdem weiß ich nicht, ob du die Zeile auch wieder entfernen willst, wenn der Wert wieder 2 übersteigt.

Gruß,

Jessica

Private Sub Worksheet_Calculate()
n = 105
For i = 5 To n
If Cells(i, 2) <= 2 And Cells(i + 1, 2).Text <> "Summe" Then
Cells(i + 1, 1).Select
Selection.EntireRow.Insert
Cells(i + 1, 1).Value = "Sonstige"
Cells(i + 1, 2).Value = "Summe"
End If
Next
End Sub