Thema Datum  Von Nutzer Rating
Antwort
19.06.2017 11:11:53 Michael
***
Solved
Blau Formel bis ans Ende kopieren
 19.06.2017 12:12:17 Werner
NotSolved
21.06.2017 16:59:31 Michael
Solved
21.06.2017 20:18:05 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
19.06.2017 12:12:17		 Views:
551		 Rating:
     
Antwort:
  Ja
Thema:
Formel bis ans Ende kopieren

Hallo Michael,

hier mal ein kleines Beispiel. Die letzte belegte Zelle wird in diesem Beispiel in Spalte A ermittelt. Das müsstest du an deine Verhältnisse anpassen. Die Formel wird dann in Spalte D von D5 bis zur letzten ermittelten Zeile eingetragen.

Public Sub bbb()
Dim loLetzte As Long

With Worksheets("Tabelle1") 'Tabellenblatt anpassen
    loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row 'Spalte anpassen (1=A, 2=B, ....)
    .Range("D5:D" & loLetzte).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
End With

End Sub

 

Gruß Werner

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
19.06.2017 11:11:53 Michael
***
Solved
Blau Formel bis ans Ende kopieren
 19.06.2017 12:12:17 Werner
NotSolved
21.06.2017 16:59:31 Michael
Solved
21.06.2017 20:18:05 Werner
Solved