Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen wenn x Spalten leer

Zeilen löschen wenn x Spalten leer
29.07.2008 21:26:22
Tomboy
Hallo zusammen,
ich habe folgendes Problem für das ich noch keine altagstaugliche Lösung gefunden habe.
Es geht um eine Tabelle in der in der ersten Spalte eine Artikelnummer steht und in den Spalten rechts davon (bis zu 12 Spalten) in denen die Umsätze zu den Artikelnummern stehen. Nun ist das Problem, dass es Artikel gibt auf die keine Umätze gebucht sind (in keinem der 12 Monate) und genau diese Artikel sammt Zeile möchte ich nun löschen (es sind über 2000 Artikel).
Mein bisheriger Ansatz ist über eine Summe nach der letzten Spalte, die Artikel kenntlich zu machen auf die keine Umsätze laufen, was aber im Altag immer nerviger wird.
Hier noch mal das Beispiel:
Artikelnummer 1Q 2Q 3Q 4Q
1 4 5
2 5 2
3
4 6
5 6
6 5 5
Ziel soll sein das die Zeile mit Artikelnummer 3 gelöscht wird, weil es keine Umsätze gibt.

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

Betreff
Datum
Anwender
Anzeige
Kleines Makro
29.07.2008 21:56:09
backowe
Hi,
VBA-Code:
Sub ZeilenLoeschen()
'Code in ein Modul
Dim Zelle As Range
For Each Zelle In Range("A" & Cells(Rows.Count, "A").End(xlUp).Row & ":A2")
  If Application.CountA(Range(Cells(Zelle.Row, "B"), Cells(Zelle.Row, "M"))) = 0 Then
    Zelle.EntireRow.Delete
  End If
Next
End Sub
Gruss Jürgen

Anzeige
AW: Kleines Makro
30.07.2008 08:06:16
Luschi
Hallo Jürgen,
auch wenn man den Range-Bereich so definiert: Set Zelle = Range("B20:M1") switcht Excel den Bereich um in
Range("B1:M20") und damit läuft die Schleife von Zeile 1 bis Zeile 20.
Dies ist beim Löschen von Zeilen Gift und führt zu falschen Ergebnissen.
Hier nun mein Vorschlag: 

Sub ZeilenLoeschen_1()
'Code in ein Modul
Dim Zelle As Range, n1 As Long, n2 As Long
'letzte Zeile in Spalte A
n1 = Cells(Rows.Count, "A").End(xlUp).Row
For n2 = n1 To 2 Step -1
If Application.CountA(Range(ActiveSheet.Cells(n2, "B"), ActiveSheet.Cells(n2, "M"))) = 0  _
Then
ActiveSheet.Cells(n2, 1).EntireRow.Delete
End If
Next
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
Das muss ich mir merken, ist mir so ...
30.07.2008 08:59:07
backowe
Hi Luschi,
... noch nicht aufgefallen. Mir ist Deine Schreibweise :) zu unübersichtlich, also habe ich es so angepasst.
VBA-Code:
Sub ZeilenLoeschen()
'Code in ein Modul
Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
  If Application.CountA(Range(Cells(i, "B"), Cells(i, "M"))) = 0 Then
    Cells(i, "A").EntireRow.Delete
  End If
Next
End Sub
Gruss Jürgen

Anzeige
AW: Das muss ich mir merken, ist mir so ...
30.07.2008 11:20:45
Luschi
Hallo Jürgen,
wer mit Programmierung 'Geld' verdienen will, muß/sollte nicht immer den geraden Weg der Lehrbuch-Theorie folgen. Da es von M$ leider keinen vernünftigen Vba-Code-Schutz gibt (auch Excel 2007 hat nichts Neues zu bieten), schreibe ich den Code so, daß man schon Nachdenken muß darüber, was hier eigentlich passieren soll. Auch in den Hilfe-Foren kann ich meist 'leider!' davon nicht lassen.
Auf jeden Fall teste ich meine Lösungsvorschläge immer an einem konkreten Beispiel.
Gruß von Luschi
aus klein-Paris

Für mich ist Excel & VBA ein Hobby!
30.07.2008 12:07:00
backowe
Hallo Luschi,
mein Geld verdiene ich als Administrator in einem Callcenter. Mein Lehrbuch war das Lesen von Spotlight, Herber und MOF und natürlich auch durch das Beanworten von irgendwelchen Threads in den genannten Foren, also mehr oder weniger "learning by doing". Ich bin durch Zufall zu VBA gekommen, da im Rahmen meiner Tätigkeit, eine Anforderung die an mich gestellt wurde, nicht mit Formeln bewältigen konnte.
Ich habe meinen Code auch getestet, aber ich hatte nur 3 Zeilen zu löschen und bei einem Intel E6750 mit 3 GByte RAM ist da nicht viel zu sehen. :) Also mir ist es nicht aufgefallen, daß der Code von "oben nach unten gelaufen" ist, deswegen habe ich jetzt auch wieder den "Einzelschrittmodus" zwischen meinen Ohren aktiviert. ;o)
Gruss Jürgen
Anzeige

305 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zelle löschen wenn Formel kein übertrag macht
Roger

Hallo
Ich hab da folgendes Problem das ich gern egelöst hätte.
Auf einem Blatt (übersicht) habe ich in den Zeilen 7 - 210 Formeln eingetragen, die auf andere Blätter (Monate) verweisen. Wenn nun auf dem anderen Blatt z.b. Monat Januar und Monat Dezember etwas eingetragen wird so wird e...
08.10.2008 11:16:00
Thread-ID: 1014963
8 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
5
5
7
15
5
4
2
9
7
2
2
9
9
10
4
5
2
7
3
3
10
5
1
7