Makros automatisch ausführen ?!

[raiman79]

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

[volti]

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

[Fennek]

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