Thema Datum  Von Nutzer Rating
Antwort
Rot Range Auswahl
04.04.2022 13:29:14 Gast28299
NotSolved
04.04.2022 15:41:42 Gast69764
*****
NotSolved
04.04.2022 23:44:59 Gast30305
NotSolved

Ansicht des Beitrags:
Von:
Gast28299
Datum:
04.04.2022 13:29:14
Views:
155
Rating: Antwort:
  Ja
Thema:
Range Auswahl

Moin Zusammen,

ich habe mittels der Makroaufnahme ein Makro erstellt, damit ich wöchentliche Reports nicht mehr manuell anpassen muss. Da sich die Menge der einzelnen Zeilen jedoch von Woche zu Woche unterscheiden wollte ich fragen, wie sich die Range anpassen lässt, sodass ich mir keine Sorgen machen brauche, falls eine Woche 50 Zeilen mehr hat.

Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$1:$B$283").AutoFilter Field:=1, Criteria1:= _
        "=Andere Gebühr", Operator:=xlOr, Criteria2:="=Anpassung"
        Range("AF287").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-30],""Andere Gebühr"",C[-21])"
    Range("AF288").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-30],""Anpassung"",C[-21])"
    Range("AF289").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
    Range("AF289").Select
    Selection.Copy
    Range("AF9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AF287:AF289").Select
    Range("AF289").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("AF286").Select
    Rows("7:269").Select
    Range("A269").Activate
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$B$1:$B$85").AutoFilter Field:=1
    ActiveWindow.SmallScroll Down:=-9
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("F:F").Select
    Selection.Cut
    Range("C1").Select
    ActiveSheet.Paste
    Columns("F:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("P:Q").Select
    Selection.Delete Shift:=xlToLeft
    Columns("T:T").Select
    Selection.Delete Shift:=xlToLeft
    Columns("Z:Z").Select
    Selection.Copy
    Range("G1").Select
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Datum"
    Range("A12").Select

 

Vielen Dank und LG


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 Range Auswahl
04.04.2022 13:29:14 Gast28299
NotSolved
04.04.2022 15:41:42 Gast69764
*****
NotSolved
04.04.2022 23:44:59 Gast30305
NotSolved