AW: worksheet_change und Zeile einfügen
26.03.2015 15:56:13
Nepumuk
Achso,
noch ein Beispiel dazu:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntReturn As Variant
vntReturn = Evaluate("Letzte_Zeile")
If IsArray(vntReturn) Then
vntReturn = Evaluate("Letzte_Spalte")
If IsArray(vntReturn) Then
If Names("Letzte_Zeile").RefersTo = "=" & Name & "!" & Rows(Rows.Count).Address Then
If Names("Letzte_Spalte").RefersTo = "=" & Name & "!" & Columns(Columns.Count).Address Then
'Wert wurde geändert
MsgBox "Wert geändert"
Else
'Spalte gelöscht
Call Names.Add(Name:="Letzte_Spalte", RefersTo:=Columns(Columns.Count))
End If
Else
'Zeile gelöscht
Call Names.Add(Name:="Letzte_Zeile", RefersTo:=Rows(Rows.Count))
End If
Else
'Spalte eingefügt
Call Names.Add(Name:="Letzte_Spalte", RefersTo:=Columns(Columns.Count))
End If
Else
'Zeile eingefügt
Call Names.Add(Name:="Letzte_Zeile", RefersTo:=Rows(Rows.Count))
End If
End Sub
Gruß
Nepumuk