Thema Datum  Von Nutzer Rating
Antwort
26.02.2018 09:44:57 Rookie
NotSolved
Blau Formeln herunterziehen bzw. löschen wenn Zellen leer
 26.02.2018 10:33:05 Werner
NotSolved
26.02.2018 12:02:19 Rookie
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
26.02.2018 10:33:05		 Views:
764		 Rating:
     
Antwort:
  Ja
Thema:
Formeln herunterziehen bzw. löschen wenn Zellen leer

Hallo,

teste mal:

Sub CopyFormulas_Liqui()
Dim letzteZeile As Long 'letzte Zeile

letzteZeile = Cells(Rows.Count, 4).End(xlUp).Row

If letzteZeile > 7 Then
    Range("Y7").AutoFill Destination:=Range("Y7:Y" & letzteZeile), Type:=xlFillDefault
    Range("AB7").AutoFill Destination:=Range("AB7:AB" & letzteZeile), Type:=xlFillDefault
    Range("AG7").AutoFill Destination:=Range("AG7:AG" & letzteZeile), Type:=xlFillDefault
    Range("AH7").AutoFill Destination:=Range("AH7:AH" & letzteZeile), Type:=xlFillDefault
    Range("AI7").AutoFill Destination:=Range("AI7:AI" & letzteZeile), Type:=xlFillDefault
Else
    letzteZeile = Cells(Rows.Count, 25).End(xlUp).Row
    If letzteZeile = 7 Then Exit Sub
    Range(Cells(8, 25), Cells(letzteZeile, 25)).ClearContents
    Range(Cells(8, 28), Cells(letzteZeile, 28)).ClearContents
    Range(Cells(8, 33), Cells(letzteZeile, 35)).ClearContents
End If

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
26.02.2018 09:44:57 Rookie
NotSolved
Blau Formeln herunterziehen bzw. löschen wenn Zellen leer
 26.02.2018 10:33:05 Werner
NotSolved
26.02.2018 12:02:19 Rookie
NotSolved