Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile nur löschen wenn A nicht leer

Forumthread: Zeile nur löschen wenn A nicht leer

Zeile nur löschen wenn A nicht leer
16.02.2015 14:25:15
Roger
Hallo zusammen
folgenden Code füre ich aus 

Sub Makro1()
Dim i As Long
For i = 25000 To 1 Step -1
If Cells(i, 6)

Ich will das es mir in Spalte F schaut ob der Betrag Minus ist. Dann soll er mir die Zeile löschen. Nun löscht er mir auch die Zeilen bei denen in Spalte F gar keine Zahl drinn steht. Da die Tabelle in Spalte A auch etwas drinnstehen hat wenn in Spalte F keine Zahl vorahnden ist soll diese Zeile ja bleiben. Sieh beiliegendes Musterblatt.
https://www.herber.de/bbs/user/95793.xlsm
Danke für eure Hilfe
Gruss
Roger

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:31:58
Michael
Hallo Roger!
Kombiniere die Kriterien in der If-Bedingung:
If Cells(i, 6) <= 0 And cells(i,1).Value <> "" Then
Rows(i).Delete
End If
LG
Michael

AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:40:09
Roger
Hallo Michael
Leider auch nicht. Er löscht mir Auch Zeile 2. Dort steht in A2 Mustrtext. Deshalb sollte die zeile ja erhalten bleiben.
Danke und Gruss
Roger

Anzeige
AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:40:22
Roger
Hallo Michael
Leider auch nicht. Er löscht mir Auch Zeile 2. Dort steht in A2 Mustrtext. Deshalb sollte die zeile ja erhalten bleiben.
Danke und Gruss
Roger

AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:50:28
AndrRo
Hallo Roger,
anbei die Erweiterung der Abfrage
For i = 25000 To 1 Step -1
If Cells(i, 6) <= 0 And IsEmpty(Cells(i, 1)) Then Rows(i).Delete
Next i
gruss AndrRo

Anzeige
AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:53:14
Roger
Hallo AndrRo
Leider löscht er mir so gar nichts.
gruss
Roger

AW: Zeile nur löschen wenn A nicht leer
16.02.2015 14:52:52
Tino
Hallo,
versuch mal diese Variante.
Sub Loeschen()
Dim rngBereich As Range, rngTmp As Range
With Tabelle1 'Tabelle anpassen !!!
Set rngBereich = .Range("A1:F" & .UsedRange.Rows(.UsedRange.Rows.Count).Row)
Set rngTmp = rngBereich.EntireRow.Columns(.Columns.Count)
End With
Application.Calculation = xlCalculationManual
rngTmp.FormulaR1C1 = "=IF(AND(RC6""""),TRUE,ROW())"
If Application.WorksheetFunction.CountIf(rngTmp, True) > 0 Then
rngTmp.EntireRow.Sort Key1:=rngTmp.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
rngTmp.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
rngTmp.EntireColumn.Delete
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Gruß Tino

Anzeige
Super Danke schön
16.02.2015 14:55:01
Roger
Hallo Tino
Danke so funktioniert es einwandfrei.
Danke und Gruss
Roger

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Summe berechnen mit einer Matrixformel
Sibylle

Hallo,
kann man die Summe der Nettobeträge mit einer Matrixformel ermitteln.
Wenn ja, wie muss diese dann aussehen?
Besten Dank im voraus.
Gruß
Sibylle

11.11.2008 10:18:00
Thread-ID: 1023446
12 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Anzeige
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Summe wenn mit Bedingungen geht nicht
Andreas

Hallo,
ich habe folgendes Problem. Es existieren 2 Tabellenblätter. Auf einem der Tabellenblätter findet eine Art Auswertung statt. Das Haupttabellenblatt hat 12 benutzte Spalten, von denen ich nun Spalte B und F auf eine Übereinstimmung abprüfen will. Dazu habe ich auch ein Beispiel gefun...
25.03.2009 15:30:11
Thread-ID: 1063848
5 Beiträge
WENN,DANN,SUMME
Castor-Pollux

Hallo,
ich habe mal wieder ein Problem.
Was ist an dieser Formel falsch: =WENN(H23>"40:00";(H23-"40:00");"")
Hintergrund:
Ich habe eine Tabelle, in der ich meine Arbeitsstunden berechne.
Wenn ich über 40 Stunden kommen, soll mit der Formel nur die Überstunden berechnet we...
27.03.2009 09:55:37
Thread-ID: 1064503
9 Beiträge
Anzeige
"summewenn" in Zeiterfassung funktioniert nicht
Gernot

Die Datei https://www.herber.de/bbs/user/61213.xls wurde aus Datenschutzgründen gelöscht
Liebe Forumsexperten
Ich habe so ziemlich alle "summewenn" und "summenprodukt"-Lösungen probiert, die im Forum so gut beschrieben sind. Leider funktioniert keine der Lösungen. Die Exceldatei habe i...
15.04.2009 18:40:21
Thread-ID: 1068933
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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