Supportnet / Forum / Tabellenkalkulation

Hi Ho ihr lieben, Ich hab folgendes anliegen. Ich möchte wenn ich in Feld A1 etwas eingebe das dann Feld B1 gesperrt wird oder wenigstens eine andere Farbe bekommt. (aber nur solange in Feld A1 etwas steht.) Ist das irgendwie möglich? MFG Matze

Hi matze83,

also du könntest dein Problem über die Bedingte Formatierung lösen

Dazu müsstest du Zelle B1 auswählen - Format - Bedingte Formatierung- auswählen und Bedingung 1 auf Formel ist
stellen. Dann gibst du im Nachbarfeld "=$A$1>0" ein (ohne Anführungszeichen und wählst unter Format... - Muster deine gewünschte Zellschattierung aus.

Wie du das mit der Sperrung hinbekommen könntest, weiss ich jedoch nicht.

gruss sebbl

Hallo,

die Sperrung könnte über Gültigkeitsregel funktionieren (habs aber nicht versucht).

Gruß

Helmut

Ertseinmal danke an euch beide!!

Ich werde es nachher mal ausprobieren und dann hier eine Rückmeldung posten.


MFG

Matze

Also danke ncoh mal das mit dem Farbwechsel funzt supppppppa

nun bleibt ncoh das Sperren^^

Helmut ich hab dich leider nicht verstanden :-(


MFG

Matze

hi all :)

2 erzwungene eingabe beispiele

soweit ich weiss geht das wohl auch anders,doch wer es mag hier noch 2 varianten als makro,wobei aber nur eine benutzt werden sollte und der code in die jeweilige tabelle gehoert.

gruss michael

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Worksheets(1)
Dim bereich(2)
Dim zaehler1 As Integer
bereich(0) = "A1"
bereich(1) = "A3"
bereich(2) = "A5"
For zaehler1 = 0 To 2
If Range(bereich(zaehler1)) = "" Then
Range(bereich(zaehler1)).Select
Exit For
End If
Next zaehler1
End With
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A1,A3,A5")
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
End Sub

• wie kann man eine seite sperren
• Internetseiten Sperren
• seiten sperren
• Internetseiten sperren