Thema Datum  Von Nutzer Rating
Antwort
Rot Makro - letzte Zeile
31.01.2017 08:41:09 Werki
Solved
31.01.2017 08:49:41 Gisela
Solved
31.01.2017 09:27:07 Gast33190
NotSolved
31.01.2017 09:49:26 Werki
NotSolved
31.01.2017 11:29:14 Werner
NotSolved
31.01.2017 11:42:20 Gast8693
NotSolved

Ansicht des Beitrags:
Von:
Werki
Datum:
31.01.2017 08:41:09
Views:
1031
Rating: Antwort:
 Nein
Thema:
Makro - letzte Zeile

Hallo liebe Community, 
ich habe wieder ein Problem und die bisherigen Themen dazu bringen mich leider nicht weiter da ich noch ein blutiger Anfänger bin. 

Problem: In der Spalte AE und AF habe ich Werte, die immer wieder ergänzt werden, d.h. es kommen neue Werte dazu. In AG und AH habe ich zwei Formeln hinterlegt, diese möchte ich nun mit einem Makro versehen, damit die Formeln immer bis zum Ende der letzten ausgefüllten Zeile von AE (oder AF) herunterkopiert werden. In Zeile 6 ist der erste ausgefüllte Datensatz.

Wieso nicht manuell kopieren? Die Datei wird an sich recht groß und umfassend, weshalb ich gerne den manuellen Aufwand minimieren würde.

Bisheriges Makro:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+Umschalt+M
'
    Range("AG6:AH6").Select
    Range("AH6").Activate
    Selection.Copy
    Range("AF6").Select
    Selection.End(xlDown).Select
    Range("AG35:AH35").Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub


Im Internet habe ich diesen Befehl gefunden, jedoch weiß ich nicht wie ich ihn korrekt einbinde. 

lz = Cells(Rows.Count, 7).End(xlUp).Rows.Row

Die 7 müsste ich mit einer 28 austauschen, oder? Dies wäre zumindest die Zahl für die Spalte AE. 

Vielen Dank im Voraus :)


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 Makro - letzte Zeile
31.01.2017 08:41:09 Werki
Solved
31.01.2017 08:49:41 Gisela
Solved
31.01.2017 09:27:07 Gast33190
NotSolved
31.01.2017 09:49:26 Werki
NotSolved
31.01.2017 11:29:14 Werner
NotSolved
31.01.2017 11:42:20 Gast8693
NotSolved