Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
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
Anzeige
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!
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
Anzeige
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!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige