Das Archiv des Excel-Forums

Zellen löschen

Bild

Betrifft: Zellen löschen
von: Thorsten

Geschrieben am: 26.09.2003 10:24:36

Hallo,

ich möchte gerne in einer Zeile alle Zellen löschen,
wenn in der Zeile darunter in der entsprechenden Zelle der Inhalt größer als 1 ist.( Beispiel:A1 löschen wenn B1> 1)
Das ganze soll automatisch laufen in einer Tabelle mit ca. 12.000 Zeilen und ca. 50 Spalten.
Herzlichen Dank für die Mühe
Bild


Betrifft: AW: Zellen löschen
von: Remo
Geschrieben am: 26.09.2003 10:49:07

Hallo Thorsten

Habe dir mal so als Idee diesen Code:


Sub löschen()
Set Bereich = Worksheets(1).UsedRange
For Each Zelle In Bereich
If Zelle.Offset(1, 0).Value > 1 Then Zelle.ClearContents
Next
End Sub


Gruss Remo


Bild


Betrifft: AW: Zellen löschen
von: EL
Geschrieben am: 26.09.2003 10:51:17

Hallo Thorsten!
so geht:

Sub test()
lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = lastrow To 1 Step -1
If (Cells(r, 2)) > 1 _
Then Cells(r, 1) = ""
Next r
End Sub

MFG
EL


Bild


Betrifft: AW: Zellen löschen
von: EL
Geschrieben am: 26.09.2003 11:48:18

Hallo Thorsten!

So kannst du die Ganze zeile löschen

If (Cells(r, 2)) > 1 _
Then Rows(r).Delete
mfg
EL


Bild


Betrifft: AW: Zellen löschen
von: Jan
Geschrieben am: 26.09.2003 11:05:18

Hallo Thorsten,

so müßte es funktionieren...


Sub ZeilenLöschen()
Dim Wert As Double
Sheets(1).Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
Wert = ActiveCell.Offset(1, 0).Value
If Wert > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub


Viele Grüße Jan!


Bild


Betrifft: AW: Zellen löschen
von: Thorsten
Geschrieben am: 26.09.2003 11:30:52

Danke für die Nachricht. Wenn ich das makro ausführe, sag er Typ unverträglich.
Liegt es daran, dass in der Zelle B1 ein Zählenwnn abfrage steckt ????


Bild


Betrifft: AW: Zellen löschen
von: EL
Geschrieben am: 26.09.2003 11:35:44

hallo Thorsten!
mit meinem code hast du das Probem nicht!
mfg
EL


Bild


Betrifft: AW: Zellen löschen
von: Jan
Geschrieben am: 26.09.2003 16:52:27

Hallo Thorsten,

wahrscheinlich hatte ich Dich sowieso falsch verstanden. Du möchtest also immer die Bedingung in der Zelle der Spalte B prüfen (ich habe immer die Zelle darunter also A2 etc. prüfen lassen).

Der Code muß dann so lauten:

Wert = ActiveCell.Offset(0, 1).Value

Meines erachten ist es dabei unerheblich ob der Wert aus einer Formel/Abfrage entsteht. Wahrscheinlich hast Du in Spalte A keine numerischen Werte, mit der Codeänderung dürfte die Fehlermeldung somit nicht mehr auftreten.

Gruß Jan!


 Bild

Excel-Beispiele zum Thema " Zellen löschen"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download