Supportnet / Forum / Tabellenkalkulation

Liebe Liste, hat jemand mal eine Möglichkeit gefunden in einem gesperrten Tabellenblatt nur das selktieren "ungesperrter Zellen" zu erlauben. Vielleicht is ja ergänzend sogar drin, das direkte Springen nach "ungesperrter Zellen" per Tabulatortaste zu ermöglichen. Wenn jemand weiter helfen kann, wäre echt super. Viele Grüße Chrisnelly

Du musst erst mal oben links alle zellen markieren u in den eigenschaften gesperrt anklicken!

Dann markierst du die, die nicht gesperrt werden sollen u entfernst dort den haken bei o.g. option!


dann gehst du unter extras- schutz - zellen schützen und musst dort die option nur nicht gesperrte zellen auswählen, mit dem haken!

dann passwort eingeben, wiederholen und dann kannst du mit den pfeiltasten im dokument immer hin u herspringen!


hoffe das hilft!


mfg

Danke Dir,
diese Option ist jedoch bei Office für X auf Mac OS-X nicht verfügbar.
Oder vertue ich mich dort?
Gruße und vielen Dank schon mal.
Chrisnelly

Danke Dir,
diese Option ist jedoch bei Office für X auf Mac OS-X nicht verfügbar.
Hier heist es lediglich "Blatt schützen" und dort mit den Optionen "Inhalte","Objekte","szenarios".
Oder vertue ich mich dort?
Gruße und vielen Dank schon mal.
Chrisnelly

hi chrisnelly :)

sag mir welche bereiche nicht geschuetzt sind,man koennte natuerlich auch die gesamte tabelle abtasten welche zellen nicht geschuetzt sind,daher denke ich das bereichsangaben zugeschnitten auf deine tabelle besser ist.

gruss nighty

Hallo Nighty,

also, z.B ist die ganze Tabelle auf Wörksheet "TabelleX", bis auf die Zellen D1,E1, F1 gesperrt. Es sollt demnach nicht möglich etwa Zelle D2 zu selektieren, da der Anwender eh die Meldung erhalten würde, daß man "versucht eine geschützte Zelle zu verändern".

Hast Du das gemeint?

Viele Grüße und danke für Deine Hilfe.

Chrisnelly

hi Chrisnelly :)

bekomm leider nichts gescheites hin ,kann die markierung nicht abfangen :(

gruss nighty

Hi Nighty,
keine Ursache.
Danke Dir trotzdem für Deine Mühe.
Gruß
Chrisnelly

hi Chrisnelly :)

reagiert auf zellenwechsel

es ist nur der angegebene bereich selectierbar :)

gruss nighty

einzufuegen unter alt f11(vbeditor)/projektexplorer/DeineTabelle


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

rem hier ist dein anwaehlbarerbereich(von/bis)

bereich1$ = "D1"
bereich2$ = "F1"

GoSub adresse
b1 = 0
If zeile1 >= Val(Mid$(bereich1$, 2, Len(bereich1$))) And zeile1 <= Val(Mid$(bereich2$, 2, Len(bereich2$))) Then
b1 = b1 + 1
End If
If Asc(spalte$) >= Asc(Mid$(bereich1$, 1, 1)) And Asc(spalte$) <= Asc(Mid$(bereich2$, 1, 1)) Then
b1 = b1 + 1
End If
If b1 <> 2 Then
For t = Asc(Mid$(bereich1$, 1, 1)) To Asc(Mid$(bereich2$, 1, 1))
For t1 = Val(Mid$(bereich1$, 2, Len(bereich1$))) To Val(Mid$(bereich2$, 2, Len(bereich2$)))
If Range(Chr$(t) & t1) = "" And g0 < 1 Then
zaehler = 1
g0 = 1
g1 = t
g2 = t1
End If
Next t1
Next t
If zaehler = 1 Then Range(Chr$(g1) & g2).Select
End If
End
adresse:
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
Return
End Sub

hi alle :)

ein wenig ueberarbeitet :)

gruss nighty

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

rem spalten 4-6

For z1 = 4 To 6

rem Target.Row = 1 bedeutet zeile 1

If Target.Column = z1 And Target.Row = 1 Then
z2 = 1
End If
Next z1
If z2 = 0 Then Range("D1").Select
End Sub

• Zelle bedingt formatieren, dann Rechnung in der nur diese Zellen verwendet werden
• Zellen mit textinhalt zusammenfassen???
• Verweis auf Zellen in anderem Blatt
• Was muss ich machen, das ich in eine zelle nur einen bestimmten Betrag eingeben kann. z.B. 155 €
• Makro-bestimmt Zellen löschen