Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalte von Zellen löschen wenn Bed. nicht erfüllt

Inhalte von Zellen löschen wenn Bed. nicht erfüllt
27.10.2003 14:36:32
Bernd
Hallo,

vielleicht kann mir ja jemand weiterhelfen, ich habe eine Tabelle von J1001:P1990. Jetzt wollte ich die Inhalte der Zeilen löschen wo in Spalte P eine "0" steht. Vielleicht hat ja jemand ne Ahnung wie man das als Makro realisieren kann (Aber nur den Inhalt löschen, nicht die ganze Zeile).
Danke für eure Hilfe schon mal im Voraus

Gruß Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte von Zellen löschen wenn Bed. nicht erfüllt
27.10.2003 14:43:42
ChrisL
Hi Bernd

Option Explicit


Sub t()
Dim Zelle As Range
For Each Zelle In Range("P1001:P1990")
If Zelle = 0 Then Range("J" & Zelle.Row & ":P" & Zelle.Row).ClearContents
Next Zelle
End Sub


Gruss
Chris
AW: Inhalte von Zellen löschen wenn Bed. nicht erfüllt
27.10.2003 14:46:46
Andi_H
Hi bernd,
diesen Code in ein Modul kopieren, auf dein Tabellenblatt wechseln und Makro loeschen starten.


Sub loeschen()
dim i as integer
for i = 1001 to 1990
if cells(i,16) = 0 then
rows(i).clearcontents
end if
next
End Sub


gruß

andi
AW: Inhalte von Zellen löschen wenn Bed. nicht erfüllt
27.10.2003 14:49:23
Michael Brueggemann
Hallo Bernd,

so sollte es gehen:


Sub Inhalte_entfernen()
Dim i As Integer
Dim wks As Worksheet
' das zu bearbeitende Worksheet festlegen
Set wks = ThisWorkbook.Sheets("Tabelle1")
' Schleife von Zeile 1001 bis Zeile 1990 abearbeiten
For i = 1001 To 1990
' wenn Inhalt in Spalte "P" = 0, dann Inhalte aus
' Bereich "J:O" entfernen
If wks.Cells(i, 16).Value = 0 Then _
wks.Range(Cells(i, 10), Cells(i, 15)).ClearContents
Next i
End Sub


CIAO
Michael
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige