Hallo,
habe eine sehr lange Spalte mit Zahlen
In der Spalte daneben stehen die Restemod3
Jetzt möchte ich, das alle Zeilen gelöscht werden, die nicht 2 mod 3 haben?
Wie kann ich das machen?
Hallo,
eine Tabelle wäre hilfreich.
Wir können nicht ins Blaue raten.
MfG Günter
(08.03.2023, 19:01)redeagle56 schrieb: [ -> ]Hallo,
eine Tabelle wäre hilfreich.
Wir können nicht ins Blaue raten.
MfG Günter
Beschreib ich so schlecht?
[
attachment=47402]
Die gelben Zeilen sollen alle gelöscht werden, aber soweit, wie die Zahlen gehen, nicht nur die beiden, also alle 0mod3 und 1mod3
Hallo,
für Zahl A könntest du diese Formel verwenden...
Code:
=WENNFEHLER(INDEX($A$1:$A$3000;AGGREGAT(15;6;ZEILE($B$1:$B$3000)/(FINDEN(2;$B$1:$B$3000)>0);ZEILE(A1)));"")
Hallo,
per VBA z.B. so:
Code:
Sub Nur2Mod3()
Dim i As Long, j As Long, k As Long
Dim lngSpalten As Long, lngZeilen As Long
Dim varQ As Variant, varZ As Variant
varQ = Cells(1, 1).CurrentRegion.Value
lngZeilen = UBound(varQ, 1)
lngSpalten = UBound(varQ, 2)
ReDim varZ(1 To lngZeilen, 1 To lngSpalten)
For i = 2 To lngZeilen
If varQ(i, 2) = 2 Then
k = k + 1
For j = 1 To lngSpalten
varZ(k, j) = varQ(i, j)
Next j
Else
If varQ(i, 4) = 2 Then
k = k + 1
For j = 1 To lngSpalten
varZ(k, j) = varQ(i, j)
Next j
End If
End If
Next i
Cells(2, 1).Resize(lngZeilen, lngSpalten).Value = varZ
End Sub
Gruß Uwe
Wieso nicht den Autofilter verwenden und das Filtrat in einem Rutsch löschen?
(08.03.2023, 21:04)MisterBurns schrieb: [ -> ]Wieso nicht den Autofilter verwenden und das Filtrat in einem Rutsch löschen?
Danke erst mal an alle, Kümmer mich morgen weiter drum... Was Mister Burns ist Autofilter?
Was Mister Burns ist ein Filtrat ?
Hi
Filtrat ist das, was beim Filtern übrig bleibt, sowohl in Excel als auch im richtigen Leben.