keine Eingabe in best. Bereich

Forumthread: keine Eingabe in best. Bereich
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: keine Eingabe in best. Bereich

04.02.2006 18:24:49

Peter

Hallo,
Ich möchte bei der Eingabe in einen best. Bereich die
Aktion rückgängig machen, bzw. Verhindern das ein Wert eingegeben wird.
Geht das ohne einen Blattschutz zu setzen oder irgendwelche Formeln einzugeben?
Danke Peter
If Not Application.Intersect(Range("G1:L6,A7:L8"), _
Range(Target.Address)) _
Is Nothing Then
'Application.Undo
Range("A9").Select
End If

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: keine Eingabe in best. Bereich

04.02.2006 18:49:55

Ramses
AW: Danke Ramses - funzt-

04.02.2006 20:28:43

Peter

AW: keine Eingabe in best. Bereich

04.02.2006 18:49:55

Ramses

Hallo
Der code muss in das klassenmodul der Tabelle wo das funktionieren soll
Rechte Maustaste auf Tabellenreiter
Code anzeigen
Den untenstehenden Code dort reinkopieren
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C1:L6,A7:L8"), Range(Target.Address)) Is Nothing Then
        With Application
            .EnableEvents = False
            .Undo
            Range("A9").Select
            .EnableEvents = True
        End With
    End If
End Sub

Gruss Rainer

AW: Danke Ramses - funzt-

04.02.2006 20:28:43

Peter

Danke Dir nochmal.
Genau so habe ich mir die Sache vorgestellt.
Peter