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 09:41:15
tim
Hallo zusammen,
ich habe folgendes Problem.
Ic 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.

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

Betreff
Datum
Anwender
Anzeige
AW: Löschen
27.01.2004 09:50:42
Dirk
Hallo.
Was genau ist das Löschkriterium? "Leere Zelle" oder "0" oder beides?
Cheers
AW: Löschen
27.01.2004 10:05:29
tim
Hallo Dirk,
das Löschkriterium ist eine 0.
AW: Löschen
27.01.2004 12:54:13
tim
Ich denke mal ich habe zu wenig Ahnung ;-/
Wenn ich das in meein 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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige