Thema Datum  Von Nutzer Rating
Antwort
12.04.2016 14:03:06 Dominik
NotSolved
Blau Formel in Spalte C-I bis zur letzten befüllten Zelle in A ziehen
 12.04.2016 17:00:35 Gast14374
NotSolved

Ansicht des Beitrags:
Von:
Gast14374		 Datum:
12.04.2016 17:00:35		 Views:
548		 Rating:
     
Antwort:
  Ja
Thema:
Formel in Spalte C-I bis zur letzten befüllten Zelle in A ziehen

Hallo Dominik! Würde das so lösen. Gehe dabei davon aus, dass in Zeile 6 die Ausgangsformeln stehen. Viele Grüße

 

Option Explicit
Sub formel_kopieren()
Dim ende As Long
Dim i As Long

Application.ScreenUpdating = False

'letzter Eintrag in Spalte A
ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'inZeile 6 steht die erste Formel, also prüfen ob es mehr Zeilen gibt
If ende > 6 Then
    'alte Formeln löschen, falls schon was drin stand ist optional
    ActiveSheet.Range(ActiveSheet.Cells(7, 3), ActiveSheet.Cells(ende, 9)).ClearContents
    'jetzt die Formel aus Zeile 6 kopieren
    For i = 3 To 9
        ActiveSheet.Cells(6, i).Copy
        ActiveSheet.Range(ActiveSheet.Cells(7, i), ActiveSheet.Cells(ende, i)).PasteSpecial
    Next i

End If

Application.ScreenUpdating = True

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
12.04.2016 14:03:06 Dominik
NotSolved
Blau Formel in Spalte C-I bis zur letzten befüllten Zelle in A ziehen
 12.04.2016 17:00:35 Gast14374
NotSolved