Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen wenn best. Inhalt in Spalten C und J

Zeile löschen wenn best. Inhalt in Spalten C und J
01.08.2003 09:35:03
Michael
Hallo,
ich möchte per VBA eine Zeile genau dann löschen, wenn der Inhalt in Spalte C gleich "abc" ist und der Inhalt in Spalte J gleich "def". Wer kann mit helfen?
Michael

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile löschen wenn best. Inhalt in Spalten C und J
01.08.2003 09:38:52
andreas e
hallo michael,
das müsste passen:

Sub ZeilenLöschen()
Dim Sz As Integer
Dim zz As Long
Dim l As Long
Dim i As Integer
Dim b As Boolean
Sheets("Tabelle1").Activate
Range("A1").Select
Sz = ActiveSheet.UsedRange.Columns.Count
zz = ActiveSheet.UsedRange.Rows.Count
For l = 1 To zz
b = False
For i = 1 To Sz
If Cells(i, 3) = "abc" And Cells(i, 10) = "def" Then b = True _
Else b = False: Exit For
Next i
If b = True Then Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Next l
End Sub

gruß
andreas e
http://www.skripteundaufgaben.de
viele kostenlose downloads zu excel und mehr

Anzeige
korrektur !
01.08.2003 09:47:35
andreas e
hallo, hatte den falschen code kopiert !

Sub ZeilenLöschen()
Dim zz As Long
Dim l As Long
Sheets("Tabelle1").Activate
Range("A1").Select
zz = ActiveSheet.UsedRange.Rows.Count
For l = 1 To zz
If Cells(l, 3) = "abc" And Cells(l, 10) = "def" Then
Selection.EntireRow.Delete
End If
Next l
End Sub

gruß
andreas e

AW: Off Topic
01.08.2003 10:29:42
Hajo_Zi
Hallo Andreas
hast Du eigentlich den Fehler gefunden in der Datei (von Tobi...) mit dem Sverweis??
Gruß Hajo

AW: Off Topic
01.08.2003 10:35:15
andreas e
moin hajo,
nein - obwohl ich immer wieder mal drauf kucke - ist mir irgendwioe nicht klar was da abläuft bzw. falsch läuft - hast du da ne idee ?
gruß
andreas e

Anzeige
AW: Off Topic
01.08.2003 10:37:34
Hajo_Zi
Hallo Andreas
leider Nein. Theoretisch ist ja alles richtig gewesen.
Gruß hajo

MS oder Theorie und Praxis ! o.T
01.08.2003 10:59:35
andreas e

301 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge

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
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3