Thema Datum  Von Nutzer Rating
Antwort
Rot Datenaktualisierung / Pivot
22.02.2023 07:58:07 Gast53739
NotSolved
10.09.2023 15:37:13 Ben
Solved

Ansicht des Beitrags:
Von:
Gast53739
Datum:
22.02.2023 07:58:07
Views:
368
Rating: Antwort:
  Ja
Thema:
Datenaktualisierung / Pivot

Ich habe eine Exceltabelle mit Daten unserer Verkaufsabteilung.
Die Daten sind im Blatt "Sales" tabellarisch eingepflegt.
Diese Tabelle soll durch eine aktuellere Tabelle ersetzt werden (Die Datei kann man selbst auswählen - Sie wird dann richtig formatiert und ersetzt dann die Daten).
Das klappt bisher auch super und die Tabelle wird 1 zu 1 übernommen.

Nun kommt aber das Problem: In einem seperatem Blatt habe ich eine Pivottabelle (Blattname: SalesPT)
Immer wenn ich das Update durchführe zeigt mir die Pivottabelle plötzlich keine Daten mehr an, obwohl diese definitiv in der Tabelle auf Blatt "Sales" vorhanden sind.

Der Code sieht wiefolgt aus:

Sub Update()

'------------ DIESE MAPPE -------------

'Set Variable this worksheet
Dim ws As Worksheet

'Set Variable Update Worksheets
    'Define variables
    Dim currentWB As Workbook
    Set currentWB = ThisWorkbook
    Dim i As Long


'------------ SALES -------------
    
    Dim SalesDashboardSheet As Worksheet
    Dim SalesDashboardLastrow As Long
    Dim SalesDashboardWBPath As String

'Get the path of the workbook
    SalesDashboardWBPath = Application.GetOpenFilename("Excel Files (.xlsx),.xlsx", , "Wählen Siedie Liste für den Bereich - Sales - aus")
            If SalesDashboardWBPath = "Falsch" Then
            MsgBox ("Eine oder mehrere Dateien wurden nicht ausgewählt. Der Vorgang wird abgebrochen.")
    Exit Sub
        Else
    End If

'Open the workbook
    Set SalesDashboardWB = Workbooks.Open(SalesDashboardWBPath)

Application.DisplayAlerts = False
SalesDashboardWB.Activate

        
'Data Transform
        Columns("A:A").Select
   Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
        33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), _
        Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array( _
        46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), _
        Array(53, 1), Array(54, 1), Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array( _
        59, 1), Array(60, 1), Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1)) _
        , TrailingMinusNumbers:=True
    Selection.End(xlUp).Select
        Range("A1").Select
        
    'Data Select
        Range("A1").Select
        Dim xColIndex As Integer
        Dim xRowIndex As Integer
        xColIndex = Application.ActiveCell.Column
        xRowIndex = Application.ActiveSheet.Cells(Rows.Count, xColIndex).End(xlUp).Row
        Range(Cells(2, xColIndex), Cells(xRowIndex, "BM")).Select
        Selection.Copy
        Application.Wait (Now + TimeValue("00:00:01"))
        Selection.Copy
        
    currentWB.Activate
        Range("A1").Select
Worksheets("Sales").Activate

On Error Resume Next
    ActiveSheet.Cells.Select
    ActiveSheet.ShowAllData
On Error GoTo 0
    
Worksheets("Sales").Activate
        Range("A2").Select
        
        If Application.CutCopyMode = False Then
    MsgBox "Das Clipboard ist leer. Bitte kopieren Sie zuerst die Daten. (Sales)"
    Exit Sub
    End If
        ActiveSheet.Paste
        Range("A1").Select

    SalesDashboardWB.Close Savechanges:=False
end sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datenaktualisierung / Pivot
22.02.2023 07:58:07 Gast53739
NotSolved
10.09.2023 15:37:13 Ben
Solved