Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2025 15:07:04
Tage berechnen und ausgeben
14.05.2025 14:06:10
Datenbank anlegen, Daten aufrufen und Daten abspeichern
14.05.2025 13:42:12
ZÄHLENWENN findet das Komma nicht
14.05.2025 10:48:16
Weiterentwicklung einer Finanz-Controlling-Datei
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen löschen

Forumthread: Zellen löschen

Zellen löschen
26.09.2003 10:24:36
Thorsten
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Löschen
Tags
#makro #vba #zellen löschen
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Zellen löschen
26.09.2003 10:49:07
Remo
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
AW: Zellen löschen
26.09.2003 10:51:17
EL
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
Anzeige
AW: Zellen löschen
26.09.2003 11:48:18
EL
Hallo Thorsten!

So kannst du die Ganze zeile löschen

If (Cells(r, 2)) > 1 _
Then Rows(r).Delete
mfg
EL
AW: Zellen löschen
26.09.2003 11:05:18
Jan
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!
Anzeige
AW: Zellen löschen
26.09.2003 11:30:52
Thorsten
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 ????
AW: Zellen löschen
26.09.2003 11:35:44
EL
hallo Thorsten!
mit meinem code hast du das Probem nicht!
mfg
EL
AW: Zellen löschen
26.09.2003 16:52:27
Jan
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!
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