Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro automatisches Löschen

Forumthread: 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
Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige