Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bearbeiten von nicht-gesperrten Zellen

Bearbeiten von nicht-gesperrten Zellen
27.08.2018 13:53:53
nicht-gesperrten
Hallo,
ich habe von extern ein Workbook mit schreibgeschützten Worksheets erhalten. In diesen Worksheets sind einige Zellen nicht gesperrt. Diese nicht-gesperrten Zellen möchte ich automatisiert befüllen.
Zu diesem Zweck habe ich ein weiteres Workbook erstellt und öffne von dort über VBA das erste Workbook. Wenn ich allerdings eine der nicht-gesperrten Zellen ansteuern möchte, erhalte ich immer die Fehlermeldung, dass die entsprechende Zelle schreibgeschützt sei.
Habt ihr eine Idee, wie ich das umgehen kann? Muss ich vielleicht beim Öffnen etwas beachten?
Viele Grüße
Christoph

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

Betreff
Datum
Anwender
Anzeige
wie ich das umgehen kann?
27.08.2018 14:20:50
Rudi
Hallo,
indem du alles richtig machst.
Zeig doch mal deinen Code.
Gruß
Rudi
AW: wie ich das umgehen kann?
27.08.2018 14:40:08
Christoph
Hi,
ich habe es mit verschiedenen Variationen des folgenden Codes versucht: 

Sub schreibeInZelle()
Dim ZielWB As Excel.Workbook
Set ZielWB = Workbooks.Open(ThisWorkbook.Path & "\Gesperrt.xls", , False)
ZielWB.Worksheets("Sheet 1").Range("K4").Value = "Hallo"
End Sub

das solte funktionieren, ....
27.08.2018 14:45:13
Rudi
.... falls K4 wirklich nicht gesperrt ist.
Gruß
Rudi
AW: das solte funktionieren, ....
27.08.2018 14:51:01
Christoph
Hi Rudi,
VBA wirft aber leider immer den Laufzeitfehler 1004 "Die Zelle oder das Diagramm, die bzw. das sie ändern möchten, ist schreibgeschützt".
Zum Vergleich: Wenn ich aus "Gesperrt.xls" per VBA die Zelle analog ändere, funktioniert es. Und per Hand kann ich in die Zelle auch einen beliebigen Text einfügen.
Gruß
Christoph
Anzeige
AW: das solte funktionieren, ....
27.08.2018 15:04:18
Christoph
Hi Rudi,
ich muss mich korrigieren. In dem einen externen Workbook war "K4" absurder Weise tatsächlich gesperrt.
Auf die nicht gesperrten Zellen kann ich mit dem obigen Code zugreifen. Das Problem liegt also nicht bei VBA sondern beim Absender der Datei.
Danke für die schnelle Unterstützung.
Viele Grüße
Christoph

108 Forumthreads zu ähnlichen Themen

Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Anzeige
Nicht gesperrte Zellen farblich hinterlegen
Loewelutz

Liebe Ex(cel)perten,
kleines Problem mit der Bitte um Hilfe:
Zur besseren Übersicht möchte ich in einer Tabelle nicht geperrte Zellen mit einer bedingten Formatierung farblich hinterlegen. Bei der Suche habe ich eine Formel für die Markierung gesperrter Zellen gefunden:
=ZELLE("Prot...
06.12.2009 19:47:44
Thread-ID: 1122090
3 Beiträge
Nicht gesperrte Zellen farblich hinterlegen
Loewelutz

Liebe Ex(cel)perten,
kleines Problem mit der Bitte um Hilfe:
Zur besseren Übersicht möchte ich in einer Tabelle nicht geperrte Zellen mit einer bedingten Formatierung farblich hinterlegen. Bei der Suche habe ich eine Formel für die Markierung gesperrter Zellen gefunden:
=ZELLE("Prot...
06.12.2009 20:04:13
Thread-ID: 1122093
5 Beiträge
Anzeige
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Ich kopiere mit einem Makro Zellbereiche von einer Tabelle in eine Andere (neue Datei).
Nach dem ich die neue Datei gespeichert habe kann ich in den Menüs Start - Schriftart / Ausrichtung / Zahl
Bereiche meiner neuen Tabelle markieren und formatieren - doch sobald ich...
16.08.2010 14:33:40
Thread-ID: 1172430
6 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Bei der angehängten Tabelle kann innerhalb des Datenbereichs plus 1 Zeile/Spalte (rot) nicht formatiert werden
Start - Schriftart / Ausrichtung / Zahl oder rechte Maustaste
Die Tabelle wurde mit einem Makro erstellt - auch Speicherung unter Office 2007 ändert nichts....
16.11.2010 10:28:31
Thread-ID: 1187005
3 Beiträge
Zahl als Text kann nicht in Zahl formatiert werden
Roger

Hallo zusammen
Ich muss aus einer Text Datei Zahlen in Excel übernehmen, dazu muss ich die Zellen als Text formatiert haben. Wenn ich danach die Textformatierte Zahl umwandeln will in eine Zahl kommt die falsche Zahl dabei raus. 5100933050860998 wäre die richtige Zahl es kommt jedoch 5.1009...
15.02.2011 21:50:49
Thread-ID: 1201044
3 Beiträge
Daten lassen sich nicht als Zahl formatieren
Ingo

Hallo, ich brauche mal wieder Hilfe!
Ich habe aus einem Stundenplanprogramm die Daten in Excel exportiert. Es werden Tabellen und Spalten angelegt. Die Werte in den Zellen lassen sich aber nicht berechnen! Ich habe versucht sie als Zahlen zu formatieren, aber ohne Erfolg. Hat jemand eine I...
19.11.2011 20:50:15
Thread-ID: 1238582
3 Beiträge
zellen lassen sich nicht mehr formatieren
michael

Hallo
ich habe eine excel tabelle mit der version 2003 erstellt. dort sind einige zellen frei andere geperrt und ein blattschutz mit kennwort.
wenn die daten eingetragen sind, wird ein macro gestartet dass den blattschutz aufhebt die zellen formatiert und rahmen einträgt danach wird wie...
08.02.2012 20:32:20
Thread-ID: 1249846
7 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
2
4
3
5
2
2
2
6
2
10
4
3
2
2
9
13
2
24
16
4
5
1
3