Zellen überspringen

Forumthread: Zellen überspringen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zellen überspringen

Zellen überspringen

08.10.2002 22:28:15

Peter Richling

Ich habe mir mehrere Tabellen erstellt, die ich meinen Mitarbeitern zur Bearbeitung zur Verfügung stelle.

Bestimmte Zellen sind gesperrt damit sie nicht überschriebn werden können.
Ich möchte, dass beim öffnen der Datei die erste ausfüllbare Zelle markiert ist und beim Betätigen der Enter Taste automatisch nur die nächste Zelle erreicht wird, die auch ausgefüllt werden soll usw. usw. bis zum Ende der Tabelle.

Wie geht das ???

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zellen überspringen

08.10.2002 22:32:42

Hajo_Zi
Re: Zellen überspringen

08.10.2002 22:55:42

L.Vira

Re: Zellen überspringen

08.10.2002 22:32:42

Hajo_Zi

Halo Peter

nicht Enter sondern Tab Taste

Gruß Hajo

Re: Zellen überspringen

08.10.2002 22:55:42

L.Vira

Wenn du das Blatt derart schützt, gehts mit der Tab oder der Enter- Taste:
Private Sub Worksheet_Activate()

Sheets("Tabelle1").Unprotect password:="xxx"
With Sheets("Tabelle1")
.EnableSelection = xlUnlockedCells
.Protect DrawingObjects:=True
.Protect Contents:=True
.Protect Scenarios:=True
.Protect password:="xxx"
End With
end sub