Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellschutz ein-aus aufgrund Spalte 3

VBA Zellschutz ein-aus aufgrund Spalte 3
HorstH
Hallo nette Leute im Forum,
wer kann mir mit einem VBA weiterhelfen:
Ab Zeile 3 soll - solange in Spalte 3 etwas steht - kein Zellschutz für die Spalten 15 bis 76 sein. Anders: solange in C etwas steht (aber erst ab Zeile 3), soll in gleicher Zeile von Spalte 15 bis 76 kein Zellschutz vorhanden sein.
Wer hat so etwas oder hilft mir bitte weiter. Hab's mit for next versucht - aber fehlerhaft. Hilfe wäre prima. Danke.
Gruß
Horst

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Zellschutz ein-aus aufgrund Spalte 3
16.02.2006 08:46:05
Harald
Hi Horst,
Spalte C alle Zellen freigeben und diesen Code ins Blattmodul
Ggf den Bereich für CountA anpassen (CountA = Funktion Anzahl2)
Passwort ist: Test

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If WorksheetFunction.CountA(Range("c1:c10000")) > 0 Then
ActiveSheet.Unprotect "Test"
Range("O" & Target.Row & ":BX" & Target.Row).Locked = False
ActiveSheet.Protect "Test"
Else
ActiveSheet.Unprotect "Test"
Range("O" & Target.Row & ":BX" & Target.Row).Locked = True
ActiveSheet.Protect "Test"
End If
End If
End Sub

Gruss Harald
Anzeige
AW: VBA Zellschutz ein-aus aufgrund Spalte 3
16.02.2006 09:30:25
HorstH
Hallo Harald,
danke für deine Antwort. Etwas muss ich noch verkehrt machen.
Beispiel:
https://www.herber.de/bbs/user/31082.xls
Irgendwie greift es nicht - hätte es gern so, dass col 15 bis 76 unprotected sind, wenn in col 3 ab row 3 etwas steht. Habe mehrmals probiert - was mache ich verkehrt? Bist du bitte so freundlich und schaust noch einmal, denn ich habe in jeder Mappe 12 Monatsregister. Davon 8 Mappen, die jedoch variablen Inhalt in C haben; mal 5 Zeilen, mal 422 ...
Bin sehr darum verlegen - habe bisher per Hand einen ca.-Bereich angelegt, aber da sich die Zeilenanzahl (für die jeweilige Mappe) auch ändern kann, wäre es schon sehr hilfreich, dies über VBA zu handeln. Wäre für weitere Hilfe dankbar!!
Gruss
Horst
Anzeige
AW: VBA Zellschutz ein-aus aufgrund Spalte 3
16.02.2006 10:01:01
Harald
Hallo Horst,
zuerstmal muss der Code ins Blattmodul (und zwar in jedes !! Blatt, dass die Funktion erhalten soll) und nicht ins Arbeitsmappenmodul.
Zweitens prüft mein ursprünglicher Code nur, ob überhaupt was in der gesamten !!! Spalte C (also Zeile 3 bis 10000) steht und gibt dann die Zeile der letzten Änderung frei.
Jetzt hab ich das so umgesetzt, dass er alle Zeilen freigibt, die eine gefüllte Zelle in Spalte C aufweisen (Leerzeichen gilt auch als gefüllt)
https://www.herber.de/bbs/user/31084.xls
Gruss Harald
AW: VBA Zellschutz ein-aus aufgrund Spalte 3
16.02.2006 10:16:39
HorstH
Hallo Harald,
hatte ich zuvor ins Blatt getan, aber da ich nicht den Erfolg feststellte, war ich als Anfänger unsicher und fügte es in dieseArbeitsmappe ein. Aber nun hast du mir genau mit dem geholfen, was ich beabsichtigte. Danke. Ausgetestet und für super befunden. Danke dir, Harald.
Gruss
Horst
Anzeige
gern geschehen ;-))...geschlossen owT
16.02.2006 10:24:18
Harald
Gruss Harald

300 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
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
4
7
5
2
1
4
2
4
8
3
3
2
10
6
7
7
15
4
4
16
5
8
6
5
2