Registriert seit: 03.08.2017
Version(en): 2016
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?
Registriert seit: 22.10.2022
Version(en): 2021
Hallo,
eine Tabelle wäre hilfreich.
Wir können nicht ins Blaue raten.
MfG Günter
Registriert seit: 03.08.2017
Version(en): 2016
(08.03.2023, 20:01)redeagle56 schrieb: Hallo,
eine Tabelle wäre hilfreich.
Wir können nicht ins Blaue raten.
MfG Günter
Beschreib ich so schlecht?
CleverexcelZeilö.xlsx (Größe: 19,51 KB / Downloads: 4)
Die gelben Zeilen sollen alle gelöscht werden, aber soweit, wie die Zahlen gehen, nicht nur die beiden, also alle 0mod3 und 1mod3
Registriert seit: 23.09.2021
Version(en): 365
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)));"")
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Wieso nicht den Autofilter verwenden und das Filtrat in einem Rutsch löschen?
Schöne Grüße
Berni
Registriert seit: 03.08.2017
Version(en): 2016
(08.03.2023, 22: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?
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Eigeninitiative ist durchaus erlaubt, die Stichworte "Excel Autofilter" in der Suchmaschine deiner Wahl bringen dir hervorragende Ergebnisse.
https://support.microsoft.com/de-de/offi...ab61133d92
Schöne Grüße
Berni
Registriert seit: 29.09.2015
Version(en): 2030,5
Was Mister Burns ist ein Filtrat ?
Registriert seit: 13.04.2014
Version(en): 365
Hi
Filtrat ist das, was beim Filtern übrig bleibt, sowohl in Excel als auch im richtigen Leben.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.