Formelergebnis in Text umwandeln

Hallo Kerem,
also Makro entweder:


Sub WertEinfuegen()
Dim i As Long
For i = 2 To ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row
ActiveSheet.Cells(i, 7).Value = ActiveSheet.Cells(i, 7).Value
Next i
End Sub

oder:


Sub WertEinfuegen2()
ActiveSheet.Range("G1:G" & ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row).Value = _
ActiveSheet.Range("G1:G" & ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row).Value
End Sub

Man könnte das auch insgesamt ins Makro bringen, sprich erst die Formel als Makro einfügen und dann in Wert umwandeln.
Ach ja: Das Makro gehört in ein allgemeines Modul (im VBA-Fenster, rechte Maus, Einfügen, Modul) und das verknüpfst du dann mit einem Button oder was auch immer du willst.
Gruß Pierre

Hi
Ein Problem zu finden, das du selber nicht darstellen kannst, ist schon etwas viel verlangt.
Trotzdem habe ich mal aufgeräumt, wobei mir auffiel, dass zuerst die Berechnung stattfindet und nachträglich noch die Duplikate entfernt werden. Ich habe die Reihenfolge mal umgedreht.


Sub Katalogliste_formatieren()
Dim MyListObj As ListObject
Application.ScreenUpdating = False
With ActiveSheet
Application.DisplayAlerts = False
.Columns(1).TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
Application.DisplayAlerts = True
Set MyListObj = ActiveSheet.ListObjects.Add(xlSrcRange, .UsedRange, , xlYes)
End With
With MyListObj
.TableStyle = "TableStyleLight8"
.Range.Replace What:="Ã", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
.Range.RemoveDuplicates Columns:=6, Header:=xlYes
.ListColumns("[Bestellauftrag] Kunden Email").Name = "Email Adresse"
.ListColumns("[Bestellauftrag]KÃ¤uferabteilung (ID der Einkaufsorganisation)").Name = "EkOrg"
.ListColumns("[Bestellauftrag] Bestellnummer").Name = "Bestellnr."
.ListColumns("[Bestellauftrag]Lieferant (ERP-Lieferant)").Name = "Lieferant"
.ListColumns("[Bestellauftrag]Bestelldatum (Datum)").Name = "Datum"
.ListColumns("[Bestellauftrag]Anforderer (Benutzer)").Name = "Vorname Nachname"
.ListColumns("[Bestellauftrag] Beschreibung").Name = "Artikel"
.ListColumns("sum(Bestellauftragsausgaben)").Name = "Bestellwert"
With .ListColumns(7)
.Name = "Bestellungen"
.DataBodyRange.Formula = "=COUNTIF([Email Adresse],@[Email Adresse])"
.DataBodyRange.Value = .DataBodyRange.Value
End With
.Range.AutoFilter Field:=1, Criteria1:=Array("2101", "300", "380"), Operator:=xlFilterValues
End With
Application.ScreenUpdating = True
End Sub

cu
Chris

Forumthread: Formelergebnis in Text umwandeln

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial