Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2025 17:54:09
VERGLEICH in VBA bei Daten auslesen
17.05.2025 07:53:06
Excel 2 Spalten vergleichen
16.05.2025 20:26:36
Frage zur Darstellung von MIN und MAX aus Tabelle 2
16.05.2025 19:04:59
Summenprodukt / Zählenwenn, ausser bestimmter Zeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro geht mit Blattschutz nicht - trotz unprotect

Forumthread: Makro geht mit Blattschutz nicht - trotz unprotect

Makro geht mit Blattschutz nicht - trotz unprotect
23.10.2008 16:41:43
donald
Hallo,
ich hab nochmal eine Frage. Ich hab ein paar Zellen meines Blatts mit dem Blattschutz ausgestattet. Und jetzt funktioniert mein Makro nicht, obwohl ich protect/unprotekt ins Makro reingeschrieben habe: 

Sub FarbeSortieren()
ActiveSheet.Unprotect Password:="esm-win"
Range("S12:S160").Select
Application.Run "'Vorlage LongList_20080903_MR.xls'!FarbCodes"
Range("A12:AZ160").Sort Key1:=Range("T12"), Order1:=xlAscending, Key2:=Range("F12" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
' dieses Makro wendet das Makro "Farbcodes" an und sortiert die Spalte T, so dass
' die Farbcodes und damit die Farben sortiert werden.
ActiveSheet.Protect Password:="esm-win"
End Sub


Was habe ich denn da falsch gemacht, weiß das jemand?
Grüße

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Makro
Tags
#blattschutz #makro-fehler #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Makro geht mit Blattschutz nicht - trotz unprotect
23.10.2008 17:37:00
Jens
Hi,
ohne den Code :
Application.Run "'Vorlage LongList_20080903_MR.xls'!FarbCodes"
wird Hilfe kaum möglich sein.
mfg Jens
AW: Makro geht mit Blattschutz nicht - trotz unprotect
24.10.2008 08:32:00
donald
Wie meinst du das?
AW: Makro geht mit Blattschutz nicht - trotz unprotect
24.10.2008 08:39:20
donald
Ach so, du willst den Code, sorry: 

Sub FarbCodes()
ActiveSheet.Unprotect Password:="esm-win"
Dim rZelle  As Range
For Each rZelle In Selection
Select Case rZelle.Interior.ColorIndex
Case 4:  rZelle.Offset(0, 1).Value = 1
Case 2:  rZelle.Offset(0, 1).Value = 4
Case 46: rZelle.Offset(0, 1).Value = 2
Case 3:  rZelle.Offset(0, 1).Value = 3
Case Else:  rZelle.Offset(0, 1).Value = 4
End Select
' Programm setzt neben die Spalte S (Bemerkung)in die Spalte T (Farbcode) einen Farbcode,
' wobei diesen ein anderer Wert zugewiesen wird (grün kriegt den Wert 1, orange 2, rot 3,
' und weiß sowie alles andere 4)
Next rZelle
ActiveSheet.Protect Password:="esm-win"
End Sub


Der funktioniert aber...

Anzeige
AW: Makro geht mit Blattschutz nicht - trotz unprotect
24.10.2008 08:57:36
donald
Danke, hat sich erledigt. Hab´s hingekriegt.

Forumthreads zu verwandten Themen

Makro geht und geht doch nicht
David

Hallo VBA-Profis,
ich wollte einem anderen Forumsmitglied hier helfen und habe auch alles soweit hinbekommen, aber an einem Problem bin ich gerade verzweifelt.
In der Datei:
Die Datei https://www.herber.de/bbs/user/55435.xls wurde aus Datenschutzgründen gelöscht
wird beim Änder...
16.09.2008 15:02:10
Thread-ID: 1010129
9 Beiträge
makro geht nicht
donald

Hallo liebe Helfer,
ich hab hier ein Makro, das Farben sortiert. Das Problem ist jetzt, dass die Datei als Vorlage dienen soll und damit der NAme der Vorlage geändert wird und in dem Makro aber der Name der Vorlage drin ist. Das heißt, dass Makro funktioniert nicht mehr, sobald die Datei u...
12.12.2008 08:57:19
Thread-ID: 1032278
8 Beiträge
Zielwertsuche Makro geht nicht
Bastian

Hallo Leute,
beim Starten des Makros
Sub schleife()
   Dim rng As Range
   For Each rng In Range("I13:I200").Cells
      rng.GoalSeek Goal = 0,  ChangeingCell:=rng.Offset(0, &...
09.01.2009 13:46:00
Thread-ID: 1038219
10 Beiträge
Druckmakro geht nicht
lutz

Hallo Excel-Profis.
ich versuche ein Druckmakro zu schreiben, dass schneller geht als die normale Funktion.
Sub PrintF1() Dim Head1 As String Dim Foot1 As String Head1 = "________&8& chr(10)& Text& Seite &P/&N, Date &D; &T Uhr" Foot1 = "Testfoot" Execut...
27.03.2009 11:18:20
Thread-ID: 1064534
7 Beiträge
Makro in Vista geht nicht
ReSt

Hallo
ich habe nun ein Problem welches ich nicht verstehe.
Unten steht ein Makro welches in Windows XP funktionierte. Das heisst es kam ein Speichern unter Dialogfeld welches schon mit dem Namen und dem Dateityp ausgefüllt war.
Jetzt wo ich Windows Vista verwende, bekomme ich nur no...
10.07.2009 08:48:59
Thread-ID: 1087252
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Makro geht nach Blattschutz nicht mehr
Reimund

Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bi...
23.09.2009 15:24:10
Thread-ID: 1104971
5 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 Beiträge
Makro aus Excel 2003 geht in Excel 2007 nicht - Bi
Joe

Hallo zusammen,
hab folgendes Mkro:
----------------------------------------------- Sub Bilder_einfügen() Dim Pfad As String, Wiederholungen As Long On Error Resume Next Pfad = "I:\Allgemein\Organisationshandbuch\6 Marketing\Bilddatenbank\" For Wiederholungen = 2 To Range("A65536").E...
02.12.2009 21:45:59
Thread-ID: 1121481
7 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
CSV einlesen per Makro geht nicht richtig
Cello

Hallo Leute.
Ich habe seit einiger Zeit n kleines Problem mit dem einlesen einer CSV-Datei über ein Makro in Excel. Die Datenbank aus der ich die CSV-Datei erhalten habe wurde durch eine andere ersetzt und in dem Zuge wurde auch der Inhalt der CSV ein klein wenig geändert. Ich habe in der Z...
20.01.2010 09:50:41
Thread-ID: 1131225
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige