Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nicht geschützte zellen finden

nicht geschützte zellen finden
18.01.2005 09:45:20
Bernd
hallo und einen schönen guten morgen,
ich habe folgende frage:
ist es möglich, per vba sämtliche zellen in einem arbeitsblatt zu markieren,
die nicht geschützt sind?
ich habe nämlich eine statistik die sich von a1-ce461 erstreckt.
in dieser statistik sind aber nur einige zellen nicht geschützt, um eingaben
machen zu können.
ich wollte nun ein butten erstellen, der bei klick sämtlichen inhalt der
nichtgeschützten zellen löscht.
wollte aber nicht jede zelle einzelnt ansprechen.
vielen dank für eure hilfe
cu bernd

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

Betreff
Datum
Anwender
Anzeige
AW: nicht geschützte zellen finden
c0bRa
hallo ;)
wenn ich jetzt nur müll laber, ignorier den beitrag ;)
springt excel nicht automatisch in die nächste ungeschützte zelle, wenn man tab drückt?
wenn ja, kannst ja ne schleife bauen, die 1x komplett durch deinen bereich springt und jeden inhalt der zelle löscht, solange bis sie wieder oben ankommt.
wenn nein, alle zellen durchlaufen, schauen ob zellschutz aktiv, und löschen, oder alle zellen durchlaufen und alle löschen, wenn der blattschutz auch via VBA das löschen von geschützten zellen verhindert.
c0bRa
AW: nicht geschützte zellen finden
18.01.2005 10:19:24
Bernd
hallo c0bRa
ja stimmt, bei druck auf tab springt mann in dei nächste ungeschützte zelle.
bin aber wohl zu blöd mir jetzt ne schleife zu bauen, die oben anfängt, einmal den bereich durchläuft und wenn sie wieder ober angekommen ist aufhört.
kannst du oder jemand anderes mich da unterstützen?
vielen dank
cu Bernd
Anzeige
AW: nicht geschützte zellen finden
u_
Hallo,
geht doch rasend schnell:

Sub killcontents()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Sheets(1).Range("A1:CE461").Cells
If r.Locked = False Then r.ClearContents
Next r
Application.ScreenUpdating = True
End Sub

Gruß
jep ^^, vielen dank
18.01.2005 10:34:42
Bernd
.
AW: nicht geschützte zellen finden
Werner
Bernd , hatte die gleiche Frage am 17. gestellt und von Herbert eine Lösung bekommen, die bei mir sehr gut funktioniert.

Sub ung_Zellen-Löschen()
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:z1000]
For Each c In ber
If c.Locked = False Then
c.ClearContents
End If
Next
End Sub

mfg Werner
Anzeige

303 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 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
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 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
3
5
5
4
2
2
2
4
15
4
9
9
7
12
7
8
4
3
3
4
5
1
2
1