intercept soll auslösende Zell.Adresse melden
Jörg
seit einigen Tagen fummle ich schon an einer Lösung zu folgendem Problem:
bei einer Änderung in einer Zelle soll intercept mir diese auslösende Zelle mitteilen, damit ich sie durch ein Makro in eine andere Tabelle kopieren kann. Ich habe das auch schon mit einer Function versucht, was - wie ich nun endlich kapiert habe nicht geht.
Ein freundlicher ExcelProfi hat mir folgenden Code empfohlen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim Aktuell As Variant
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("G1:I303")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
' Place your code here.
'MsgBox "Cell " & Target.Address & " has changed."
Aktuell = Target.Address
'Aktuell = Target.Offset(0, 17).Value
MsgBox "Nr: " & Aktuell
End If
End Sub
Das klappt soweit. Aber wie bekomme ich jetzt die Adresse als "Zeilennummer" (Integer), dass ich siean ein Makro zur Weiterverabeitung (Kopiere die Zeile in ein Tabellenblatt, sortiere die nach jüngstem Ereignis, gib das an ein Userform weiter).... durchrreichen kann?
Es geht mir also nur um die Übergabe der AuslöseZellAdresse (Row) als Integer-Wert an ein Makro "KopiereBöseZeile":-)
Der freundliche Mensch im Forum hatte sich leider nicht mehr gemeldet - was ich ihm keinesfalls vorwerfe,
hab auch schon Knatsch mit meiner besseren Hälfte wegen "nur noch an der Kiste ..." :-))
Ich möchte nun obigen Code neu aufgreifen und hoffe auf Eure Unterstützung.
Vielen Dank im Voraus
und 'nen guten Rutsch
Jörg