Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Zahlen mit drei 0 löschen

Makro Zahlen mit drei 0 löschen
07.04.2009 11:07:59
Jeron
Hallo zusammen,
kann mir jemand bitte bei einem Makro helfen ?
Das Makro soll aus einer beliebig langen Tabelle alle Nummern in der ersten Spalte überprüfen.
Wenn die Zahl mit drei Nullen beginnt, soll die gesamte Zeile gelöscht werden.
Vielen Dank für eure Hilfe!!
Beste Grüße aus München
Jeron Bitto

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Zahlen mit drei 0 löschen
07.04.2009 11:23:22
ede
Hallo Jeron,
stell mal eine kleine Beispieldatei ab, damit man sieht, ob in Spalte a Eine Zahl oder Text steht!
Gruss
AW: Makro Zahlen mit drei 0 löschen
07.04.2009 11:24:13
Oberschlumpf
Hi Jeron
Versuch mal so:

Sub sb000Clear()
Dim loZeile As Long
For loZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Left(Range("A" & loZeile).Text, 3) = "000" Then
Rows(loZeile).Delete
End If
Next
End Sub


Dieses Makro beginnt mit der Suche in der letzten, benutzten Zelle in Spalte A und "wandert" mit jedem Schritt eine Zelle höher bis Zelle (Zeile) 1.
Gesucht wird nach "000" für die jeweils ersten drei Zahlen. Wenn gefunden, wird die ganze Zeile gelöscht.
Hilfts?
Ciao
Thorsten

Anzeige
AW: Makro Zahlen mit drei 0 löschen
07.04.2009 12:40:05
Jeron
Hallo zusammen,
vielen Dank für die schnellen Antworten.
Mit dem Makro von Thorsten hat es super geklappt! Danke!!!
Einen schönen Tag!
Jeron Bitto
AW: Zeilen löschen mit ner Schleife...
08.04.2009 00:20:32
Daniel
... ihr habt wohl alle zuviel Zeit ;-)
Gruß, Daniel
AW: Makro Zahlen mit drei 0 löschen
07.04.2009 11:36:01
Tino
Hallo,
geht es hiermit?
Es werden zwei Hilfsspalten am ender der Tabelle verwendet, diese werden wieder gelöscht.
Den Tabellennamen musst Du noch anpassen.
Option Explicit

Sub LoescheDatenMit_000()
Dim Bereich As Range, Bereich1 As Range


With Sheets("Tabelle1") 'Tabellenname anpassen 
 Application.ScreenUpdating = False
    
    Set Bereich = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
    Set Bereich = Bereich.Offset(0, .Columns.Count - 1)
    Set Bereich1 = Bereich.Offset(0, -1)
    Bereich.FormulaR1C1 = "=IF(LEFT(RC1,3)=""000"",0,"""")"
    Bereich1.FormulaR1C1 = "=IF(RC[1]=0,0,ROW())"
    Bereich1.Value = Bereich1.Value
    
    If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then
     .UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlNo
     Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
     .UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlNo
    End If

    .Columns(.Columns.Count).Delete
    .Columns(.Columns.Count - 1).Delete
 
 Application.ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige

321 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
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Zelle mit Zahl zerlegen
Karsten

Hallo Leute,
folgendes Problem:
ich habe in der Zelle N3 eine Versionsnummer stehen (Beispiel) 1.23.45.
Wobei die Position der Punkte nicht fest ist, also wären auch 12.3.45 oder 12.34.56 möglich.
Diese Versionsnummer möchte ich nun in VBA auf 3 Variablen verteilen, also X1, X...
18.09.2008 14:57:00
Thread-ID: 1010749
16 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige

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
2
4
5
2
1
3
5
15
1
11
2
2
5
3
1
7
2
2
6
1
1
4
21
2