Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellschutz Zeilen wenn in Spalte Wert

Zellschutz Zeilen wenn in Spalte Wert
21.01.2019 18:49:40
Sebastian
Hallo,
ich möchte gerne, dass Zeilen gesperrt werden wenn sich in den Zellen in Spalte G ein Wert befindet.
Meine bisherige Formatierung, die bisher nur die Zeilen färbt:
$ =$G9"" $
Ist es möglich auf dieser bedingten Formatierung einen Zellschutz hinzuzufügen?
Vielen Dank für Deine Hilfe
Gruß
Sebastian

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: das geht standardmäßig nicht owT
21.01.2019 18:53:03
neopa
Gruß Werner
.. , - ...
AW: das geht standardmäßig nicht owT
21.01.2019 21:28:40
Sebastian
Hallo Werner,
Danke, für deine Nachricht.
Wenn es nicht über die bedingte Formatierung möglich ist, wäre es dann über ein zusätzliches Makro machbar?
Gruß
Sebastian
AW: das geht standardmäßig nicht owT
21.01.2019 22:04:29
Sebastian
Hallo zusammen,
Villeicht etwas verständlicher:
Wenn in Zelle A3 ein Wert enthalten ist, soll die gesamte Zeile 3 gesperrt werden usw.
Wenn dies nicht über bedingte Formatierung möglich ist, weiß jemand wie dies über VBA möglich ist?
Viele Grüße
Sebastian
AW: das geht standardmäßig nicht owT
21.01.2019 22:17:50
Sepp
Hallo Sebastian,
in das Modul der Tabelle.
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
  Dim rng As Range 
   
  Const PASSWORD As String = "password" 
   
  If Not Intersect(Target, Columns(1)) Is Nothing Then 
    Me.Unprotect PASSWORD 
    For Each rng In Intersect(Target, Columns(1)) 
      rng.EntireRow.Locked = rng <> "" 
    Next 
    Me.Protect PASSWORD 
  End If 
   
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 09:05:55
Sebastian
Hallo Sepp,
vielen Dank für deine Hilfe. Leider funktioniert es bei mir nicht.
Wahrscheinlich weil ich es falsch eingebe.
(hier, wenn z.B. B9 nicht leer ist und die gesamte Zeile 9 gesperrt werden soll):
$
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const PASSWORD As String = "passwort123"
If Not Intersect(Target, Columns(2)) Is Nothing Then
Me.Unprotect PASSWORD
For Each rng In Intersect(Target, Columns(2))
rng.EntireRow.Locked = rng  ""
Next
Me.Protect PASSWORD
End If
End Sub

$
Zudem verstehe ich durch meine geringen Kenntnisse in Excel was du mit "in das Modul der Tabelle" meinst.
Viele Grüße
Sebastian
Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 09:20:16
Sepp
Hallo Sebastian,
Rechtsklick auf das Blattregister > Code anzeigen > in des rechte Fenster den Code einfügen.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 09:41:20
Sebastian
Hallo Sepp,
hmm.. funktioniert leider nicht.
Liegt es an der Formel, die ich falsch eingegebe?
Ich habe nur das Passwort verändert und die Spaltenzahl, sonst nichts.
$

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const PASSWORD As String = "passwort123"
If Not Intersect(Target, Columns(2)) Is Nothing Then
Me.Unprotect PASSWORD
For Each rng In Intersect(Target, Columns(2))
rng.EntireRow.Locked = rng  ""
Next
Me.Protect PASSWORD
End If
End Sub

$
Gruß
Sebastian
AW: das geht standardmäßig nicht owT
22.01.2019 09:55:08
Sepp
Hallo Sebastian,
schon wieder einer mit "funktioniert nicht"! Das ist keine Fehlerbeschreibung!
Was funktioniert nicht? Wo steht dein Code? Von welcher Formel redest du?
Lade die Datei in der es nicht funktioniert hoch!
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 10:26:36
Sebastian
Hallo Sepp,
anbei die Bsp.Datei:
Leider kann ich dir durch meine Kenntnisse nicht sagen, woran es liegt.
https://www.herber.de/bbs/user/126999.xlsm
vielen Dank für deine Hilfe
Sebastian
AW: das geht standardmäßig nicht owT
22.01.2019 10:32:54
Sepp
Hallo Sebastian,
zuerst musst du natürlich die Sperre bei allen Zellen aufheben!
https://www.herber.de/bbs/user/127000.xlsm
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 10:50:08
Sebastian
Hallo Sepp,
ich habe den gesamten Zellschutz aufgehoben.
Ich weiß nicht woran es liegt.
Klappt es bei dir?
viele Grüße
Sebastian
AW: das geht standardmäßig nicht owT
22.01.2019 10:52:36
Sepp
Hallo Sebastian,
ja, bei mir klappt es.
Sobald in A oder B etwas eingegeben wird, werden die Zellen ab C gesperrt.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: das geht standardmäßig nicht owT
22.01.2019 10:57:20
Sebastian
Hallo Sepp,
ja es klappt! :)
jetzt habe ich es verstanden.
wow super.
vielen Dank für deine Geduld
Sebastian
AW: das geht standardmäßig nicht owT
22.01.2019 11:38:31
Sebastian
Hallo Sepp,
letzte Frage.
Ich habe aber diverse Spalten, die ebenfalls von mir per Hand gesperrt wurden.
Funktioniert der Code nur wenn der gesamte Zellschutz aufgehoben wurde?
Gruß
Sebastian
AW: Zellschutz Zeilen wenn in Spalte Wert
22.01.2019 12:32:07
Sebastian
Hallo zusammen,
ich hätte noch eine andere kleine Frage:
ich möchte in der bedingten Formatierung schreiben (benutzerdefiniert), dass wenn die Zelle größer als Null ist, eine Fehlermeldung erscheinen soll.
Leider ist in meiner Formel ein Fehler:
Hier bsp. für die Spalte M (M9), wenn in B:E ein größerer Wert als 0 eingetragen wurde.
=IF(B9:E9>0)
Danke und viele Grüße
Sebastian
Anzeige
AW: Zellschutz Zeilen wenn in Spalte Wert
22.01.2019 14:00:20
Sebastian
Korrektur: ich meinte nicht bedingte Formatierung sondern Datenüberprüfung.
AW: mit Datenprüfung möglich ...
22.01.2019 16:20:49
neopa
Hallo Sebastian,
... wenn z.B. ein Zahlenwerteingabe in M9 in Abhängigkeit Deiner Bedingung vorgenommen werden _ soll, dann definiere Zulassen zu "benutzerdefiniert" und als Formel gibst Du dazu ein: 

=M9*(MAX(B9:E9)

Gruß Werner
.. , - ...

304 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 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
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3