Zelle freigeben wenn

Forumthread: Zelle freigeben wenn

01.03.2016 17:28:40

Finn

Ich würde gerne einstellen, dass eine Zelle nur beschreibar ist, wenn in der Zelle davor der Wert "xyz" steht.
Danke für eure Hilfe

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle freigeben wenn

01.03.2016 17:42:48

Michael
AW: Zelle freigeben wenn

01.03.2016 17:51:27

Finn
AW: Zelle freigeben wenn

01.03.2016 17:58:57

Werner
AW: Zelle freigeben wenn

01.03.2016 18:14:42

Finn
AW: Zelle freigeben wenn

01.03.2016 18:29:15

SF
AW: Zelle freigeben wenn

01.03.2016 18:32:08

Finn
AW: Zelle freigeben wenn

01.03.2016 18:57:47

SF
AW: Zelle freigeben wenn

01.03.2016 19:30:18

Werner
AW: Zelle freigeben wenn

02.03.2016 14:21:23

Finn
AW: Zelle freigeben wenn

02.03.2016 14:27:29

SF
AW: Zelle freigeben wenn

02.03.2016 15:28:09

Werner

AW: Zelle freigeben wenn

01.03.2016 17:42:48

Michael

Hallo,
Als event eines Arbeitsblattes reicht
Privat


Sub worksheet_change(byval Target as Range)
If Target.offset(0,-1).value = "xyz" then application.undo
End Sub

Den Titel der


Sub soltest du nicht eingeben, sondern über die drop-downs generieren.
Mfg

AW: Zelle freigeben wenn

01.03.2016 17:51:27

Finn

Von Dem was du geschrieben hast, verstehe ich leider gar nichts.

AW: Zelle freigeben wenn

01.03.2016 17:58:57

Werner

Hallo Finn,
könnte auch daran liegen, dass deine Beschreibung nicht sehr präzise ist.
1. Was ist "eine Zelle"? Eine ganz bestimmte Zelle, z.B. Zelle C7 oder soll das alle Zellen betreffen?
2. Was ist "die Zelle davor"? Die Zelle darüber, also für das Beispiel mit C7 wäre das Zelle C6, oder die Zelle links davon, für C7 wäre das die B7.
Gruß Werner

AW: Zelle freigeben wenn

01.03.2016 18:14:42

Finn

Ok Also in Spalte A habe ich ein Dropdown mit den Stati: 1. in Bearbeitung, 2. Abgeschlossen,
3. Gescheitert. Spalte B soll nur beschreibar sein, wenn in Spalte A 3. Gescheitert steht, um den Grund fürs Scheitern eintragen zu können.

AW: Zelle freigeben wenn

01.03.2016 18:29:15

Hola,
benutz die Datenüberprüfung:

=A3="gescheitert"

Gruß,
steve1da

AW: Zelle freigeben wenn

01.03.2016 18:32:08

Finn

dann kann ich trotzdem überall in Spalte B schreiben.

AW: Zelle freigeben wenn

01.03.2016 18:57:47

Hola,
du wurdest doch schon gebeten, den Aufbau genau zu erklären - hast du immer noch nicht getan. Daher bleibt es für uns Raterei.
Gruß,
steve1da

AW: Zelle freigeben wenn

01.03.2016 19:30:18

Werner

Hallo Finn,
diesen Code ins Code-Modul des Tabellenblattes, auf dem sich das auswirken soll.
Rechte Maustaste auf den entsprechenden Tabellenblattreiter - Code anzeigen - Code rechts in das Code-Fenster der Tabelle kopieren.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Cells(3, 1).Value  "Gescheitert" Then
Application.EnableEvents = False
Application.Undo
MsgBox "Beim Status" & vbLf & vbLf & "In Bearbeitung" & vbLf & _
"Abgeschlossen" & vbLf & vbLf & "ist keine Eingabe zulässig!"
Application.EnableEvents = True
End If
End If
End Sub

Gruß Werner

AW: Zelle freigeben wenn

02.03.2016 14:21:23

Finn

das klappt bei mir nicht. Also hier ist das exakte Beispiel.
https://www.herber.de/bbs/user/104038.xlsx
Ich möchte das die Spalte G nur beschreibar ist, wenn in Spalte F "Gescheitert" ausgewählt wird. Bei Beurkundet, Reserviert soll die Spalte G nicht beschreibar sein.

AW: Zelle freigeben wenn

02.03.2016 14:27:29

Hola,
ich weiß nicht was du willst? In G4 kann kein Text eingegeben werden, nur in G7. Ist doch alles so wie du willst!?!
Gruß,
steve1da

AW: Zelle freigeben wenn

02.03.2016 15:28:09

Werner

Hallo Finn,
erstens habe ich keine Ahnung, wen du jetzt angesprochen hast. Du hast verschiedene Lösungsmöglichkeiten aufgezeigt bekommen und solltest dann auch im entsprechenden Zweig antworten. Du hast aber auf deine eigene Eingangsfrage geantwortet.
Problem: Das kommt nur Häppchenweise von dir und von Rückfrage zu Rückfrage anders. Mal ist es diese Spalte, mal jene, mal ist in Zelle A3 ein Dropdown, jetzt in der kompletten Spalte F.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Row > 3 Then
If Target.Offset(0, -1).Value  "Gescheitert" Then
Application.EnableEvents = False
Application.Undo
MsgBox "Beim Status" & vbLf & vbLf & "In Bearbeitung" & vbLf & _
"Abgeschlossen" & vbLf & vbLf & "ist keine Eingabe zulässig!"
Application.EnableEvents = True
End If
End If
End Sub

Konnte allerdings nicht testen.
Gruß Werner

Forumthread: Zelle freigeben wenn

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread