Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Löschen

Löschen
27.01.2004 12:57:00
tim
Hallo zusammen,
ich habe folgendes Problem.
Ich habe eine Liste in der Werte vorhanden sind.
Ich möchte das alle Spalten in denen alle Werte 0 erkannt werden und gelöscht werden und das sich die Liste so verschiebt das keine Leerspalten vorhanden sind.
Kann mir jemand helfen?
Besten Dank im voraus.
Ich denke mal ich habe zu wenig Ahnung ;-/
Wenn ich das in mein Tabellenblatt einfüge und durchlaufen lasse
passiert nach Eingabe des gesuchten Wertes nix.
Was mache ich falsch?

Sub Löschen()
Dim Wert As String
Dim I As Integer
Wert = InputBox("Bitte den Suchbegriff eingeben", "Suchbegriff")
If Wert = "" Then Exit Sub
For I = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
If Cells(I, 7) = Wert Then Rows(I).Delete
Next
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen
27.01.2004 13:10:52
Josef Ehrensberger
Hallo Tim!
Hast Du in Spalte "7" den Werte stehen?
Gruß Sepp
AW: Löschen
27.01.2004 13:13:48
tim
Hallo Sepp,
egal was ich für nen Wert reinschreibe.
Es passiert nichts.
AW: Löschen
27.01.2004 13:20:18
klaus
Hallo Tim,
der Sepp meinte wohl, ob es sich hier tatsächlich um Werte im Sinne von Zahlen handelt und nicht die Zellen möglicherweise anders formatiert sind.
Gruss
Klaus
AW: Löschen
27.01.2004 13:24:41
DieterB
Hallo,
habe den Code mal getestet.
bei mir löscht er Zeilen keine Spalten.
Und auch nur wenn ich in Spalte a den gesuchten Wert stehen habe.
gruß
DieterB
AW: Löschen Nachtrag
27.01.2004 13:26:14
DieterB
Habe aus
For I = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(I, 1) = Wert Then Rows(I).Delete
Next
7 >> 1 gemacht.
Gruß
DieterB
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige