ich habe folgenden Code gefunden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
ThisWorkbook.Save
End If
End Sub
dieser funktioniert einwandfrei. Ich hätte aber gerne das mehrere (oder alle) Zellen per Klick die Tabelle speichern.
Nur zur Info, in der Tabelle ist noch zusätzlich dieser Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H3:H30,I3:I30,J3:J30,K3:K30,L3:L30,M3:M30")) Is _
_
Nothing Then
Target.Interior.ColorIndex = ((Target.Interior.ColorIndex = xlNone) * -4)
End If
Cancel = True
End Sub
vorhanden, der wie die Profis unter euch bestimmt sehen, per Doppelklick die definierten Zellen Grün einfärbt oder entfärbt.
Genau dabei soll auch die Tabelle jedes mal gespeichert werden.
Vielen Dank schon mal.