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

Befehlt funktioniert nicht wie erwartet

Forumthread: Befehlt funktioniert nicht wie erwartet

Befehlt funktioniert nicht wie erwartet
20.03.2019 08:40:14
Luisa
Hallo,
Ich habe mal wieder ein für mich sehr komisches Problem. Ich habe eine Excel Tabelle mit Daten aus einer SAP Abfrage und möchte alle Zeilen löschen, bei denen in der ersten Spalte "AAAEDB" steht. Das ergibt für mich folgenden Befehl:

For introw = 1 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(introw, 1).Value = "AAAEDB" Then Tabelle1.Rows(introw).Delete
Next
Interessanterweise löscht das aber nur ca. die Hälfte der Einträge. Wenn ich den Code nochmal starte löscht es wieder die Hälfte und immer so weiter. Kann sich jemand erklären, warum das so ist?
Danke und LG
Luisa
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Befehlt funktioniert nicht wie erwartet
20.03.2019 08:44:24
MCO
Guten Morgen Luisa!
Das ist so, weil zb die Zeile 5 beim löschen zu zeile 4 wird und das bei jedem löschvorgang.
Du mußt unten anfangen, dann hast du das problem nicht mehr.
For introw = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1
Gruß, MCO
Anzeige
Danke!
20.03.2019 08:46:37
Luisa
Hallo,
Oh man... Da hätte ich ja auch selbst drauf kommen können :D Manchmal hat man einfach ein Brett vorm Kopf :D
Danke Dir und noch einen schönen Tag!
LG Luisa
AW: Befehlt funktioniert nicht wie erwartet
20.03.2019 08:47:26
Engelchen
Hallo Luisa,
meines Erachtens musst Du von hinten nach vorn löschen, d.h.
(ungetestet) 
For introw = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
LG!
Engelchen
Anzeige
AW: Befehlt funktioniert nicht wie erwartet
20.03.2019 08:57:21
Daniel
Hi
naja, Zeilen einzeln per Schleife löschen ist langsam und aufwendig.
probier mal das: 
with columns(1)
.replace "AAAEDB", True, xlwhole
.SpecialCells(xlcelltypeconstants, 4).EntireRow.Delete
End with
oder die Standardmethode zum schnellen löschen von Zeilen mit Bedingung, hierbei werden per Formel alle Zeilen, die gelöscht werden sollen mit 0 markiert und die anderen Zeilen mit ihrer Zeilennummer. Dann kann man über das Duplikate-Entfernen die Zeilen mit 0 löschen: 
With Tabelle1.Usedrange
with .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(RC1=""AAAEDB"",0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlno
.ClearContents
end with
end with
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Suchen (STRG+F) einstellen
jens

Hallo Excel-Freunde,
Wie lautet das Makro, mit dem ich bei der Suchen -Funktion (STRG+F) die Voreinstellung Gesamten Zellinhalt vergleichen- ausschalten kann?
Viele Grüße
Jens
12.08.2008 18:38:36
Thread-ID: 1001291
12 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Anzeige
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
Anzeige
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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