Nach Eingabe eine andere Zelle sperren

• Nach Eingabe eine andere Zelle sperren von Hans-Georg vom 09.04.2005 15:26:30
• AW: Nach Eingabe eine andere Zelle sperren - von Lars am 09.04.2005 15:48:15
  • Versuch macht klug - von Hans-Georg am 09.04.2005 15:52:55
• AW: Nach Eingabe eine andere Zelle sperren - von Albin am 09.04.2005 16:19:42
• AW: Nach Eingabe eine andere Zelle sperren - von FP am 09.04.2005 20:21:56

Betrifft: Nach Eingabe eine andere Zelle sperren
von: Hans-Georg
Geschrieben am: 09.04.2005 15:26:30
Hallo,
ich versuche, leider bisher ohne Erfolg, eine Zelle sperren zu lassen, nachdem ich in einer anderen Zelle einen Wert eingegeben habe.
Konkret :
In Zelle A1 bis A3 stehen die Bezeichnungen
Anfahrt per Bus
Anfahrt per Bahn
Anfahrt per PKW
Nun soll in Spalte B1 bis B3 der Wert eingegeben werden, jedoch soll nur eine Eingabe möglich sein. Wenn also 11 Leute per Bus Anreisen, müssen die Zellen für Bahn und PKW gesperrt werden, so dass dort keine Eingabe möglich ist.
Ich hoffe es ist für Euch nicht so kompliziert, ich habe schon alles mögliche ausprobiert aber nichts hat geklappt !
Mit freundlichen Grüßen
Hans-Georg

Betrifft: AW: Nach Eingabe eine andere Zelle sperren
von: Lars
Geschrieben am: 09.04.2005 15:48:15
Hi,
würde ich über Gültigkeit lösen:
=ANZAHL2($A$1:$A$3)<2
mfg Lars

Betrifft: Versuch macht klug
von: Hans-Georg
Geschrieben am: 09.04.2005 15:52:55
Hallo Lars,
ich werde es mal ausprobieren !
Danke
HANS-GEORG

Betrifft: AW: Nach Eingabe eine andere Zelle sperren
von: Albin
Geschrieben am: 09.04.2005 16:19:42
Hi,
ich weiss nicht, ob's nicht auch einfacher geht auf jeden Fall funktioniert es.
Kopiere den Code in das Codefenster deiner Tabelle. Ab sofort kann in Spalte B nur noch 1 Eintrag gemacht werden.
Gruß
Albin

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim z As Integer, s As Integer
    Dim i As Byte, t As Byte
    z = Target.Row
    s = Target.Column
    If z > 3 Or s <> 2 Then Exit Sub
    i = 1: t = 0
    If s = 2 Then
        Do While i <= 3
            If Cells(i, 2) <> "" Then
                t = t + 1
            End If
            If t > 1 Then
                MsgBox "Es ist nur 1 Eintrag möglich..."
                Cells(z, s) = ""
                Exit Sub
            End If
            i = i + 1
        Loop
    End If
End Sub

Betrifft: AW: Nach Eingabe eine andere Zelle sperren
von: FP
Geschrieben am: 09.04.2005 20:21:56
Hallo Hans-Georg,
Schau Dir mal das an:

Tabelle3

A B C 1 Bus Bahn PKW 2     11 Bedingte Formatierungen der Tabelle Zelle Nr.: / Bedingung Format A2 1. / Zellwert ist ungleich 0 Abc A2 2. / Formel ist =ANZAHL($A2:$C2)>0 Abc B2 1. / Zellwert ist ungleich 0 Abc B2 2. / Formel ist =ANZAHL($A2:$C2)>0 Abc C2 1. / Zellwert ist ungleich 0 Abc C2 2. / Formel ist =ANZAHL($A2:$C2)>0 Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

1) Formatiere den Bereich A2:C2 mit grüner Hintergrundfarbe - ja richtig, HF grün
2) wähle A2 aus und gib die Gültigkeit: benutzerdefiniert - Formel: =ANZAHL($A2:$C2)=1 ein
3) gib die bedingte Formatierungen laut Beispiel ein
4) jetzt teste mal, ob du in mehr als 1 Zelle eine Zahl eingeben kannst
und last but not least: ist es nicht anwenderfreundlich, wenn nach der Eingabe die anderen Felder optisch darauf hinweisen, dass man dort nicht mehr eingeben kann...
Und alles ganz ohne VBA :D
Servus aus dem Salzkammergut
Franz

Beiträge aus den Excel-Beispielen zum Thema "Nach Eingabe eine andere Zelle sperren"