Office: Mit VBA autom. von einer Zelle zur nächsten springen, der Rest soll gesperrt werden

Tach zusammen,

ich verwende Excel 2010 und habe ein kleines Problem mit VBA.

Ich möchte mit einem Makro Befehl z.B. "Start" in die erste veränderbare Zelle und dann Automatisch mit Enter/Tab in die nächste, veränderbare Zelle springen.
(Die restlichen Zellen dürfen nicht veränderbar sein und falls es jemand probiert soll eine Meldung erscheinen "diese Zelle ist geschützt" )

Habe einen Code geschrieben damit der Cursor in die nächste Zelle springt und einmal, dass die anderen Zellen nicht verändert werden können.
Beides zusammen klappt aber nicht.
Habe versucht es selber herauszubekommen, komme aber nicht weiter.
Ich bin noch ein VBA Neuling und habe möglicherweise eine Kleinigkeit übersehen.
Für jegliche Lösungsvorschläge wäre ich sehr Dankbar.

MfG mKay1988

Hier ist mein Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strZellAdresse As String
If Not ActiveCell.Locked = False Then
MsgBox "diese Zelle ist geschützt"
End If
strZellAdresse = ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Excel.Range)
Static strA As String
Select Case strA
Case "$J$11" 'Start in J11
Range("N34").Activate 'Sprung nach N34
Case "$N$34"
Range("N37").Activate 'Sprung nach N37
Case "$N$37"
Range("N40").Activate 'Sprung nach N40
Case "$N$40"
Range("J47").Activate 'Sprung nach J47
Case "$J$47"
Range("K51").Activate 'Sprung nach K51
Case "$K$51"
Range("L55").Activate 'Sprung nach L55
Case "$L$55"
Range("M59").Activate 'Sprung nach M59
Case "$M$59"
Range("N63").Activate 'Sprung nach N63
End Select
strA = ActiveCell.Address
End Sub

:)

 

warum schützt Du die Tabelle nicht?

 

Habe ich gemacht mit Blatt schützen.

 

Moin
Was Hajo meint ist.
Alle Zellen die bearbeitet werden duerfen markieren/formatiern/Schutz/
Haken bei "gesperrte Zellen auswaehlen" rausnehmen.
Haken bei "nicht gesperrte Zellen auswaehlen"
und Blattschutz setzen.
Dann koennen nur die freien Zellen ausgewaehlt werden und mit der Entertaste geht es zur naechsten Zelle.
Im Prinzip braucht es kein Code.
Und damit man sieht welche Zellen ausgewaehlt werden duerfen, einfach einen Rahmen drumrum
gruss hary

 

Servus Hary

diese Möglichkeit ist mir bekannt aber ich möchte ja dass wenn jemand in eine Zelle klickt diese nicht verändern darf und das der Hinweis kommt "diese Zelle ist geschützt". Siehe VBA code

Gruß Lucas

 

Moin Lucas
Du kannst nur ein selectionchange Ereigniss nehmen, mehrere geht nicht.
Warum du es auch immer brauchst??
Code:

gruss hary

 

Vielen Dank, das wusste ich nicht.
Hab deinen Code mal ausprobiert und es
sieht gut aus soweit.
*Smilie
also mein Fehler war einfach dass ich 2x den SelectionChange Ereignis ausgewählt habe.

Vielen Dank für deine Mühen *wink.gif*