Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Formel mit Werte ersetzen

Makro für Formel mit Werte ersetzen
24.06.2005 07:35:54
Otto
Guten Morgen Exerten,
ich habe folgendes Problem:
Ich brauche ein Makro, das in einer Datei alle Tabellenblätter durchläuft und in allen Zellen, die die Formel =MENUE2005(.... enthalten, die Formel durch die entsprechende Werte ersetzt.
Die Formeln die ich durch Werte ersetzt brauche sind alle unterschiedlich aber alle fangen mit =MENUE2005(.... an.
Kann mir jemand damit helfen?
Vielen Dank im Voraus
Otto

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Formel mit Werte ersetzen
24.06.2005 07:44:15
Matthias
Hallo Otto,

Sub ErsetzeFormeln()
Dim ws As Worksheet
Dim z As Range
For Each ws In ActiveWorkbook.Sheets
For Each z In ws.Cells.SpecialCells(xlCellTypeFormulas)
If Left(z.Formula, 11) = "=MENUE2005(" Then
z.Value = z.Value
End If
Next z
Next ws
End Sub

Gruß Matthias
AW: Makro für Formel mit Werte ersetzen
24.06.2005 08:05:03
Otto
Hallo Matthias,
vielen Dank für die schnelle Antwort.
Das Makro funktioniert allerdings noch nicht. Es stoppt bei der Zeile:
For Each z In ws.Cells.SpecialCells(xlCellTypeFormulas)
Muss ich irgendie die Zellen im voraus markieren oder was soll ich tun?
DAnke
Otto
Anzeige
AW: Makro für Formel mit Werte ersetzen
24.06.2005 08:09:12
Matthias
Hallo Otto,
ups, stimmt, der Fehler tritt auf wenn im Blatt keine Formeln stehen.
Neuer Code:

Sub ErsetzeFormeln()
Dim ws As Worksheet
Dim z As Range, Ber As Range
For Each ws In ActiveWorkbook.Sheets
Set Ber = ws.Cells.SpecialCells(xlCellTypeFormulas)
If Not Ber Is Nothing Then
For Each z In Ber
If Left(z.Formula, 11) = "=MENUE2005(" Then
z.Value = z.Value
End If
Next z
End If
Next ws
End Sub

Gruß Matthias
Korrektur: Makro für Formel mit Werte ersetzen
24.06.2005 08:10:54
Otto
Hi wieder,
eine kleine Bemerkung: doch, das Makro ersetzt die Formel aber gibt trotzdem wie oben beschrieben den Fehler "No cells found".
Wie kann ich das vermeiden?
DAnke
Otto
Anzeige
siehe oben - o.T.
24.06.2005 08:12:38
Matthias
-
AW: siehe oben - o.T.
24.06.2005 08:23:25
Otto
Hi,
Die gleiche Fehlermeldung kommt wieder, auch mit dem neuen Code....
Und noch eine Frage: Ich habe bemerkt dass manchmal die Formel mit =+ anfängt
z.B: =+MENUE2005
Lässt sich das auch einbauen?
Danke
Otto
Otto
AW: Makro für Fomel mit Werte ersetzen
24.06.2005 08:31:56
Matthias
Hallo Otto,
ich verstehe nicht, dass da immer noch eine Fehlermeldung kommt.
zu dem =+MENUE...

Sub ErsetzeFormeln()
Dim ws As Worksheet
Dim z As Range, Ber As Range
For Each ws In ActiveWorkbook.Sheets
Set Ber = ws.Cells.SpecialCells(xlCellTypeFormulas)
If Not Ber Is Nothing Then
For Each z In Ber
If Left(z.Formula, 11) = "=MENUE2005(" Or Left(z.Formula, 12) = "=+MENUE2005(" Then
z.Value = z.Value
End If
Next z
End If
Next ws
End Sub

Gruß Matthias
Anzeige
AW: Makro für Fomel mit Werte ersetzen
24.06.2005 08:39:48
Otto
Hi Matthias,
Vielen Dank für die Ergänzung.
Es ist ganz komisch - das Makro erfüllt die Aufgabe aber dann kommt die Meldung
"No cells were found" bei
Set Ber = ws.Cells.SpecialCells(xlCellTypeFormulas)
Aber auf jeden Fall nochmals herzlichen Dank
Otto
AW: Makro für Fomel mit Werte ersetzen
24.06.2005 08:46:20
Matthias
Hallo Otto,
so müsste es klappen:

Sub ErsetzeFormeln()
Dim ws As Worksheet
Dim z As Range, Ber As Range
For Each ws In ActiveWorkbook.Sheets
Set Ber = Nothing
On Error Resume Next
Set Ber = ws.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not Ber Is Nothing Then
For Each z In Ber
If Left(z.Formula, 11) = "=MENUE2005(" Or Left(z.Formula, 12) = "=+MENUE2005(" Then
z.Value = z.Value
End If
Next z
End If
Next ws
End Sub

Gruß Matthias
Anzeige
AW: Makro für Fomel mit Werte ersetzen
24.06.2005 10:08:03
Otto
Ja! Diesmal klappt es! Perfekt!
Danke, Matthias!!!
Otto

307 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
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
7
4
1
4
2
5
1
2
1
6
6
2
17
6
6
6
6
2
3
5
6
7
2
4
2