Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingaben löschen beim Verlassen

Eingaben löschen beim Verlassen
05.04.2018 09:51:17
Volker
Guten Morgen,
aus einner Übersicht werden Zellwerte in ein anderes Tabellenblatt übergeben.
Diese "Zieltabelle" kann man sich als Vordruck vorstellen. Dieser Vordruck wird unter anderem Namen in einem anderen Ordner gespeichert. Soweit funktioniert alles.
Jetzt zu meinem Problem:
Insgesamt gibt es fünf "Zieltabellen" da jede etwas anders Aufgebaut ist. Die zu übergebenden Daten kommen aber in jeder Zieltabelle an die gleiche Stellen.
Mein Wunsch wäre, wenn ich eine andere Zieltabelle auswähle, sollen die Änderungen aus der vorherigen wieder gelöscht werden.
Es wäre schön, wenn der Code bei Verlassen des Tabellenblattes ausgeführt würde
Sub Lösche_Bereiche()
With ActiveSheet
Range("BH6,A16:M16,A18:M18,A20:M20,E27,AP1,U1").Select
Selection.ClearContents
Range("A1").Select
End With
End Sub
Könnte mir jemand weiterhelfen?
Danke und Gruß
Volker

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingaben löschen beim Verlassen
05.04.2018 10:31:18
Volker
Hallo Thorsten,
Danke für die Hilfe, ich kann jetzt aber nicht mehr weitermachen.
Danke und Gruß
Volker
AW: Eingaben löschen beim Verlassen
05.04.2018 10:40:13
UweD
Hallo
ich würde es beim aktivieren des Blattes machen, sonst geht das A1 selectieren nicht
müssen in den Codebereich DieseArbeitsmappe:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Tabelle1", "ZielTab2", "ZielTab3", "USW"
        
            Sh.Range("BH6,A16:M16,A18:M18,A20:M20,E27,AP1,U1").ClearContents
            Sh.Range("A1").Select
    End Select
End Sub

oder, wenn es doch beim verlassen sein soll, dann trennen...
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Tabelle1", "ZielTab2", "ZielTab3", "USW"
        
            Sh.Range("A1").Select
    End Select
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Tabelle1", "ZielTab2", "ZielTab3", "USW"
        
            Sh.Range("BH6,A16:M16,A18:M18,A20:M20,E27,AP1,U1").ClearContents
    End Select
End Sub

LG UweD
Anzeige

40 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige