Thema Datum  Von Nutzer Rating
Antwort
30.08.2016 10:04:31 Phillo
Solved
Blau konstruktiven VBA Codes :)
 30.08.2016 18:13:46 Gast34314
NotSolved
13.09.2016 12:17:03 Phillo
Solved

Ansicht des Beitrags:
Von:
Gast34314		 Datum:
30.08.2016 18:13:46		 Views:
562		 Rating:
     
Antwort:
  Ja
Thema:
konstruktiven VBA Codes :)		 
Option Explicit

Sub Saldo()
'anpassen
'Sheets("Tabelle1") - Salden
'Sheets("Tabelle2") - Abteilung
'Sheets("Tabelle3") - Ergebnis

Dim rngUsed As Range

Sheets("Tabelle3").Cells.Clear
With Sheets("Tabelle2").UsedRange
   .AutoFilter
   .AutoFilter Field:=3, Criteria1:="Marketing"
   .SpecialCells(12).Copy Sheets("Tabelle3").Cells(1)
   .AutoFilter
End With
With Sheets("Tabelle3")
   Set rngUsed = .UsedRange.Columns(2)
   rngUsed.Offset(, 1).Clear
   rngUsed.Offset(, 1).Cells(1).Value = "Wert"
   Set rngUsed = rngUsed.Offset(1).Resize(rngUsed.Rows.Count - 1)
   rngUsed.Offset(, 1).FormulaR1C1 = "=SUMIF(Tabelle1!C[-2],RC[-1],Tabelle1!C[-1])*-1"
   rngUsed.Offset(, 1).Copy
   rngUsed.Offset(, 1).PasteSpecial -4163
   Application.CutCopyMode = False
   With .UsedRange
      .AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
      .SpecialCells(12).Copy Sheets("Tabelle3").Cells(4)
      .AutoFilter
       Application.CutCopyMode = False
   End With
   .Columns("A:C").Delete
   .Columns("B:B").Delete
   Set rngUsed = .UsedRange.Columns(1)
   Set rngUsed = rngUsed.Offset(1).Resize(rngUsed.Rows.Count - 1)
   With .Sort
      .SortFields.Clear
      .SortFields.Add Key:=Range(rngUsed.Address) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      .SetRange Range(Sheets("Tabelle3").UsedRange.Address)
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
   .Cells(1).Activate
End With

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
30.08.2016 10:04:31 Phillo
Solved
Blau konstruktiven VBA Codes :)
 30.08.2016 18:13:46 Gast34314
NotSolved
13.09.2016 12:17:03 Phillo
Solved