Clever-Excel-Forum

Guten Morgen,

ich stehe da vor einer großen Herausforderung. Und zwar habe ich eine Tabelle die von Zeit zu Zeit aktualisiert wird.
Hier werden dann auch z. B. Zeilen eingefügt und genau hier ist mein Problem. Es ist gewünscht, das wenn eine Zeile eingefügt wird, sollen die
bestehenden Macros auf dies Zeile ausgeführt werden.

Ist das überhaupt möglich? Ich habe da nix passendes gefunden.

Grüße aus Duisburg
raiman79

Hallo Raiman,

im einfachsten Fall vielleicht einfach so. (Ins Klassenmodul der Tabelle)
Wird allerdings auch ausgeführt bei Änderungen in Spalte "A" und so weiter. Ansonsten muss man sich noch die Anzahl der Zeilen merken und diese auswerten.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Ausführen bei Aktionen auf einer Zeile
 If Target.Column < 2 Then
    Call MeinMakro1(Target.Row)
    Call MeinMakro2(Target.Row)
 End If
End Sub

____________________
viele Grüße aus Freigericht
Karl-Heinz

Hallo,

ich hatte die Frage etwas anderst verstanden:

Es wird eine Zeile eingefügt und der Makro soll diese neue Zeile formatieren.

Die erste Frage ist: Welche Zeile wurde eingefügt?

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column > 1 Then Exit Sub

adr = Range("A1").End(xlDown).Offset(1).Row

Debug.Print adr, ActiveSheet.UsedRange.Row

If adr < Cells(Rows.Count, 1).End(xlUp).Row Then

    ActiveSheet.UsedRange.Rows(adr).Interior.Color = vbYellow

End If

End Sub

mfg

raiman79

volti

Fennek