Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro automatisches Löschen

Makro automatisches Löschen
08.02.2007 13:39:11
Michael
Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Liste, die immer unterschiedlich lang ist (zwischen 100 und 500 Zeilen). Pro Zeile habe ich in einer Zelle einen Wert stehen: dieser kann entweder eine ganze Zahl oder leer sein. Ich würde nun gerne diese Liste automatisch so beschneiden, dass nur noch die Zeilen übrig bleiben, wo der Zellwert nicht leer und nicht 0 ist.
Könnt Ihr mir helfen?
Danke und Grüße
Michael

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro automatisches Löschen
08.02.2007 16:36:04
fcs
Hallo Michael,
folgendes Makro bereinigt die Liste. Die Nummer der Spalte und Zeile der 1. Zelle ggf. anpassen.
Gruß
Franz

Sub ListeBereinigen()
' ListeBereinigen Makro
' 0-Werte und Leerzellen in Spalte 1 (A) löschen
Dim Bereich As Range, wks As Worksheet
Set wks = ActiveSheet
With wks
Set Bereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
Bereich.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Bereich.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Bereich.Cells(1, 1).Select
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige