Ergänzung Script
Hartmut
ich habe folgendes Problem: Ich würde das nachfolgende Skript gern so ergänzen, dass es nach dem Zwischenspeichern die Tabelle endspeichert und dann schliesst, so dass ich nur noch die zwischengespeicherten Daten habe.
Herzlichen Dank & Grüsse
Hartmut
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 3 Then Exit Sub
If Target.Count > 3 Then Exit Sub
ActiveCell = "x"
Target.Offset(0, 69).Resize(1, 7).Copy
End Sub
Anzeige