Blattcode "an- und ausschalten"

Forumthread: Blattcode "an- und ausschalten"

20.11.2008 18:56:43

Wolfgang

Hallo,
den untenstehenden Code hatte mir in den vergangenen Tagen Erich zur Verfügung gestellt, er läuft auch soweit super und befindet sich hinter dem jeweiligen Tabellenblatt. Jetzt ist aber zwischendurch eine Situation -Hin- und Herkopieren von Daten-, da würde ich gerne erreichen, dass er für den Kopiervorgang abgestellt werden könnte, um ihn dann nach dem Vorgang wieder einzuschalten. Gäbe es da irgendwie eine Möglichkeit? - Denn in allen anderen Situationen soll er ja weiter laufen. - Danke schon jetzt wieder für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range
If Not Intersect(Target, Columns("I:K")) Is Nothing Then
For Each rngC In Intersect(Target, Columns("I:K"))
Application.EnableEvents = False
Cells(rngC.Row, 12) = Environ("username") & Format(Date, " DD.MM.YYYY")
Application.EnableEvents = True
Next rngC
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Da war ich auf der falschen Taste

20.11.2008 18:58:00

Wolfgang

Ergänzung zum vorgenannten Beitrag:
Es gibt zwei Tabellenblätter, hinter denen sich der Code befindet und aus denen auch jeweils kopiert wird.
"Grunddaten" und "Altdaten".
Gruß - Wolfgang

AW: Da war ich auf der falschen Taste

20.11.2008 21:36:00

Tino

Hallo,
mach Dir eine Checkbox auf die Tabellenblätter, damit könntest Du dass Eventmakro von jeder Tabelle ab.- oder anschalten.
Code Beispiel:
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_Open() 
     Aktionen = Tabelle1.CheckBox1 
End Sub

Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Private Sub CheckBox1_Click() 
     Tabelle2.CheckBox1 = CheckBox1 
     Aktionen = CheckBox1 
End Sub 
 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rngC As Range 
 If Aktionen = False Then Exit Sub 'aktion abbrechen 
    If Not Intersect(Target, Columns("I:K")) Is Nothing Then 
       For Each rngC In Intersect(Target, Columns("I:K")) 
          Application.EnableEvents = False 
          Cells(rngC.Row, 12) = Environ("username") & Format(Date, " DD.MM.YYYY") 
          Application.EnableEvents = True 
       Next rngC 
    End If 
 End Sub

Microsoft Excel Objekt Tabelle2

Option Explicit 
 
Private Sub CheckBox1_Click() 
        Tabelle1.CheckBox1 = CheckBox1 
        Aktionen = CheckBox1 
End Sub 
 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rngC As Range 
 If Aktionen = False Then Exit Sub 'aktion abbrechen 
    If Not Intersect(Target, Columns("I:K")) Is Nothing Then 
       For Each rngC In Intersect(Target, Columns("I:K")) 
          Application.EnableEvents = False 
          Cells(rngC.Row, 12) = Environ("username") & Format(Date, " DD.MM.YYYY") 
          Application.EnableEvents = True 
       Next rngC 
    End If 
 End Sub

Modul Modul1

Option Explicit 
 
Public Aktionen As Boolean

Gruß Tino

Danke Tino und Daniel

21.11.2008 16:59:00

Wolfgang

Hallo Tino und Daniel,
ich hatte heute morgen schon einen Beitrag geschrieben, aber wahrscheinlich nicht abgesandt. - Herzlichen Dank für eure Rückmeldungen. Ich habe Deinen Code, Tino, zwischenzeitlich auch "eingebaut" - er rennt und läuft wunderbar. Danke auch dabei noch für die Erläuterungen, wohin was kopiert wird. Ich hätte mir ansonsten wahrscheinlich noch "die Finger wundgetippt"; Der Code hat mich in meinem Projet bedeutend weitergebracht - Hab herzlichen Dank dafür.
Gruß - Wolfgang

AW: Blattcode "an- und ausschalten"

21.11.2008 01:45:47

Daniel

Hi
du kannst die Event-gesteuerten Makros einfach über Symbol "türkises Geodreieck mit Bleistift" ein- und ausschalten (offizieller Name ist "Entwurfsmodus").
das Symbol findest du in den Symbolleisten "Steuerelement-Toolbox" und "Visusal Basic"
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Forumthread: Blattcode "an- und ausschalten"

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Blattcode "an- und ausschalten"

Forumthread: Blattcode "an- und ausschalten"

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread