Formeln in Werte umwandeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Vorname, ( zu Vornamen und Nicknames schau bitte mal in die Forums-FAQ )
"habe ich die Formeln für die komplette Tabelle übernommen"
Was bedeutet das konkret? Die "komplette Tabelle" hat seeeeehr viele Zellen...

"ein Makro erstellt das die Formeln in Werte umwandelt, wenn die Tabelle gespeichert wird"
Ist das vielleicht ein BeforeSave-Makro? Zeigst du uns das?
"dass das Makro alle Formeln berechnet, auch die, die keine Werte haben"
JEDE Formel hat einen Wert. Auch z. B. "" oder 0 oder #DIV/0! sind Werte.
Es gibt also keine Formeln ohne Wert, die man von der Berechnung ausschließen könnte.
Wenn berechnet wird, dann alle Formeln eines Tabellenblatts.
Und: Nicht das Makro berechnet die Werte, sondern Excel. Ein Makro kann die Berechnung anstoßen.
"Es muss auf jeden Fall so sein, dass die Formel für die ganze Tabelle gespeichert wird"
Das glaube ich nicht. Das Gewünschte ließe sich sehr wahrscheinlich einfacher erreichen.
Kannst du uns dein Problem hiernach etwas genauer beschreiben?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort (so ein Gruß am Ende schadet nicht)

Hallo Erich.
Also ich weiß, dass Excel viele Zellen hat.
Ich habe die Formel für drei komplette Spalten übernommen. Bis es nicht mehr geht.
Es ist ein BevoreSave. Hier:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim zell As Range
With Tabelle1
On Error GoTo ENDE
For Each zell In .UsedRange.SpecialCells(xlCellTypeFormulas)
If Trim(zell.Text)  "" Then zell.Value = zell.Value
Next
End With
ENDE:
If Err.Number  0 Then _
MsgBox "Fehler: " & Err.Number & " " & _
Err.Description, , "Formeln?"
End Sub

______________________
Das Problem:
Tabelle 1 ist eine Liste die immer fortgeführt wird. Da werden z.b. Lieferantennamen, Datum, Warenwert, usw. eingetragen. Um wiederkehrende Informationen nicht jedesmal erneut schreiben zu müssen habe ich den SVERWEIS aus der Tabelle 2 gemacht, wo alle Lieferanten mit den Namen, Zahlungbedingungen usw. ausgefährt sind. Damit, falls jemand was aus der Tabelle 2 löscht oder ändert, nicht alles in der Tabelle 1 ändert, wollte ich, dass die Formeln in Werte umgeschrieben werden.
Doch ist es zu aufwändig immer die Zellen zu makieren und dann als Werte wieder einzufügen.
Deswegen habe ich dann den Makro geschrieben.
Jetzt berechnet aber Excel alle Formeln die ich geschrieben habe.
Und da ich ja schon erwähnt habe, dass ich drei Spalten Komplett mit Formeln habe.
Dauert der Vorgang sehr, sehr lange.
Gruß
alias2k

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim zell As Range With Tabelle1 On Error GoTo ENDE For Each zell In .UsedRange.SpecialCells(xlCellTypeFormulas) If Trim(zell.Text) "" Then zell.Value = zell.Value Next End With ENDE: If Err.Number 0 Then _ MsgBox "Fehler: " & Err.Number & " " & _ Err.Description, , "Formeln?" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLief As Range, rngB As Range, rngC As Range Set rngB = Intersect(Target, Cells(2, 3).Resize(Rows.Count - 1)) If Not rngB Is Nothing Then With Sheets("Tabelle2") Set rngLief = .Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With For Each rngC In rngB If IsEmpty(rngC) Then Cells(rngC.Row, 4).ClearContents Cells(rngC.Row, 14).ClearContents Cells(rngC.Row, 18).ClearContents Else Cells(rngC.Row, 4) = Application.VLookup(rngC, rngLief, 2, 0) Cells(rngC.Row, 14) = Application.VLookup(rngC, rngLief, 4, 0) Cells(rngC.Row, 18) = Application.VLookup(rngC, rngLief, 3, 0) End If Next rngC End If End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formeln in Werte umwandeln

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

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread