Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ereignis nur einmal

Forumthread: Ereignis nur einmal

Ereignis nur einmal
Erich
Hallo....
Ist es möglich diesen Code jeweils nur einmal auszuführen ?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim zu As Variant If Target.Column > 3 Then Exit Sub zu = MsgBox(" Eingabe richtig ?", vbYesNo + vbCritical) If zu = vbNo Then 'Wenn nein dann die Anwendung verlassen. Exit Sub ElseIf zu = vbYes Then End If ActiveSheet.Unprotect Password:="7887" Rows(Target.Row).Copy Rows(Target.Row + 2).Cells.Insert Rows(Target.Row + 2).ClearContents ' Kopiert die Formel 2 Zeilen runter Range("H4").Copy Range("H" & Target.Row + 2).Insert ActiveSheet.Unprotect Password:="7887" Application.CutCopyMode = False End Sub
Ich hoffe es gibt eine Möglickeit, denn einige Kollegen haben einen
unruhigen Finger.
mfg Erich
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Ereignis nur einmal
Hajo_Zi
Hallo Erich
Dim BoWert As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If BoWert = True Then Exit Sub
BoWert = True


AW: Ereignis nur einmal
Erich
Hallo Hajo
Dumme Frage von mir, wo müssen Deine Zeilen eingefügt werden.
Gruß Erich
AW: Ereignis nur einmal
Nepumuk
Hallo Erich,
in einem "normalen" Modul:
Public bolNureinmal as Boolean
in deinen Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 3 And Not bolNureinmal Then
If MsgBox("  Eingabe richtig ?", vbYesNo + vbCritical) = vbYes Then
ActiveSheet.Unprotect Password:="7887"
Rows(Target.Row).Copy
Rows(Target.Row + 2).Cells.Insert
Rows(Target.Row + 2).ClearContents
' Kopiert die Formel 2 Zeilen runter
Range("H4").Copy
Range("H" & Target.Row + 2).Insert
ActiveSheet.Unprotect Password:="7887"
Application.CutCopyMode = False
bolNureinmal = True
End If
End If
End Sub

Scheint mir noch nicht ganz fertig zu sein.
Gruß
Nepumuk
Anzeige
AW: Ereignis nur einmal
Erich
Hallo Hajo...
Hallo Nepumuck...
Vielen Dank für die Antworten.
mfg Erich
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige