Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Löschen verfeinern

Makro zum Löschen verfeinern
22.09.2008 14:19:51
Matthias
Hallo, ich habe eben folgendes Makro bekommen, dass leere Zeilen löscht:

Sub LeereLoeschen()
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Es löscht also alle Zeilen, wenn in der zweiten Spalte keine Inhalte stehen.
Das Makro soll zusätzlich noch ganze Zeilen löschen, bei einem bestimmten Wert haben.
Kurz: Zeile löschen, wenn in der Spalte 2 entweder nichts steht(darauf bezieht sich das makro oben), oder bei einem bestimmten Wert, bzw Werten, meist Strings.
Vielen Dank für eure Hilfe!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Löschen verfeinern
22.09.2008 15:28:53
Peter
Hallo Matthias,
dann versuch es einmal so:

Public Sub loeschen()
Dim lZeile  As Long
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For lZeile = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(lZeile, 2).Value = "Hugo" Or _
Cells(lZeile, 2).Value = "Franz" Then
Rows(lZeile).Delete Shift:=xlUp
End If
Next lZeile
End Sub


Gruß Peter

AW: Makro zum Löschen verfeinern
22.09.2008 15:36:06
Matthias
Hallo Peter,
super, dass sieht doch gut aus. Die Anweisung "Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1"
hatte ich auch schonmal in einem Makro verbaut, allerdings weiß ich nicht genau was dort passiert.
Könntest du mir kurz aufschreiben, was hier genau passiert.
Vielen Dank für den neuen Code.
Gruß
Matthias
Anzeige
AW: Makro zum Löschen verfeinern
22.09.2008 15:47:00
Peter
Hallo Matthias,
es wird von ganz unten in der angegebenen Spalte (hier 2 = B) nach oben (xlUp) die letzte belegte Zelle gesucht. Von diese Zelle/Zeile aus bis zur Zeile 1 werden nun deine gesuchten Begriffe abgeglichen und bei GEFUNDEN wird die Zeile gelöscht.
Das muss immer von unten begonnen werden, da ja immer weniger Zellen an der Verarbeitung teilnehmen (falls gelöscht wird) und For/Next sonst sein Ende nicht mehr finden würde.
Gruß Peter
AW: Makro zum Löschen verfeinern
22.09.2008 15:54:20
Matthias
jetzt verstehe ich erst den Sinn und es erscheint mir auch logisch. Super, vielen Dank!! Diese Anweisung begegnet einem bzw. mir recht oft.
Gruß
Matthias
Anzeige
AW: Makro zum Löschen verfeinern
22.09.2008 15:31:00
Klaus
Hallo Matthias,
probier mal das aus:

Sub leere_bedingt_loeschen()
Dim lRowLast As Long
Dim iCol As Integer         'Spalte definieren
Dim r As Range
Dim sRemove As String
iCol = 2                    'Spalte B
sRemove = "2"               'alles löschen, was 2 als Inhalt hat
lRowLast = Cells(65536, iCol).End(xlUp).Row + 1     'Letzte Zeile
For Each r In Range(Cells(1, iCol), Cells(lRowLast, iCol))
If r = sRemove Then
r.ClearContents     'jede "2" gegen leere Zelle tauschen
End If
Next r
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete  'alle leeren Zellen löschen
End Sub


Grüße,
Klaus M.vdT.

Anzeige
AW: Makro zum Löschen verfeinern
22.09.2008 16:41:59
Matthias
Hallo Klaus,
vielen Dank für deine Hilfe. Bei Makros ist es immer gut verschiedene Lösungen zu sehen.
Gruß
Matthias
AW: Makro zum Löschen nochmals verfeinern
22.09.2008 20:09:00
Daniel
Hi
wenn die Werte in den Zellen, die gelöscht werden sollen, Feste Werte sind und keine Formeln, gehts eigentlich noch einfacher:
Beispiel:
Gelöscht werden sollen alle Zeilen, die in Spalte 2 Leer sind, oder wo "Hugo" oder "Klaus" drin steht:

Sub Löschen()
With Columns(2)
.Replace "Klaus", "", lookat:=xlWhole
.Replace "Hugo", "", lookat:=xlWhole
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub


Gruß, Daniel

Anzeige
AW: Makro zum Löschen nochmals verfeinern
23.09.2008 11:37:00
Klaus
Hey Daniel,
ich wusste es geht auch ganz ohne schleife! Vielen Dank für den eleganten Code.
Grüße,
Klaus M.vdT.

300 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
15
2
13
6
2
5
3
3
9
4
9
2
2
5
1
3
15
12
5
2
4
3
6