Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
22.10.2025 15:30:07
Beitragsproblem im Forum behoben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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