AW: Geaenderte Zellen
15.07.2005 16:45:40
IngGi
Hallo Thomas,
folgende Vorschläge hätte ich zu bieten:
Wenn du auf jede Änderung in Spalte E sofort reagieren willst, schreib folgendes Makro in das Modul deines Arbeitsblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Columns("E:E"), Target) Then
Bezeichner = Target.Offset(0, -3)
End If
'und hier noch der Aufruf deines Makros für die eMail
End Sub
Die Variable "Bezeichner" mußt du im Modul deines eMail-Makros global deklarieren.
Willst du dagegen Änderungen erstmal sammeln und dein eMail-Makro später von Hand starten, legst du ein Arbeitsblatt "Änderungen" in deiner Datei an und kopierst das folgende Makro in das Modul deines Arbeitsblattes mit den Daten.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Columns("E:E"), Target) Then
ThisWorkbook.Sheets("Änderungen").Range("A65536").End(xlUp).Offset(1, 0) = Target.Offset(0, -3)
End If
End Sub
Für jede Änderung in Spalte E deines Datenblattes wird der jeweilige Inhalt aus Spalte B in Spalte A des Blattes "Änderungen" kopiert, so dass die Spalteninhalte von B für jede Änderung ab Zelle A1 untereinander im Blatt "Änderungen" stehen.
Gruß Ingolf