Datum

Titel

20.04.2024 07:57:54

Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

992to996

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Löschen von Werten wenn Bed. erfüllt ist

Forumthread: Löschen von Werten wenn Bed. erfüllt ist
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

10.07.2008 11:25:12

Werten

Hallo Excel - Experten,
ich habe zwei Spalten B und I
In Spalte B kommen von Zeile 11 bis 20.000 nur die Werte: 2 und 5 vor.
In Spalte I stehen Werte. Nun möchte ich gerne per VBA erreichen, daß
wenn in Spalte B eine 5 steht, der entsprechende Wert in Spalte I
gelöscht wird ( nur der Wert, nicht die Zeile ).
Wäre für jeden Tipp dankbar :-)
Viele Grüße
Ralf

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:38:00

Werten
Danke Wolli !

10.07.2008 12:23:00

Ralf
AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:41:46

Werten
Danke Ede !

10.07.2008 12:20:00

Ralf
AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:42:00

Werten
Danke David , klappt super :-)

10.07.2008 12:17:00

Ralf

AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:38:00

Werten

Hallo Ralf, mal ungetestet hier hineingetippt:


for i = 11 to 20000
if cells(i,2) = 5 then cells(i,9).clearcontents
next i

oder (etwas variabler)


i = 11
do
if cells(i,2) = 5 then cells(i,9).clearcontents
i = i + 1
loop until cells(i,2) = ""

Gruß, Wolli

Danke Wolli !

10.07.2008 12:23:00

Ralf

Hallo Wolli,
vielen Dank für Deine superschnelle Antwort.
Bei VBA Kenntnissen habe ich bescheiden angeklickt,
ich hätte besser "grottenschlecht" sagen sollen !
Wären meine Kenntnisse besser, könnte ich mit
Deiner guten Antwort sicher mehr anfangen.
Viele Grüße
Ralf

AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:41:46

Werten

Hallo Ralf,
dann lass ein Schleife laufen:


Sub löschen5()
For zeile = 11 To 20000
If Cells(zeile, 2) = 5 Then
Cells(zeile, 9) = Null
End If
Next zeile
End Sub

gruss

Danke Ede !

10.07.2008 12:20:00

Ralf

Hallo Ede,
vielen Dank für Deine schnelle Antwort !
Als ich Deinen Code eingebaut hatte, sagte mir
Excel : Variable nicht definiert :-( und vielleicht
hätte ich bei Kenntnisse doch ziemlich bescheiden
angeben sollen :-)
Viele Grüße
Ralf

AW: Löschen von Werten wenn Bed. erfüllt ist

10.07.2008 11:42:00

Werten

Das sollte funzen:


Sub löschen()
Dim bereich As Range
Dim Zelle As Range
Set bereich = Range("B11:B20000")
For Each Zelle In bereich
If Zelle.Value = 5 Then
Zelle.Offset(0, 7).Clear
End If
Next
End Sub

Rückmeldung wäre nett.
Gruß
David

Danke David , klappt super :-)

10.07.2008 12:17:00

Ralf

Hallo David,
ich hatte ganz unten zwei Kontrollsummen
eingebaut und es war schön mitanzusehen,
wie nach dem Aktivieren Deines Codes, sich
beide Summen anglichen :-)
Vielen Dank für Deine schnelle Hilfe
und viele Grüße aus dem Teutoburger Wald
Ralf