wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
Danke!
Guckst du: |
Spezialfilter (1) - Duplikate wegfiltern |
Spezialfilter (2) - Filtern nach Kriterien |
Spezialfilter (3) - Filtern mit Funkionen |
Spezialfilter (4) - Filterergebnis in ein anderes Tabellenblatt |
=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())
diese Formel kopierst du in den Zellbereich von A-K (halt soweit,wie in Tabelle1 Daten stehen) und machst hinterher aus den Formeln mit KOPIEREN, INHALTE EINFÜGEN WERTE aus den Formeln Zahlen.
ansonten könnte es noch per Makro funktionieren:
Sub Zahlenkopieren()
Dim Zelle As Range
Sheets("TAbelle2").Columns(1).ClearContents
For Each Zelle In Intersect(Range("A:K"), ActiveSheet.UsedRange)
If Zelle.Value >= 100000 Then
If Zelle.Value
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Zelle.Value
End If
End If
Next
End Sub
Gruß, Daniel
=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())
diese Formel kopierst du in den Zellbereich von A-K (halt soweit,wie in Tabelle1 Daten stehen) und machst hinterher aus den Formeln mit KOPIEREN, INHALTE EINFÜGEN WERTE aus den Formeln Zahlen.
ansonten könnte es noch per Makro funktionieren:
Sub Zahlenkopieren()
Dim Zelle As Range
Sheets("TAbelle2").Columns(1).ClearContents
For Each Zelle In Intersect(Range("A:K"), ActiveSheet.UsedRange)
If Zelle.Value >= 100000 Then
If Zelle.Value
Gruß, Daniel
=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())=Ganzzahl(Index(Tabelle1!A:K;Zeile();Spalte())); Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())
bzw das Makro mit um die folgende Prüfung ergänzen:
if Zelle.Value = Int(Zelle.Value) then
Gruß, Daniel