Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen schützen wenn andere Zelle Wert +0 hat

Zellen schützen wenn andere Zelle Wert +0 hat
28.02.2006 09:50:48
Martin
Hallo zusammen,
ich habe ein Wochenberichtsformular für meine Aussendienstmitarbeiter entwickelt in dem diese Ihre Arbeitsstunden festhalten sollen. Die Formeln darin sind über die Blattschutz-Funktion gesichert und Zellen zur Eingabe ungeschützt gelassen.
Meine Frage bzw. Problem ist nun:
Wenn eine Zelle (Bsp.G7) den Wert größer als 0 durch eine Formelberechnung bekommt soll die Eingabe in einer anderen freigegebenen Zelle (Bsp.I7) in der gleiche Zeile mit einem kurzen Kommentar (entweder so oder so) verweigert werden.
Ich habe das bereits über die Gültigkeits-Funktion versucht zu lösen aber das klappt nicht so wie ich mir das vorstelle.
Vielen Dank vorab für eure Hilfe.
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen schützen wenn andere Zelle Wert +0 hat
04.03.2006 11:23:03
Franz
Hallo Martin,
man kann per VBA die Zellenauswahl und die Eingabe von Werten überwachen und dann einen entsprechenden Hinweis anzeigen.
Die entsprechenden Makros, die in VBA unter der entsprechenden Tabelle gespeichert werden müssen, sehen etwa so aus:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Ueberschneidung As Range
Set Ueberschneidung = Application.Intersect(Target, Range("I5:I11"))
If Ueberschneidung Is Nothing Then Exit Sub
If Cells(Target.Row, Range("G:G").Column) > 0 Then
If IsEmpty(Target) Then Exit Sub
Target.ClearContents
MsgBox ("Bitte hier nur Eingaben machen, wenn Wert in Spalte G = 0 ist")
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Ueberschneidung As Range
Set Ueberschneidung = Application.Intersect(Target, Range("I5:I11"))
If Ueberschneidung Is Nothing Then Exit Sub
If Cells(Target.Row, Range("G:G").Column) > 0 Then
MsgBox ("Bitte hier nur Eingaben machen, wenn Wert in Spalte G = 0 ist")
Target.ClearContents
End If
End Sub

Hier noch eine kleine Beispieldatei:
https://www.herber.de/bbs/user/31623.xls
Blattschutz ist aktiviert ohne Kennwort.
Gruß
Franz
Anzeige

323 Forumthreads zu ähnlichen Themen

Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
Wenn Zelle Inhalt, dann Reiterfarbe ändern
MIAAA

Hallo ihr Lieben Excel-Könner,
bitte um Hilfe bei folgendem Promlem mit englischem Office:
Wenn in Zelle ein beliebiger Name (=Text) eingetragen wird, soll sich der Reiter (Sheetregister) im unteren Bildrand z.b. rot einfärben. Hat jemand die Lösung?
IF(B4=...
Merci
14.04.2011 16:31:15
Thread-ID: 1210443
15 Beiträge
Zelle mit Text befüllen, wenn andere Zelle gefüllt
Gussfuss

Hallo liebe Forumler,
hoffe, ihr könnt mir mal wieder helfen...
ich bin fast fertig, jetzt hakt es nur noch an einer Kleinigkeit.
die Aufgabe soll lauten:
prüfe von unten nach oben in einer Schleife, ob jeweilige Zelle in Spalte F gefüllt ist, wenn ja befülle das jeweilge Feld i...
21.07.2011 15:13:10
Thread-ID: 1223072
3 Beiträge
Anzeige
Wenn Eingabe in Zelle dann Bild in anderer Zelle
min

Hallo zusammen,
leider konnte ich noch keinen Eintrag finden, mit dem ich meine Aufgabenstellung umsetzen konnte, so bitte ich um Rückmeldung anhand der Beispiel-Datei anbei...
https://www.herber.de/bbs/user/88558.xls
Es soll eine Stückliste entstehen, die alle möglichen Artikel um...
18.12.2013 10:02:10
Thread-ID: 1342943
8 Beiträge
Wenn Zelle = C1, dann andere Zelle = D1
Christian

Hallo alle zusammen,
ich hoffe jemand hat eine Idee, wie man folgendes Prolem lösen kann.
Ich suche eine Möglichkeit, 2 Texte in C1 und D1 zu schreiben.
Der Text in C1 steht bereits an mehreren Stellen im Bereich E1:CP92, der Text in D1 ist neu in der Tabelle.
Wenn das Ganze fer...
12.08.2014 22:17:31
Thread-ID: 1376063
4 Beiträge
Wenn Inhalt in Zelle dann andere Zelle entsperren
Sebastian

Hallo zusammen!
Ich möchte mit einem Makro den Wert einer Zelle auslesen und bei einem bestimmten Zeichen sollen dann andere Zellen freigeschalten werden, ich hatte es über folgendes Beispiel gelößt:
If Range("F9") Like "*+*" Then Range("B11").Locked = False Else Range("B11").Locked = T...
14.10.2014 10:37:53
Thread-ID: 1386550
9 Beiträge
Farbe von Zellbereichen prüfen und andere Zelle fä
Zellbereichen

Hallo zusammen,
ich möchte in Excel mittels VBA eine Funktion realisieren und bräuchte dazu etwas Hilfe.
Ich habe ein Tabellenblatt X, in dem sich Zellen in Abhängigkeit von eingetragenen Zahlen jeweils Rot oder Grün färben (Bedingte Formatierung).
Jetzt möchte ich folgende Funktion...
15.01.2015 11:23:30
Thread-ID: 1402972
3 Beiträge
Textteile je nach Farbe in andere Zelle kopieren
CP

Liebe Excel-Spezialisten,
ich bin neu im Forum, blutiger VBA-Anfänger und schlage mich mit vielen Problemen rum.
Konkret geht es diesmal um folgendes:
In der Spalte N befindet sich in vielen Zellen Text mit rot und/oder schwarz.
Ich muß jetzt z.B. den schwarzen Text in die bena...
08.09.2015 21:57:12
Thread-ID: 1446605
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
1
14
2
3
7
3
8
2
3
2
8
1
12
5
4
3
2
7
5
4
1
6
4
4