Office: Problem mit Makro zur Ergebnisauswertung

Helfe beim Thema Problem mit Makro zur Ergebnisauswertung in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, Ich möchte aus der Warenwirtschaft heraus Quartalsweise eine Umsatzstatistik für die Artikel machen. Ich habe das Makro... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von SMV_MYL, 7. Juli 2010.

  1. SMV_MYL
    SMV_MYL Neuer User

    Problem mit Makro zur Ergebnisauswertung


    Hallo Zusammen,

    Ich möchte aus der Warenwirtschaft heraus Quartalsweise eine Umsatzstatistik für die Artikel machen.

    Ich habe das Makro ursprünglich für Quartal 1 2010 angelegt, wollte es nun auf das erste Halbjahr anwenden.

    In der Ausgegebenen Datei findet man Verkaufte Artikel, nach Belegnummer und Kunde aufgeschlüsselt, Vertriebsgebiet, Listenpreis, verkaufte Menge und Artikelnummer den jeweiligen Belegen zugeordnet

    1. Die Tabelle wird um Verrechnungsmenge und Verrechnungswert erweitert

    2. Es wird ein Tabellenblatt erstellt, in dem die Artikelnummer, die dazugehörige verkaufte Menge und die Gesamtsumme des Artikels aufgelistet wird.

    An dieser Stelle tritt mein Problem auf.

    Wenn ich den zweiten Schritt ausführe, werden alle Artikel aufgelistet.
    Ab der Hälfte der Artikel, werden diese doppelt aufgeführt, allerdings am Ende der Tabelle, mit Wert 0

    Den Code gebe ich sicherheitshalber mit an!

    Ich bin für jede Hilfe sehr dankbar !!!

    Schöne Grüße

    Jan M.


    CODE
    Code:
    Sub Artikelstatistik_über_Zeitraum()

' Übergabetabelle aus Selectline um Spalten erweitern

    Sheets("Spalte 1 bis 11").Select
    Sheets("Spalte 1 bis 11").Name = "Übergabe_aus_WaWi"
    Selection.End(xlToRight).Select
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "Verrechnungsmenge"
    Range("K1").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToRight).Select
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]=""R"",RC[-2],RC[-2]*-1)"
    Range("L2").Select
    Selection.Copy
    Range("K2").Select
    Selection.End(xlDown).Select
    Range("L1779").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("L3:L1779").Select
    Range("L1779").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M1779").Select
    Selection.End(xlUp).Select
    ActiveCell.FormulaR1C1 = "Verrechnungswert"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-1]"
    Range("M2").Select
    Selection.Copy
    Range("L2").Select
    Selection.End(xlDown).Select
    Range("M1779").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("M3:M1779").Select
    Range("M1779").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.End(xlUp).Select

' Erstellung der Gesamtübersicht (SMV_Gesamt)

    ActiveWorkbook.Worksheets("Übergabe_aus_WaWi").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Übergabe_aus_WaWi").Sort.SortFields.Add Key:=Range( _
        "K2:K1779"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Übergabe_aus_WaWi").Sort
        .SetRange Range("A1:M1779")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(12, 13) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("K1:M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Sheets("Tabelle2").Select
    Sheets("Tabelle2").Name = "SMV_Gesamt"
    Sheets("Übergabe_aus_WaWi").Select
    Application.CutCopyMode = False
    Range("K6").Select
    Selection.RemoveSubtotal
    Range("A1").Select

' Statistik_für_Vertriebsgebiete_generieren Makro

    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$M$1779").AutoFilter Field:=7, Criteria1:="Nord"
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle3").Select
    Sheets("Tabelle3").Name = "SMV_Nord_Details"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(12, 13) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("K1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle4").Select
    Sheets("Tabelle4").Name = "SMV_Nord"
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=51
    Range("A86:C86").Select
    Range("C86").Activate
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range(Selection, Cells(1)).Select
    Range("A1").Select
    Sheets("Übergabe_aus_WaWi").Select
    Selection.End(xlUp).Select
    ActiveSheet.Range("$A$1:$M$1779").AutoFilter Field:=7, Criteria1:="Ost"
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle5").Select
    Sheets("Tabelle5").Name = "SMV_Ost_Details"
    Sheets("SMV_Ost_Details").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(12, 13) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("K1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle6").Select
    Sheets("Tabelle6").Name = "SMV_Ost"
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("A1").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Sheets("Übergabe_aus_WaWi").Select
    Selection.End(xlUp).Select
    ActiveSheet.Range("$A$1:$M$1779").AutoFilter Field:=7, Criteria1:="Süd"
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle7").Select
    Sheets("Tabelle7").Name = "SMV_Sued_Details"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(12, 13) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("K1").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToRight).Select
    Range("K1:M1").Select
    Range("M1").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("SMV_Sued_Details").Select
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle8").Select
    Sheets("Tabelle8").Name = "SMV_Sued"
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    Sheets("Übergabe_aus_WaWi").Select
    Selection.End(xlUp).Select
    ActiveSheet.Range("$A$1:$M$1779").AutoFilter Field:=7, Criteria1:="West"
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle9").Select
    Sheets("Tabelle9").Name = "SMV_West_Details"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(12, 13) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("B1").Select
    Selection.End(xlToRight).Select
    Range("K1:M1").Select
    Range("M1").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Tabelle10").Select
    Sheets("Tabelle10").Name = "SMV_West"
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    
' Details_löschen
' Sicherheitsabfrage ausschalten
    Application.DisplayAlerts = False
    Sheets("SMV_West_Details").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("SMV_Sued_Details").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("SMV_Ost_Details").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("SMV_Nord_Details").Select
    ActiveWindow.SelectedSheets.Delete
' Sicherheitsabfrage einschalten
    Application.DisplayAlerts = True
    
' Layout anpassen
    Sheets("SMV_Gesamt").Select
    ActiveWindow.SmallScroll Down:=-36
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Artikel-Nr."
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],6)"
    Range("A2").Select
    Selection.Copy
    Range("B2").Select
    Selection.End(xlDown).Select
    Range("A146").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A3:A146").Select
    Range("A146").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B147:D147").Select
    Selection.ClearContents
    Columns("B:B").Select
    Range("B127").Activate
    Selection.EntireColumn.Hidden = True
    Selection.End(xlUp).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Menge"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Umsatz"
    Range("D2").Select
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("D1").Select
    Selection.End(xlToLeft).Select
    Range("C1").Select
    Selection.End(xlToRight).Select
    Range("C1:D1").Select
    Range("D1").Activate
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = False
    Range("A1").Select
    Selection.Font.Bold = True
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Sheets("SMV_Nord").Select
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Artikel-Nr."
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(R[24]C[1])"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],6)"
    Range("A2").Select
    Selection.Copy
    Range("B2").Select
    Selection.End(xlDown).Select
    Range("A85").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A3:A85").Select
    Range("A85").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("B:B").Select
    Range("B66").Activate
    Selection.EntireColumn.Hidden = True
    Selection.End(xlUp).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Menge"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Umsatz"
    Range("C1").Select
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("C1:D1").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = False
    Range("A1").Select
    Selection.Font.Bold = True
    Range("D2").Select
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "#,##0.00"
    Sheets("SMV_Gesamt").Select
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "#,##0.00"
    Sheets("SMV_Ost").Select
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Artikel-Nr."
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],6)"
    Range("A2").Select
    Selection.Copy
    Range("B2").Select
    Selection.End(xlDown).Select
    Range("A74").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A3:A74").Select
    Range("A74").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("B:B").Select
    Range("B55").Activate
    Selection.EntireColumn.Hidden = True
    Selection.End(xlUp).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Menge"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Umsatz"
    Range("D2").Select
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("C1:D1").Select
    Selection.Font.Bold = False
    Range("A1").Select
    Selection.Font.Bold = True
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "#,##0.00"
    Sheets("SMV_Sued").Select
    Selection.EntireColumn.Insert
    ActiveCell.FormulaR1C1 = "Artikel-Nr."
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],6)"
    Range("A2").Select
    Selection.Copy
    Range("B2").Select
    Selection.End(xlDown).Select
    Range("A85").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A3:A85").Select
    Range("A85").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("B:B").Select
    Range("B66").Activate
    Selection.EntireColumn.Hidden = True
    Selection.End(xlUp).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Menge"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Umsatz"
    Range("D2").Select
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("C1:D1").Select
    Selection.Font.Bold = False
    Range("A1").Select
    
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "#,##0.00"
    Sheets("SMV_West").Select
    Selection.EntireColumn.Insert
    ActiveCell.FormulaR1C1 = "Artikel-Nr."
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],6)"
    Range("A2").Select
    Selection.Copy
    Range("B2").Select
    Selection.End(xlDown).Select
    Range("A111").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A3:A111").Select
    Range("A111").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("B:B").Select
    Range("B92").Activate
    Selection.EntireColumn.Hidden = True
    Selection.End(xlUp).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Menge"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Umsatz"
    Range("C1:D1").Select
    Selection.Font.Bold = False
    Range("A1").Select
    Selection.Font.Bold = True
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "#,##0.00"
    Columns("D:D").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("A1:D1").Select
    Range("D1").Activate
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Sheets("SMV_Sued").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A1:D1").Select
    Range("D1").Activate
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-54
    Sheets("SMV_West").Select
    ActiveWindow.SmallScroll Down:=-51
    Sheets("SMV_Ost").Select
    ActiveWindow.SmallScroll Down:=-57
    Range("A1:D1").Select
    Range("D1").Activate
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Sheets("SMV_Nord").Select
    ActiveWindow.SmallScroll Down:=-78
    Range("D11").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets("SMV_Gesamt").Select
    ActiveWindow.SmallScroll Down:=-144
    Range("A2").Select
    
    Sheets("SMV_Sued").Select
    Selection.Font.Bold = True
    Sheets("SMV_Gesamt").Select
    Range("A2").Select

' Ergebnisblätter unter neuem Namen abspeichern
     ' Sicherheitsabfrage ausschalten
        Application.DisplayAlerts = False

' Ursprungstabelle löschen
    Sheets("Übergabe_aus_WaWi").Select
        ActiveWindow.SelectedSheets.Delete
' Sicherheitsabfrage einschalten
        Application.DisplayAlerts = True
            
End Sub
    [/code]
     
    SMV_MYL, 7. Juli 2010
    #1
Thema:

Problem mit Makro zur Ergebnisauswertung

Die Seite wird geladen...

  1. Problem mit Makro zur Ergebnisauswertung - Similar Threads - Problem Makro Ergebnisauswertung

  2. Kontrollkästchen (mehrere) Makro kopieren, Problem: Zellen nicht gegenseitig überschreiben

    in Microsoft Excel Hilfe
    Kontrollkästchen (mehrere) Makro kopieren, Problem: Zellen nicht gegenseitig überschreiben: Hallo zusammen, ich arbeite gerade an einer Vereinfachung für Bestellungen. Ich habe es hingekriegt, dass Kontrollkästchen an zu wählen sind und dann bestimmte Informationen kopiert werden. Jetzt...

  3. Excel VBA / Daten kopieren wenn Liste auf x steht.

    in Microsoft Excel Hilfe
    Excel VBA / Daten kopieren wenn Liste auf x steht.: Hallo zusammen, ich habe ein PowerQuery, welches ich ca. 2 mal im Monat aktualisiere. Aus dem Query möchte ich gerne die Daten per Makro in ein anderes Arbeitsblatt kopieren. Dabei möchte ich...

  4. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...

  5. Problem mit Verbundener Zelle in Makro

    in Microsoft Excel Hilfe
    Problem mit Verbundener Zelle in Makro: Hallo, ich will bei Doppelklick auf eine verbundene Zelle ein X erzeugen. Dafür benutze ich folgendes Makro Code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As...

  6. Office 365: Problem mit Makro: Autofilter, pdf export

    in Microsoft Excel Hilfe
    Office 365: Problem mit Makro: Autofilter, pdf export: Hallo zusammen Da ich im Bereich Makros für Excel Anfänger bin, bitte ich euch um Hilfe. Folgende Ausgangslage: Mit ein bisschen suchen, habe ich ein Makro mit Autofilter Funktion und...

  7. Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!

    in Microsoft Excel Hilfe
    Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!: Hallo Zusammen, vielleicht kann mir jemand bei meinem Problem helfen. Ich bin in der VBA Programmierung nicht so fit. Ich habe es mit einer Makroaufzeichnung versucht und bekam dieses Ergebnis:...

  8. Excel Makro Problem

    in Microsoft Excel Hilfe
    Excel Makro Problem: Guten Tag, ich bin ganz neu hier und hoffe auf Hilfe. Ich versuche grade ein Importskript für meinen Shop zu bauen. Problem: Ich würde gerne in einem Excelblatt per Makro die Zeilen 2-8...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden