Thema Datum  Von Nutzer Rating
Antwort
13.03.2022 09:57:39 Lou
Solved
Blau Kleine Frage zu einem Makro für erfahrene VBA'ler kein Problem :)
 15.03.2022 16:52:52 UweD
Solved
15.03.2022 18:18:44 Gast33996
Solved

Ansicht des Beitrags:
Von:
UweD		 Datum:
15.03.2022 16:52:52		 Views:
628		 Rating:
     
Antwort:
 Nein
Thema:
Kleine Frage zu einem Makro für erfahrene VBA'ler kein Problem :)

Hallo

 

Bei der Rechts Formel Springt es sogar irgendwann auf die Spalte links

Kann es sein, das du verbundene Zellen verwendest?

____

Auf select und activate kann in 99% verzichtet werden

 

versuch es so...

Sub Makro_Liste()
    Dim RR As Long
    
    With Sheets("Tabelle1")
            
        .Rows("1:1").Insert Shift:=xlDown
        
        RR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
        
        .Columns("L:L").Delete Shift:=xlToLeft
        .Columns("I:J").Delete Shift:=xlToLeft
        .Range("D3:E" & RR).Style = "Currency"
        With .Range("D1:E1")
            .FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[" & RR - 1 & "]C)"
            .Style = "Currency"
            .Font.Bold = True
        End With
        .Range("J3:J" & RR).FormulaR1C1 = "=LEFT(RC[-8],5)"
        .Range("K3:K" & RR).FormulaR1C1 = "=RIGHT(RC[-9],3)"
        With .Range("J1")
            .FormulaR1C1 = "=SUBTOTAL(2,R[2]C[-8]:R[" & RR - 1 & "]C[-8])"
            .Font.Bold = True
        End With
        .Range("L3") = "erledigt"
        .Range("L4").Select
    End With
End Sub

 

LG UweD

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
13.03.2022 09:57:39 Lou
Solved
Blau Kleine Frage zu einem Makro für erfahrene VBA'ler kein Problem :)
 15.03.2022 16:52:52 UweD
Solved
15.03.2022 18:18:44 Gast33996
Solved