ich habe eine Frage zur ShowDataFunktion.
Ich möchte die Funktion über einen Button auf Tabellenblatt "A" aufrufen und dann über die Maske Daten auf einem anderen Blatt ("Inhalt") ändern/bearbeiten. Danach möchte ich die Information haben, die geändert wurden.
Ich habe das mal mit der Worksheet_Change Funktion angelegt.
Das Problem ist nun, das mir die Änderungen nicht angezeigt werden, auch wenn ich auf dem zu ä _
ndernden Blatt bin. Händisch im Blatt funktionierts, allerdings auch nur einzlne Werte, ich mö _
chte aber auch erkennen, wenn mehrere Werte über ShowDataForm verändert wurden.
Hat da jemand einen Lösungsvorschlag. Danke
Sub ID_Suchen_Anlegen()
'Öffnet Eingabemaske um ID´s zu suchen und neu anzulegen
Sheets("Inhalt").Select
With Worksheets("Inhalt").ShowDataForm
End With
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
'A bis K als Bereich für Änderungen festlegen
Set KeyCells = Range("A:K")
'Auf Änderung prüfen
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
'Wenn Änderung vorhanden Adresse in MsgBox ausgeben
MsgBox "Cell " & Target.Address & " has changed."
End If
End Sub