Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz weg - Formeln in Werte umwandeln

Forumthread: Blattschutz weg - Formeln in Werte umwandeln

Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 16:16:00
Fritz_W
Hallo VBA-Spezialisten,
wie kann ich erreichen, dass beim Entfernen des Blattschutzes einer Tabelle, die in dieser Tabelle enthaltenen Formeln in ihre Werte "umgewandelt" werden.
Für eure Hilfe besten Dank im Voraus
Mfg
Fritz
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 18:30:00
P@ulchen
Hallo Fritz,
das Entfernen des Blattschutzes selbst kannst Du m.E. nicht abfragen, wohl aber, ob bei Zellaktivierung das aktive Blatt einen Schutz hat. Bin mir nicht sicher, ob das die eleganteste Lösung ist, sie funktioniert aber...
Füge den folgenden Code in das Modul DieseArbeitsmappe ein:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.ProtectContents = False Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Target.Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 18:42:47
Fritz_W
Hallo P@ulchen,
für meinen aktuellen Bedarf ist das Makro genau richtig. Vielen Dank!!!
Allerdings hab ich festgestellt, dass die Umwandlung der Formeln in allen Tabellen erfolgt, nicht nur in der Tabelle, deren Blattschutz entfernt wurde.
Kennst Du für eine Lösung, bei der sich die Umwandlung ausschließlich auf die betreffende Tabelle, bei der der Blattschutz aufgehoben wird, beschränkt?
Schönen Gruß
Fritz
Anzeige
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 18:53:00
P@ulchen
Hallo Fritz,
dann so:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.ProtectContents = False Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Target.Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 19:30:21
Horst
Hi,
getestet?
mfg Horst
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 19:40:00
P@ulchen
Hi,
ja.
mfg Paulchen
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 20:02:21
Fritz_W
Hallo Paulchen,
habe getestet. Jetzt bleiben die Formeln in allen Tabellen erhalten, die geschützt sind. Allerdings werden auch die Formeln in den Tabellen in Werte verwandelt, die nicht geschützt waren.
Es wäre natürlich super, wenn es möglich wäre, dass Umwandlung jeweils nur in der Tabelle vorgenommen wird, die geschützt war und deren Schutz aufgehoben wurde. Aber das scheint wohl sehr problematisch zu sein, oder?
Die zweite Lösung erlaubt mir jedoch auch schon zusätzliche Möglichkeiten!
Vielen Dank!
Gruß
Fritz
Anzeige
AW: Blattschutz weg - Formeln in Werte umwandeln
19.02.2007 20:14:57
P@ulchen
Hallo Fritz,
ok, hatte ich nicht bedacht...
Folgende Codes in DieseArbeitsmappe:
Option Explicit
Dim xVar As Boolean
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.ProtectContents = True Then
    xVar = True
Else
    xVar = False
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If xVar = False Then Exit Sub
If ActiveSheet.ProtectContents = False Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Target.Select
    xVar = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
Ja!!! - Das war`s
19.02.2007 20:23:00
Fritz_W
Hallo Paulchen,
so wollt ichs eigentlich haben! Großes Kompliment und vielen Dank!
Gruß
Fritz

Forumthreads zu verwandten Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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