Mehrfach Markieren verhindern
26.02.2009 14:24:57
WolfgangN
ich habe eine Tabelle, wo der User eine Zelle in SpalteD markieren soll, dort wird mit einem Makro eine Zeile eingefügt und wenn die Tabelle voll ist ein neues Blatt erstellt. Alles klappt auch, ich möchte aber verhindern, daß der User mehr als eine Zelle in SpalteD markiert. Setze ich die Codezeile Target.Cells.Count = 1 Then... in Worksheet_SelectionChange wird beim Erstellen eines neues Blattes der Code ausgelöst (Target.Cells.Count = 1 Then... ), setze ich Application.EnableEvents = False,True in den Code des Makros, der ein neues Blatt erstellt wird Worksheet_Change nicht mehr ausgeführt, dies brauche ich aber.
Ich suche jetzt eine Möglichkeit im Code des Commandbutton ein mehrfaches markieren zu unterbinden.
Vielen Dank
Gruß
Wolfgang
Private Sub CommandButton5_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
'wenn mehr als eine Zelle markiert wurde, dann ?
If ActiveCell.Column 4 Then
MsgBox "Bitte eine Nummer markieren.", , "Hinweis"
Exit Sub
End If
If ActiveCell.Row > 52 Or ActiveCell.Row
Anzeige