Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Frage zu Reste
#1
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?
Antworten Top
#2
Hallo,
eine Tabelle wäre hilfreich.
Wir können nicht ins Blaue raten.

MfG Günter
Antworten Top
#3
(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?

.xlsx   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
Antworten Top
#4
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)));"")
Antworten Top
#5
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
Antworten Top
#6
Wieso nicht den Autofilter verwenden und das Filtrat in einem Rutsch löschen?
Schöne Grüße
Berni
Antworten Top
#7
(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?
Antworten Top
#8
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
Antworten Top
#9
Was Mister Burns ist ein Filtrat ?
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#10
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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste