Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht leere Zellen automatisch sperren

Nicht leere Zellen automatisch sperren
08.12.2005 09:59:28
HARRY
Hallo zusammen,
ich habe einen Eingabebereich mit definiertem Namen "Tabelle_Vermittlerdaten"(=B4:O50001).
Alle Zellen dieses Bereiches sind ungeschützt, damit mehrere USER hier Eingaben tätigen können.
Nach Qualitätssicherung durch mich möchte ich ein Makro starten, welches mir innerhalb des obengenannten Bereiches alle nicht leeren Zellen schützt.
Jetzt zu meiner Frage:
Gibt es einen einfachen VBA-Code (vielleicht auch eine Schleife), der folgendes kann:
1) Blattschutz raus
2) alle nicht leeren Zellen des obennannten Bereiches schützen
3) Blattschutz rein
4) Benutzer darf nur ungeschützte Zellen auswählen
Achtung ! Die Daten werden nachher sortiert, so dass sie nicht mehr an der selben Stelle stehen werden.
Anmerkung: Für Schleifen selbst zu entwerfen reicht mein selbst angeeignetes VBA-Wissen leider noch nicht aus.
Vielen Dank im voraus.
Gruß, HARRY

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht leere Zellen automatisch sperren
08.12.2005 10:55:31
Harald
Moin Harry,
der Code läuft halt ne zeitlang.

Sub Makro1()
Dim rng As Range
ActiveSheet.Unprotect
For Each rng In ActiveSheet.Range("B4:O50001")
If IsEmpty(rng) Then
rng.Locked = False
Else
rng.Locked = True
End If
Next rng
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Gruss Harald
AW: Nicht leere Zellen automatisch sperren
08.12.2005 11:04:56
HARRY
... egal hauptsache es funktioniert.
Ein großes Danke von HARRY an Harald.
Danke für die Rückmeldung oT
08.12.2005 11:06:15
Harald
Gruss Harald
Anzeige

322 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
text leer nichts machen
Achim

Hallo Excel Freunde
Wer kann doch mal schauen?
Was ist da Falsch? Wenn text box 38kein inhalt hatt soll auch nichts passieren. bekomme aber bei dieser schreibweise einen fehler.
If TextBox48 = "" Then ActiveCell.Offset(0, 6) = CDate(UserFormMitglieder.Frame1.TextBox48.Value) 'Austri...
04.12.2008 14:06:00
Thread-ID: 1030166
6 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 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
3
5
4
2
2
9
10
5
3
7
5
4
9
1
5
3
6
6
7
5
6
5
3
5
7