Microsoft Excel

Herbers Excel/VBA-Archiv

Auto Ausfüllen mit Filter

Betrifft: Auto Ausfüllen mit Filter von: Marcus
Geschrieben am: 30.09.2014 07:42:47

Hallo, ich bin auf der Suche nach einer Möglichkeit ein Bereich AutoAusfüllen zu lassen in dem die ausgefilterten Zeilen mit ausgefüllt werden.
Hier mein Makro mit dem ich bisher gearbeitet habe:

Sub ausfuellen()
       If Cells(Rows.Count, 1).End(xlUp).Row > 1 Or _
          Cells(1, 1).Value <> "" Then
              Range("AX2:CA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
       End If
        Selection.FillDown
End Sub
Danke schon mal im voraus
LG Marc

  

Betrifft: AW: Auto Ausfüllen mit Filter von: Klaus M.vdT.
Geschrieben am: 30.09.2014 08:00:12

Hallo Marc,
geht nicht, Punkt.
Alternative: hebe per VBA den Filter auf, benutze FillDown, setzte den Filter wieder.
Alternative2: verzichte auf Autofill (das ist eh lahm!) und nutze stattdessen copy. Oder, falls du Formeln kopierst, weise dem RANGE stattdessen direkt die Formel im R1C1 Format zu.

Das war jetzt über deinem Level, oder? Mit einer Beispieldatei wird dir besser geholfen!

Grüße,
Klaus M.vdT.


  

Betrifft: was steht in der Zeile 2 von: Tino
Geschrieben am: 30.09.2014 08:01:51

Hallo,
was steht in der ersten Zeile von diesem Bereich?
Formeln o. feste Werte?

Gruß Tino


  

Betrifft: AW: was steht in der Zeile 2 von: Marcus
Geschrieben am: 30.09.2014 08:41:34

In der ersten Zeile stehen Formeln.


  

Betrifft: AW: was steht in der Zeile 2 von: Klaus M.vdT.
Geschrieben am: 30.09.2014 08:56:35

ungetestet:

Sub ausfuellen()
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Or Cells(1, 1).Value <> "" Then
    Range("AX2:CA2").Copy
    Range("AX3:CA" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial
End If
End Sub

Grüße,
Klaus M.vdT.


  

Betrifft: AW: was steht in der Zeile 2 von: Marcus
Geschrieben am: 30.09.2014 09:10:50

Danke!!!

Funktioniert SUPER, genau wie gedacht!

LG Marc


 

Beiträge aus den Excel-Beispielen zum Thema "Auto Ausfüllen mit Filter"