Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zeilen ohne Zahl löschen

Alle Zeilen ohne Zahl löschen
29.11.2014 14:10:05
Ralph
Hallo zusammen,
ich habe eine Tabelle die aus einem *.htm File erzeugt wird. In dieser Tabelle (ca. 17000 Zeilen) möchte ich nun per VBA alle Zeilen löschen, die nicht folgenden Kriterien entsprechen:
1. Der Inhalt in Spalte A ist eine numerische Zahl
2. Diese Zahl ist grösser als 9999
Im Anschluss daran sollen alle doppelten Zeilen gelöscht werden (Auch VBA).
Vielen lieben Dank im Voraus, Gruss Ralph

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen ohne Zahl löschen
29.11.2014 14:27:34
Ralph
Hallo nochmal,
es tut mir leid aber ich muss nochmal nachbessern bzw. korrigieren. Ich habe soeben festgestellt, dass gewissen Zeilen auch stehen bleiben müssen die keine rein numerische Zahl in Spalte A enthalten.
Die betroffenen Zeilen enthalten Werte mit einem "-", hier ein paar Beispiele:
10624411-1, 10624412-1, 10612227-4, 10648898-1
Diese Zeilen müssen wie gesagt also auch stehen bleiben.
Nochmals sorry & Gruss, Ralph

AW: Alle Zeilen ohne Zahl löschen
29.11.2014 18:55:58
Tino
Hallo,
kannst mal diesen Code testen.
Was ich es nicht weis, sind es echte Zahlen oder nur Text!
Sub Start()
Dim rngHilfe As Range

With Tabelle1 'Tabelle anpassen 
    'ab A2, in Zeile 1 ist Überschrift (evtl. anpassen) 
    Set rngHilfe = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    If rngHilfe.Rows(1).Row < 2 Then Exit Sub 'keine Daten 
    Set rngHilfe = rngHilfe.EntireRow.Columns(.Columns.Count)
End With

Events_ False

On Error GoTo ErrorHandler:

With Application.WorksheetFunction
    'Daten löschen die > 9999 
    rngHilfe.FormulaR1C1 = "=IF(AND(RC1>9999,RC1<10^15),TRUE,ROW())"
    If .CountIf(rngHilfe, True) > 0 Then
        rngHilfe.EntireRow.Sort Key1:=rngHilfe.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
        rngHilfe.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
    End If
    rngHilfe.Clear
    
    'doppelte Datenb löschen 
    rngHilfe.FormulaR1C1 = "=IF(COUNTIF(R" & rngHilfe.Rows(1).Row & "C1:RC1,RC1)>1,TRUE,ROW())"
    If .CountIf(rngHilfe, True) > 0 Then
        rngHilfe.EntireRow.Sort Key1:=rngHilfe.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
        rngHilfe.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
    End If
    rngHilfe.Clear
    rngHilfe.EntireColumn.Delete
    
End With

ErrorHandler:
Events_ True
End Sub

Sub Events_(booSchalter As Boolean)
With Application
    .ScreenUpdating = booSchalter
    .EnableEvents = booSchalter
    .DisplayAlerts = booSchalter
    .Calculation = IIf(booSchalter, xlCalculationAutomatic, xlCalculationManual)
End With
End Sub
Gruß Tino

Anzeige
Bedingung nicht übersehen.
29.11.2014 20:51:43
Tino
Hallo,
ersetze die Zeile
rngHilfe.FormulaR1C1 = "=IF(AND(RC1>9999,RC1
durch diese
rngHilfe.FormulaR1C1 = "=NOT(NOT(ISERR(AND(LEFT(RC1,5)*1>9999,LEFT(RC1,5)*1
Gruß Tino

308 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15