Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro-Frage

Forumthread: Makro-Frage

Makro-Frage
27.07.2006 09:56:20
Martin
Hallo,
ich möchte ein kleines Makro haben, welches Folgendes schafft:
Ich möchte alle Zeilen in meinem Tabellenblatt gelöscht haben, welche in Spalte A keine Zahl stehen haben.
Und in Spalte A stehen bei mir in der Tabelle Zahlen von 2 bis 99. Die Zahlen 2 bis 9 möchte ich mit 02,03,04,05, usw. angezeigt haben lassen. Also alles mit einer 0 davor, damit alle Zahlen zweistellig sind in Spalte A. Dafür hätte ich auch gerne ein Makro.
Ich hoffe mir kann einer helfen,
Vielen Dank schonmal im Voraus!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro-Frage
27.07.2006 10:00:31
Matthias
Hallo Martin,

Sub Löschen()
Dim lz As Long, z As Long
lz = Cells(Rows.Count, 1).End(xlUp).Row
For z = lz To 1 Step -1
If Not IsNumeric(Cells(z, 1)) Then Rows(z).Delete
Next z
End Sub

Und das mit der führenden 0 geht einfach über Format, Zellen, Zahlen, Benutzerdefiniert, "00" eintragen.
Gruß Matthias
Anzeige
AW: Makro-Frage
27.07.2006 10:23:14
Martin
Hallo Matthias,
vielen Dank für die schnelle Antwort. Klappt schon ganz gut, bis auf eines:
Ein paar Zeilen haben in Spalte A überhaupt nichts stehen (keine numerischen und keine anumerischen zeichen). Diese paar Zeilen werden nicht gelöscht, wie kann ich das noch im Makro umbauen?
AW: Makro-Frage
27.07.2006 10:25:54
Matthias
Hallo Martin,
dann so:

If Not IsNumeric(Cells(z, 1)) Or Cells(z, 1) = "" Then Rows(z).Delete

Gruß Matthias
Anzeige
AW: Makro-Frage
27.07.2006 10:31:04
Martin
Einwandfrei!
Vielen Dank für deine Hilfe!
;

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