Datum

Titel

18.04.2024 10:30:26

bedingte Formatierung lange Zahlen

18.04.2024 09:22:48

VBA Filter in intelligenter Tabelle funktioniert nicht

18.04.2024 08:54:52

automatisches übertragen von Daten

18.04.2024 08:16:13

Dynamische Positionsnummerierung

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1644to1648

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 eines Zellbereichs wenn Bedingung erfüllt

Forumthread: Löschen eines Zellbereichs wenn Bedingung erfüllt
7 Beiträge zu diesem Forumthread
Anzeige
355 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

13.09.2018 11:13:24

Simy

Moin zusammen,
wie bekomme ich folgendes Problem gelöst:
Ich will über das Ausführen einer Schaltfläche prüfen lassen, ob der Wert in K10 größer als eins ist. Sollte das der Fall sein, soll der Zellbereich K10:K16 vollständig gelöscht (Inhalt, Rahmen, Farben) werden. Und das nicht nur für den Zellbereich K10:K16, sondern auch J10:J16, I10:I16, usw. in einer Schleife bis nach vorne zu Spalte B?
Kann mir jemand helfen?
Danke und Grüße
Simy

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Löschen eines Zellbereichs wenn Bedingung erfüllt

13.09.2018 11:17:30

Torsten
AW: Löschen eines Zellbereichs wenn Bedingung erfüllt

13.09.2018 11:24:31

Simy
AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 11:32:57

Daniel
AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 12:38:30

Simy
AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 12:52:48

Daniel
AW: Oder

13.09.2018 13:19:57

Gerd
AW: Oder

13.09.2018 18:35:20

Simy

AW: Löschen eines Zellbereichs wenn Bedingung erfüllt

13.09.2018 11:17:30

Torsten

versteh ich das richtig?

wenn K10

usw.
oder wird nur K10 geprueft?

AW: Löschen eines Zellbereichs wenn Bedingung erfüllt

13.09.2018 11:24:31

Simy

Hallo Torsten,
genau, es soll K10 geprüft werden und danach J10, usw.
Gruß
Simy

AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 11:32:57

Daniel

Hi
folgender Code für den Button sollte reichen:

dim Zelle as range
for each Zelle in Range("B10:K10")
if Zelle.Value > 1 then Zelle.Resize(7, 1).Clear
next

Gruß Daniel

AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 12:38:30

Simy

Hallo Daniel,
funktioniert hervorragend. DANKE!
Eine Kleinigkeit noch:
Wenn B10 größer als eins ist, dann soll automatisch A10:A16 (Erläuterungen zur Zeile) auch gelöscht werden. Wie bekomme ich das in den Code noch rein?
Danke und Gruß
Simy

AW: Löschen eines Zellbereichs wenn Bedingung erf

13.09.2018 12:52:48

Daniel

Naja, B10 aus der Schleife rausnemen und B10 seperat programmieren

With Range("B10")
If .value > 1 Thema .Offset(0, -1).Resize(7, 2).Clear
Ende with

Gruß Daniel

AW: Oder

13.09.2018 13:19:57

Gerd

Moin Simy

Sub test()
Dim Zelle As Range
For Each Zelle In Range("B10:K10")
If Zelle.Value > 1 Then
If Zelle.Address = "$B$10" Then
Zelle.Offset(0, -1).Resize(7, 2).Clear
Else
Zelle.Resize(7, 1).Clear
End If
End If
Next
End Sub

Gruß Gerd

AW: Oder

13.09.2018 18:35:20

Simy

Hallo Daniel,
Hallo Gerd,
funktioniert tadellos. Danke!
Viele Grüße
Simy