Abbrechen wenn zelle ausgewählt wird

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Set RaBereich = Range("X2, D4")                 ' Bereich der Wirksamkeit
' Prüfen ob Auswahl im Zellbereich
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
' Prüfen ob Mustervorlage
If Not RaBereich Is Nothing And InStr(ThisWorkbook.Name, ".") > 1 And _
UCase(Left(Mid(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") + 1), 3)) <> "XLT" Then
Application.EnableEvents = False            ' Reaktion Zellauswahl abschalten
Target.Offset(0, 1).Select                  ' eine Zelle nach rechts springen
Application.EnableEvents = True             ' Reaktion Zellauswahl einschalten
Set RaBereich = Nothing                     ' Variable leeren
End If
End Sub

Gruß Hajo

Option Explicit ' Variablendefinition erforderlich Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RaBereich As Range ' Variable für Bereich Set RaBereich = Range("X2, D4") ' Bereich der Wirksamkeit ' Prüfen ob Auswahl im Zellbereich Set RaBereich = Intersect(RaBereich, Range(Target.Address)) ' Prüfen ob Mustervorlage If Not RaBereich Is Nothing And InStr(ThisWorkbook.Name, ".") > 1 And _ UCase(Left(Mid(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") + 1), 3)) = "XLT" Then Application.EnableEvents = False ' Reaktion Zellauswahl abschalten Target.Offset(0, 1).Select ' eine Zelle nach rechts springen Application.EnableEvents = True ' Reaktion Zellauswahl einschalten Set RaBereich = Nothing ' Variable leeren End If End Sub

If ThisWorkbook.Name = "Name der Vorlage.xlsb" Then If Not Intersect(Target, Range("X2,D4")) is Nothing Then Msgbox "In der Vorlage dürfen die Zellen X2 und D4 nicht geändert werden" With Application .EnableEvent = False .Undo .EnableEvents = True End With End If End If

Hi
1. mit der Rechten Maustaste auf den Tabellenblattreiter des betroffenen tabellenblatts klicken
2. "Code anzeigen" im Kontextmenü auswählen
jetzt sollte sich der VBA-Editor öffnen
3. wähle in der linken Combobox über dem Codefenster (das grosse) "Worksheet" aus.
hierbei wird automatisch das Selection-Change-Eventmarko erstellt, dieses brauchst du nicht und kannst es löschen
4. wähle in der rechten Combobox über dem Codefenster den Eintrag "Change" aus
jetzt wird das Change-Event-Makro automatisch mit Start- und Endzeile erstellt und du kannst den von mir gezeigten Code zwischen diesen beiden Zeilen einfügen.
dieses Makro wird immer ausgeführt, wenn du auf dem Blatt einen Zellwert änderst.
den Dateinamen im Code musst du natürlich anpassen (so wie er im Fenstertitel der Excelmappe steht)
gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If ThisWorkbook.Name = "Z-Vorlage" Then If Not Intersect(Target, Range("X2,E4")) Is Nothing Then MsgBox "In der Vorlage dürfen die Zellen X2 und E4 nicht geändert werden" With Application .EnableEvent = False .Undo .EnableEvents = True End With End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Abbrechen wenn zelle ausgewählt wird

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread