Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1704to1708
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
Inhaltsverzeichnis

S-Verweis Dateinamen unabhängig einfügen.

S-Verweis Dateinamen unabhängig einfügen.
01.08.2019 11:45:19
Pascal
Hallo zusammen,
Zu meiner Frage:
Ich möchte von einer Datei die immer unterschiedlich benannt ist einen S-Verweis automatisch zu einer anderen Datei ziehen die auch immer anders benannt ist.
Es wird vorher noch eine Pivo erstellt und das Ergebnis des S-Verweis aufsteigend sortiert.
Ich habe mal den Makro-Recorder mitlaufen lassen um euch zu zeigen was ich da genau mache.
  • Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "View Orders!R1C1:R18C20", Version:=6).CreatePivotTable TableDestination:= _
    "Tabelle1!R3C1", TableName:="PivotTable1", DefaultVersion:=6
    Sheets("Tabelle1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1")
    .ColumnGrand = True
    .HasAutoFormat = True
    .DisplayErrorString = False
    .DisplayNullString = True
    .EnableDrilldown = True
    .ErrorString = ""
    .MergeLabels = False
    .NullString = ""
    .PageFieldOrder = 2
    .PageFieldWrapCount = 0
    .PreserveFormatting = True
    .RowGrand = True
    .SaveData = True
    .PrintTitles = False
    .RepeatItemsOnEachPrintedPage = True
    .TotalsAnnotation = False
    .CompactRowIndent = 1
    .InGridDropZones = False
    .DisplayFieldCaptions = True
    .DisplayMemberPropertyTooltips = False
    .DisplayContextTooltips = True
    .ShowDrillIndicators = True
    .PrintDrillIndicators = False
    .AllowMultipleFilters = False
    .SortUsingCustomLists = True
    .FieldListSortAscending = False
    .ShowValuesRow = False
    .CalculatedMembersInFilters = False
    .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotCache
    .RefreshOnFileOpen = False
    .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Article Number")
    .Orientation = xlRowField
    .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("Shipped Qty"), "Summe von Shipped Qty", xlSum
    Windows("LBL_adi_CENTRAL_HDW_TEST.xlsx").Activate
    Range("A11").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(C[9],'[view_orders - 2019-08-01T112928.985.xlsx]Tabelle1'!C1:C2,2,0)"
    Range("List1[Spalte1]").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("LBL_HDW").ListObjects("List1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("LBL_HDW").ListObjects("List1").Sort.SortFields.Add2 _
    Key:=Range("List1[[#All],[Spalte1]]"), SortOn:=xlSortOnValues, Order:= _
    xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("LBL_HDW").ListObjects("List1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    Windows("view_orders - 2019-08-01T112928.985.xlsx").Activate
    End Sub

  • Der S-Verweis dazu sieht so aus:
  • =SVERWEIS(J:J;'[view_orders - 2019-08-01T112928.985.xlsx]Tabelle1'!$A:$B;2;0)

  • Ich hoffe ihr versteht was ich meine und könnt mir vielleicht sogar helfen.
    Danke & viele Grüße,
    Werner

    5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    Ich denke,....
    01.08.2019 23:31:45
    {Boris}
    Hi,
    ...dass Deine Frage durchaus beantwortet werden kann - es wird nur niemand besonders schlau daraus.
    Was hat der gesamte Coe mit der eigentlichen Frage zu tun?
    VG, Boris
    AW: Ich denke,....
    02.08.2019 07:27:21
    Pascal
    Ok schon mal gut zu hören das dies wahrscheinlich nicht unlösbar ist.
    Ich wollte mit dem Code nur zeigen was ich eben vor habe.
    Ich möchte eben 2 Dateien öffnen die vom Namen her immer unterschiedlich sind und diese 2 geöffneten Dateien mit immer den selben S-Verweis vergleichen.
    Also ich müsste hinbekommen das Excel mit den 2 geöffneten Dateien arbeitet egal wie sie benannt sind.
    Danke & viele Grüße,
    Werner
    Anzeige
    AW: Ich denke,....
    05.08.2019 14:31:09
    Pascal
    Hat keiner dazu eine Antwort?
    AW: Ich denke,....
    05.08.2019 22:39:52
    {Boris}
    Hi,
    bastel Deinen SVERWEIS in der Datei als STRING zusammen und füge diesen dann per VBA mit der Formula-Eigenschaft ein.
    VG, Boris
    AW: S-Verweis Dateinamen unabhängig einfügen.
    02.08.2019 07:04:08
    Pascal
    Entschuldigung für die Nachfrage aber ist sowas den nicht machbar?
    Also lohnt es sich danach für Lösungen zu suchen?

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige