wie kann ich ein Makro nur 1 mal nach Eingabe einer Zelle automatisch starten?
Gruß
Gerhard
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" And myCheck = False Then
myCheck = True
Call DeinMakroName
End If
End Sub
hallo gerhard
wenn du auf nummer sicher gehen willst und das makro wirklich nur 1X starten darfst,
ginge das vereinfacht auch so:
rechte maus auf den tabellenreiter
code anzeigen
da rein dann dies hier
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then Call test
Call loeschen
End Sub
Public Sub loeschen()
Application.VBE.ActiveVBProject.VBComponents("modul1").CodeModule.ReplaceLine 2, ""
'Public Sub einmalmakro() ist jetzt unbrauchbar
End Sub
und in ein modul das hier:
Public Sub einmalmakro()
MsgBox "Ich bin das einmal makro"
End Sub
bernd