Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1544to1548

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

VBA- Zeilen löschen wenn A und B ...

Forumthread: VBA- Zeilen löschen wenn A und B ...
13 Beiträge zu diesem Forumthread
Anzeige
338 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

13.03.2017 18:26:25

Silke

Hallo,
Irgendwie komme ich nicht so recht weiter. Suche nach einer VBA Lösung.
Eine Zeile besteht aus den Zellen A-L also 1-12. "
Der Zellinhalt wird Text und / oder Zahl sein.
In "Tabelle1" sollen alle Zeilen gelöscht werden,
wo die Zeilen folgendes aufweisen:
die Spalte A (1) und Spalte B (2) ist befüllt, der Rest der Spalten ( 3-12 ) ist leer,
dann sollen diese Zeilen gelöscht werden.
Wie könnte der Code aussehen?
LG Silke

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dann sollen diese Zeilen gelöscht werden. ?

13.03.2017 18:35:04

Matthias
AW: dann sollen diese Zeilen gelöscht werden. ?

13.03.2017 18:56:02

Silke
diese kompletten Zeilen im Bereich A bis L

13.03.2017 19:23:32

Matthias
bitte

13.03.2017 18:42:45

Matthias
diese Zeile nicht löschen?

13.03.2017 18:46:27

Matthias
AW: diese Zeile nicht löschen?

13.03.2017 18:58:25

Silke
AW: diese Zeile nicht löschen?

13.03.2017 19:17:09

Matthias
AW: VBA- Zeilen löschen wenn A und B ...

13.03.2017 19:19:29

Daniel
ok dann bin ich raus ...owT

13.03.2017 19:24:37

Matthias
AW: ok dann bin ich raus ...owT

13.03.2017 19:29:56

Silke
nur noch Daniel, ich bin raus.

13.03.2017 19:34:16

Matthias
das hat nichts mit Dir zu tun, Silke owT

13.03.2017 19:35:10

Matthias
Danke EUCH zwein @

13.03.2017 19:43:08

Silke

dann sollen diese Zeilen gelöscht werden. ?

13.03.2017 18:35:04

Matthias

Hallo
Soll dann die komplette Zeile gelöscht werden oder nur der Bereich "A:L"
Gruß Matthias

AW: dann sollen diese Zeilen gelöscht werden. ?

13.03.2017 18:56:02

Silke

Hallo Matthias,
ja dann sollen diese kompletten Zeilen im Bereich A bis L gelöscht werden.
.
LG Silke

diese kompletten Zeilen im Bereich A bis L

13.03.2017 19:23:32

Matthias

Hallo
ja dann sollen diese kompletten Zeilen im Bereich A bis L gelöscht werden.
Was denn nun? (genau deshalb hatte ich ja nachgefragt)
kompletten Zeilen
oder der Bereich von "A" bis "L"
Du solltest Dich entscheiden.
Gruß Matthias

bitte

13.03.2017 18:42:45

Matthias

Halloo
Was soll hier gelöscht werden?
Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L
1	1
2		Text
3	1	Text
4		Text
5	1	Text
6		Text
7	1
8		Text
9	1
10		Text
11	1
12		Text

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Zeile3 und Zeile5
Richtig?
Gruß Matthias

diese Zeile nicht löschen?

13.03.2017 18:46:27

Matthias

Hallo
Tabelle1

Text

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias

AW: diese Zeile nicht löschen?

13.03.2017 18:58:25

Silke

Hallo Matthias,
diese HTML Tabellen Bilde sehen gut aus- wie kann man diese einfügen?
LG Silke

AW: diese Zeile nicht löschen?

13.03.2017 19:17:09

Matthias

Hallo
Den Link: Excel Tabellen im Web darstellen
hast Du nicht bemerkt?
Aber warum antwortest Du nicht korrekt auf meine Fragen?
Gruß Matthias

AW: VBA- Zeilen löschen wenn A und B ...

13.03.2017 19:19:29

Daniel

Hi
am einfachsten und schnellsten so:
1. in eine Hilfsspalte am Tabellenende diese Formel: =Wenn(Und(Anzahl2(A1:B1)=2;Anzahl2(C1:L1)=0);0;Zeile())
diese Formel kennzeichnet alle Zellen, die gelöscht werden sollen mit der 0 und die die stehen bleiben müssen mit der Zeilennummer
2. schriebe in die Überschriftenzeile der Hilfsspalte ebenfalls die 0
3. wende auf die ganze Tabelle die Funktion Daten - Datentools - Duplikate Entfernen an, mit der Hilfsspalte als Kriteriumsspalte und der Option "keine Überschrift"
4. lösche die Hilfsspalte wieder.
das geht von Hand, und alles was von Hand geht, geht auch per Makro:

With AcitveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(AND(CountA(RC1:RC2)=2,CountA(RC3:RC12)=0),0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlno
.ClearContents
end with
End with

gruß Daniel

ok dann bin ich raus ...owT

13.03.2017 19:24:37

Matthias

AW: ok dann bin ich raus ...owT

13.03.2017 19:29:56

Silke

Hi Matthias, ich wurde abgelenkt ... Jetzt schaue ich mir mal Daniels Lösung an. Danke erst mal Euch zwei für die Hilfestellung.
Ja -es war Richtig die 3 und 5. Nun teste ich mal die Lösung von Daniel.
LG Silke

nur noch Daniel, ich bin raus.

13.03.2017 19:34:16

Matthias

das hat nichts mit Dir zu tun, Silke owT

13.03.2017 19:35:10

Matthias

Danke EUCH zwein @

13.03.2017 19:43:08

Silke

Matthias und Daniel-
ein großes Lob an EUCH - der Code macht genau was er soll.
Prima.
Super Hilfe.
LG Silke