Makro momentan stoppen

Forumthread: Makro momentan stoppen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro momentan stoppen

04.03.2008 08:51:00

serge

Hallo Leute
ich habe mir ein Makro gebaut das verhindert mehr als eine Spalte zu bearbeiten:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 11 And Target.Column >= 4 Then
If Selection.Columns.Count > 1 Then
ActiveCell.Select
MsgBox ("Auswahl nur aus einer Spalte, bzw. einem Tag möglisch!")
End If
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Visible = False
Next cmt
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
End If
End If
End Sub

Jetzt möchte ich periodisch die Tabelle leeren und neu formatieren. Wie kann ich ich meine Einschränkung momentan ein dem neuen Makro ausschalten?
Danke für die Hilfe
Serge

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro momentan stoppen

04.03.2008 09:33:29

Micha
Es_Geht

04.03.2008 11:13:19

serge

AW: Makro momentan stoppen

04.03.2008 09:33:29

Micha

Hallo serge,
public Es_Geht as boolen


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 11 And Target.Column >= 4 And Es_Geht = FALSE Then
If Selection.Columns.Count > 1 Then
ActiveCell.Select
MsgBox ("Auswahl nur aus einer Spalte, bzw. einem Tag möglisch!")
End If
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Visible = False
Next cmt
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
End If
End If
End Sub

Sub mache-es
Es_Geht = TRUE
......................
Es_geht = FALSE
End Sub