title image


Smiley Versuche es mit Bereich=Union(Bereich, Neuezeile) in einer Schleife, oder
...erstelle eine Hilfsspalte mit REST()Funktion, filtere diese nach "0", kopiere das ERgebnis in eine anderes Tabellenblatt und lösche die Hilfsspalte wieder und deaktiviere den Autofilter.



Hier ein Beispiel-Code für diese Tabelle (Daten nur in Spalte A) :



 AB1Wert 222 310 417 510 630 74 81 920 103 1123 125 1314 1429 1520 1615 1714 1817 1919 2023 21  22  VBA-Code :

Sub FilternDurch3Teilbar()

    'Daten in Spalte A, neue Spalte : B - evtl. anpassen

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

    Range("B2:B" & lz).Formula = "=mod(A2,3)"

   [B1] = "Rest"

   [B1].AutoFilter Field:=2, Criteria1:="0"

    Union([B1].CurrentRegion, Range("A2:B" & lz)).Copy Sheets(2).[A1]

   [B2].AutoFilter

    Range("B1:B" & lz) = ""

End Sub



Ergebnis in Tabelle2 :

 AB1WertRest23003304150

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: