AW: Formelergebnis in Text umwandeln
22.04.2022 13:23:50
ChrisL
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