Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

von Bedinung abhäniges Löschen von Zeilen

Forumthread: von Bedinung abhäniges Löschen von Zeilen

von Bedinung abhäniges Löschen von Zeilen
Bedinung
Guten Morgen,
habe ein Problem mit dem automatisierten Löschen von Zeilen:
In einer Tabelle möchte ich alle Zeilen gelöscht bekommen, in denen die Spalte B leer ist oder den Eintrag "Oe-Summe" enthält. Der Versuch, eine entsprechende Wenn-Funktion einzubauen (wenn$b2="oe-Summe";"";c2) führt beim Versuch, diese über die ganze Tabelle zu ziehen zur Anzeige "Zirkelbezug".
viele Grüße
Gorkij
Anzeige
AW: von Bedinung abhäniges Löschen von Zeilen
15.09.2009 13:02:34
Bedinung
Hi Gunter,
o.k., es passiert genau das, was ich auch in meiner Tabelle erreichen wollte, nur wie krieg' ioch diese Funktion jetzt in meine Mappe?
Anzeige
AW: von Bedinung abhäniges Löschen von Zeilen
15.09.2009 13:08:07
Bedinung
Also, du musst dir zuerst einen Command Button auf deiner Tabelle erstellen. Mit einem Rechtsklick und "Code anzeigen" kommst du auf die VBA-Ebene und dort fügst du diesen Code ein.
Private Sub CommandButton1_Click()
Dim z As Long, lZ As Long
lZ = Sheets("Tabelle1").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("Tabelle1")
If .Cells(z, 2) = "" Or .Cells(z, 2) = "oe-Summe" Then .Rows(z).Delete
End With
Next
End Sub

Dann sollte das schon funktionieren.
Gunter
Anzeige
bedingtes Löschen von Zeilen
15.09.2009 13:29:54
Zeilen
Hi zusammen,
( With ) Sheets("Tabelle1") ist überflüssig, wenn der Code im Modul dieses Tabellenblatts steht.
Mit dem folgenden Code flackerts etwas weniger,
weil das Löschen am Schluss auf einen Schlag erfolgt: 

Private Sub CommandButton1_Click()
Dim rngC As Range, rngDel As Range
For Each rngC In Cells(1, 2).Resize(Cells(Rows.Count, 2).End(xlUp).Row)
If rngC = "" Or rngC = "oe-Summe" Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next rngC
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: bedingtes Löschen von Zeilen
15.09.2009 14:08:20
Zeilen
Sorry, aber ich weiß zwar, wie man eine Schaltfläche herstellt, aber was muss ich tun, damit dieser Button den eingefügten VBA-Code ausführt?
Brauche halt noch Anleitung in Schreibschrift
AW: bedingtes Löschen von Zeilen
15.09.2009 14:13:31
Zeilen
Du darfst keine Schaltfläche herstellen sondern verwende den CommandButton unter ActiveX Steuerelemente. Diesen mit der rechten Maustaste anklicken und Code eingeben auswählen.
Anzeige
AW: bedingtes Löschen von Zeilen
15.09.2009 14:34:25
Zeilen
Steuerelemente gefunden, Button eingerichtet - und dennoch einen Weg gefunden, damit es nicht funktioniert. Habe die Datei mal angefügt, vielleicht ist da ja zu erkennen, wo der Feher liegt.
Gorkij

Die Datei https://www.herber.de/bbs/user/64429.xls wurde aus Datenschutzgründen gelöscht


Anzeige
AW: bedingtes Löschen von Zeilen
15.09.2009 14:59:25
Zeilen
Das muss dann natürlich angepasst werden 
Private Sub CommandButton1_Click()
Dim z As Long, lZ As Long
Application.ScreenUpdating = False
lZ = Sheets("Controlling").Cells(65536, 3).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("Controlling")
If .Cells(z, 3) = "" Or .Cells(z, 3) = "oe-Summe" Then .Rows(z).Delete
End With
Next
Application.ScreenUpdating = True
End Sub

Anzeige
AW: bedingtes Löschen von Zeilen
15.09.2009 15:14:39
Zeilen
und wenn "oe-Summe" in der Tabelle "Oe-Summe:" heisst dann muss das so aussehen 
Private Sub CommandButton1_Click()
Dim z As Long, lZ As Long
Application.ScreenUpdating = False
lZ = Sheets("Controlling").Cells(65536, 3).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("Controlling")
If .Cells(z, 3) = "" Or .Cells(z, 3) = "Oe-Summe:" Then .Rows(z).Delete
End With
Next
Application.ScreenUpdating = True
End Sub

Anzeige
AW: bedingtes Löschen von Zeilen
15.09.2009 15:22:17
Zeilen
DANKE!!
Es Funzzt - musste nur noch "oe-summe" in d"Oe-Summe:" ändern, den Großbuchstaben hatte ich zwar schnell als mögliche Fehelrquelle erkenant, aber dann war da noch dieser schäbige Doppelpunkt.
nochmals herzlichen Dank.
AW: bedingtes Löschen von Zeilen
15.09.2009 15:30:48
Zeilen
Gern geschehen.
OT @Gorki : Anleitung in "Handschrift"
15.09.2009 14:41:19
NoNet

Hallo Gorki,
Der Ausdruck "Anleitung in Handschrift" ist gut - allerdings für den Antwortenden aufwändiger zu erstellen.
Bleibt zu hoffen, dass Du diese "Handschrift" dann auch gut lesen kannst ;-)
Gruß, NoNet

Anzeige
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Zeilen nach Abfrage einfärben
Dirk

Hallo, ich möchte gerne in einer Tabelle folgendes abfragen:
Wenn in Spalte P der Wert kleiner 0 ist, dann färbe mir die
Entsprechenden Zeilen in Spalte A,B,C, ein.
Mit der bedingten Formatierung haut so etwas nicht hin.
Wer hat eine einfache Idee ?
Gruß Dirk
04.09.2008 07:51:44
Thread-ID: 1007267
5 Beiträge
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
2 Zeilen einfügen + Schleifenweiterlauf
Herbert

Hallo zusammen,
ich bin neu hier und sehr begeistert von diesem Forum/dieser Website - wirklich toll, dass es so etwas gibt:-)
Allerdings habe ich ein kleines VBA-Problem.....
Dim reihe As Integer
Const spalte As Integer = 5 ' Spalte Teilebezeichnung
reihe = 3 ' Tabelle...
16.09.2008 20:06:00
Thread-ID: 1010193
5 Beiträge
Zeilen löschen verhindern
steffen

Hallo Excelgemeinde,
ich scheiere gerade an dem Versuch, mein Tabellenblatt so zu sichern, dass auch nach dem "Blattschutz aufheben" ein Löschen von Zeilen nicht möglich ist. Das einfachste wäre natürlich ein Blattschutz mit Kennwort. Das will ich aber nicht.
Ich dachte da an sowas, wie...
22.09.2008 10:46:33
Thread-ID: 1011401
2 Beiträge
Anzeige
Makro zur Zeilen löschen verfeinern
Matthias

Hallo Zusammen,
ich habe ein Makro, das alle Zeilen löscht in denen kein Inhalt steht.
Allerdings würde ich das Makro gerne so anpassen, dass er eine Zeile komplett löscht, wenn in einer bestimmten Spalte die Zelle leer ist.
Das Makro soll also nicht die gesamte Zeile nach Inhalten...
22.09.2008 13:23:19
Thread-ID: 1011460
4 Beiträge
optimale Zeilenhöhe einer Zeile
Jakob

Hallo,
ich habe ein kleines Problem mit der optimalen Höhe einer Zeile und vielleicht habt Ihr eine Lösung für mein Problem.
Man kann ja unter Zellen formatieren/Textsteuerung den Haken bei Zeilenumbruch anklicken und Excel paßt die Zeilenhöhe automatisch an. Soweit so gut. Wenn ich abe...
24.09.2008 15:24:00
Thread-ID: 1012091
7 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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