Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Mappe Formeln d. Werte ersetzen +Farben elimin.

in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 12:41:09
Peter
Guten Tag
Ich habe eine File mit verschiedenen Tabellen in welchen viele Formeln und Farben enthalten sind.
Nun möchte ich mit einem Makro in allen Tabellen sämtliche Formeln in Werte umwandeln und die Farben (Schriftfarbe und Füllfarbe eliminieren.
Kann mir jemand weiterhelfen, wie dies am besten angepackt wird?
Danke!
Peter

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 13:06:21
{mskro}
Hallo Peter,
markiere am besten das ganze Tabellenblatt, gehe dann auf Kopieren und füge nur die Werte wieder ein (über "Inhalte Einfügen", "Werte"). Danach kannst du die Farben der Schrift und des Hintergrundes ändern.
Zeichne dir das ganze nun mit dem Makrorekorder auf und du hast das Makro.
-FERTIG-
Gruss Manfred
Rückmeldung wäre nett!
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 13:10:31
ralf
Hi Peter,
folgenden Code in ein allgemeines Modul einfügen:

Sub Durchlauf()
Dim x As Byte, zelle, Bereich$, ende$
For x = 1 To Sheets.Count
ende = Sheets(x).Range("A1").SpecialCells(xlLastCell).Address
Bereich = "A1:" & ende
For Each zelle In Sheets(x).Range(Bereich)
Neu = zelle.Value
With zelle
.Value = Neu
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Next
Next x
End Sub

Ciao, Ralf
Anzeige
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 13:39:23
Peter
Hallo Ralf
Vielen Dank für den Code. So was habe ich gesucht (kann ja dann in jeder x-beliebigen Datei abgespielt werden.
Eine Frage habe ich noch: "Neu" ist nicht dimensioniert. Um was für einen Datentyp muss es sich handeln?
Danke für Rückmeldung!
Peter
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 13:57:35
Hugo
Hallo,
ich sag mal vorsichtig: Der Code ist optimierungsfähig. Es ist nicht nötig, alle Zellen einzeln abzuklappern.
Option Explicit

Sub til()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
With Ws.UsedRange
.Value = .Value
.Font.ColorIndex = 0
.Interior.ColorIndex = xlNone
End With
Next Ws
Application.ScreenUpdating = True
End Sub

Sollte die selbe Aufgabe in einem Bruchteil der Zeit erledigen.
Hugo
Anzeige
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 14:30:57
Ralf
Hi Hugo,
da musst Du nicht vorsichtig sein. Dein Code IST schneller...:-)
Ciao, Ralf
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 15:28:57
Peter
Hallo Hugo
Danke vielmals.
Ich habe nun noch zwei Anschlussfragen:
Ich habe festgestellt, dass die Farben bei mir teilweise über die bedingte Formatierung gesteuert werden. Kann ich diese auch "im vereinfachten Verfahren" löschen?
Angenommen, ich möchte in allen Tabellen jede Zeile löschen, die in Spalte A eine Eins (1) enthält. Da wird mir wohl nichts übrig bleiben, als die Zeilen einzeln abzuspulen, wie im Beispiel von Ralf?
Nochmals besten Dank für das Feedback.
Peter
Anzeige
AW: in Mappe Formeln d. Werte ersetzen +Farben elimin.
27.06.2006 17:40:16
Peter
Hallo
Für die Entfernung aller bedingten Formatierungen habe ich eine Lösung gefunden. Folgende Zeile muss im nachstehenden Code integriert werden.
.FormatConditions.Delete
Falls ich die Frage bezüglich Löschen von Zeilen nicht selber fündig werde, werde ich einen neuen Thread eröffnen.
Vielen Danke für jede Unterstützung.
Peter

Sub til()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
With Ws.UsedRange
.Value = .Value
.Font.ColorIndex = 0
.Interior.ColorIndex = xlNone
.FormatConditions.Delete
End With
Next Ws
Application.ScreenUpdating = True
End Sub

Anzeige

301 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Anzeige
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 20:57:43
Thread-ID: 1097849
2 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 15:13:40
Thread-ID: 1142750
4 Beiträge
SVERWEISE finden und durch Werte ersetzen
grexx123

HAllo,
wie schon im Betreff beschrieben suche ich ein VBA-Schnipsel, das
1. Alle Sverweise sucht
2. Zellen, in denen ein SVERWEIS steht, mit "Wert" füttern (also kopieren und als Wert einfügen)
Ich weiß, dass man Verknüpfungen lösen kann, jedoch habe ich sowohl die Formel als au...
08.03.2010 13:25:36
Thread-ID: 1144304
6 Beiträge
Formeln in Zellen durch VBA ersetzen
Kuhlmey

Hallo, liebe Excel-Freunde ich habe folgendes Problem:
Mittels VBA setzte ich durch Doppelclick ein „X“ in bestimmte Zellen. Diese Zellen werden
ausgelesen und für nachfolgende Formel benötigt:
{=WENN(ZEILE()>ZÄHLENWENN(Tabelle1!A:A;"WAHR");"";INDEX(Tabelle1!B:B; KKLEINSTE(WENN(...
13.03.2010 14:03:05
Thread-ID: 1145598
18 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
17
3
6
4
1
2
3
5
17
2
6
10
3
4
7
8
10
9
2
1
5
13
2
3