Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll nur laufen wenn Datei schreibgeschützt

Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 15:24:17
Claus
Hallo,
hiermit bitte ich um eure Mithilfe:
Ein Makro (den ich schon per Aufzeichnung habe) ändert mittels suchen/ersetzen einige Zellen ab. Dieser soll aber nur dann ablaufen, wenn 2 Bedingungen erfüllt sind:
Die aktuelle Datei ist schreibgeschützt. (Damit ich nicht meine Ausgangsdaten versehentlich ändere)
Der zu ersetzende Begriff ($G:$S;XXX) kommt in Zeile 2 genau 9 mal vor. (teilweise mehrfach in einer Zelle)
Vielen Dank schon mal

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 15:36:04
Rudi
Hallo,
etwa so:

Sub tt()
Dim strErsetz As String, c As Range, strTemp As String, n As Integer
strErsetz = "$G:$S;XXX"
For Each c In Rows(2).Cells
strtmp = strTemp & c.FormulaLocal
Next c
n = (Len(strTemp) - Len(Replace(strTemp, strErsetz, ""))) / Len(strErsetz)
If n = 9 And ThisWorkbook.ReadOnly Then
'dein Code
End If
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 16:11:22
Claus
Hallo Rudi,
vielen Dank.
Teilerfolg: Schreibschutz ist o.k, das mit den 9 Ersetzungen klappt noch nicht.
Leider muss ich jetzt dringend weg, da muss ich morgen weiter testen...
Grüßle Claus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige