Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Bereich löschen

Suchen und Bereich löschen
14.09.2020 08:44:16
xtian
Guten Morgen,
ich benötige einmal Hilfe für ein Makro und bin mir nicht sicher ob das überhaupt so klappt wie ich
mir das vorstelle.
Das Makro soll in der Spalte B nach einem X suchen. Wir ein X gefunden, soll das Makro immer
einen bestimmten Bereich (Bereich hat immer die gleiche Größe) an Zellen löschen.
Beispiel:
In Zelle B2 wird ein X gefunden. Jetzt soll der Inhalt im Bereich der Zellen E2 bis G3 gelöscht werden.
In Zelle B5 wird ein X gefunden. Jetzt soll der Inhalt im Bereich der Zellen E5 bis G6 gelöscht werden.
In Zelle B8 wird ein X gefunden. Jetzt soll der Inhalt im Bereich der Zellen E8 bis G9 gelöscht werden.
Vielen Dank für eure Unterstützung.
Viele Grüße
Christian

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Bereich löschen
14.09.2020 09:00:20
fcs
Hallo Christian,
so geht es.
LG
Franz 
Sub X_Suchen_EG_loeschen()
Dim wks As Worksheet
Dim Zeile As Long
Set wks = ActiveSheet
With wks
For Zeile = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If UCase(.Cells(Zeile, 2).Value) = "X" Then
.Cells(Zeile, 5).Resize(2, 3).ClearContents
End If
Next Zeile
End With
End Sub

AW: Suchen und Bereich löschen
14.09.2020 09:17:03
xtian
Hallo Franz,
vielen lieben Dank für die Hilfe. Wenn ein X in Spalte B gefunden wird, soll das Makro
den Zelleninhalt von E2 bis G3 löschen. Jetzt habe ich aber festgestellt, dass es auch
vorkommt, dass nicht E2 bis G3 gelöscht werden soll sondern E2 bis G4. Der Bereich kann
von der Größe her Variieren. Sicher ist, dass der Bereich immer so groß ist, bis in der
Spalte B dann wieder der Buchstabe Z kommt. Geht das auch zu lösen?
Viele Grüße
Christian
Anzeige
ÄNDERE Resize(2, 3) zu Resize(1, 3) ...owT
14.09.2020 09:31:56
Matthias
AW: ÄNDERE Resize(2, 3) zu Resize(1, 3) ...owT
14.09.2020 09:35:50
xtian
Hallo Matthias,
das ist ja mal so und mal so. Fix ist nur bis in Spalte B ein Z kommt.
Gruß
Christian
von Z war im 1.Thread kein Rede . . .
14.09.2020 12:07:49
Z
Tja, man sollt schon von Anfang an seine Frage korrekt einstellen.
Da war keine Rede von "Z", sondern nur von "X".
Gruß...
AW: Suchen und Bereich löschen
14.09.2020 09:48:23
fcs
Hallo Christian,
das macht die Sache etwas komplizierter, da immer nach dem nächsten "Z" gesucht werden muss und es gibt noch den Sonderfall, wenn zwischen letztem X und letzter Daten-Zeile in Spalte B kein Z steht.
So sollte es funktionieren.
LG
Franz 
Sub X_Suchen_EG_loeschen()
Dim wks As Worksheet
Dim Zeile As Long, Zeile2 As Long, ZeileL As Long
Dim strSuch
Set wks = ActiveSheet
With wks
ZeileL = .UsedRange.Row + .UsedRange.Rows.Count - 1
For Zeile = 1 To ZeileL
If UCase(.Cells(Zeile, 2).Value) = "X" Then
Zeile2 = Zeile
Do
Zeile2 = Zeile2 + 1
If Zeile2 >= ZeileL Then
Zeile2 = ZeileL - Zeile + 1
.Cells(Zeile, 5).Resize(Zeile2, 3).ClearContents
Exit Do
End If
If UCase(.Cells(Zeile2, 2).Value) = "Z" Then
Zeile2 = Zeile2 - Zeile
.Cells(Zeile, 5).Resize(Zeile2, 3).ClearContents
Exit Do
End If
Loop
End If
Next Zeile
End With

Anzeige
AW: Suchen und Bereich löschen
14.09.2020 10:15:36
xtian
Top, vielen Dank Franz.
Gruß
Christian
AW: Suchen und Bereich löschen
14.09.2020 09:13:56
Emil
Morgen,
Ich hätte einen Vorschlag:
bin aber selbst nicht sicher ob das funktioniert:

for durchlauf = 1 to 100
if cells("B"&durchlauf).value = "X" then
range("E"&durchlauf & ":G"&durchlauf).delete
AW: Suchen und Bereich löschen
14.09.2020 09:43:39
xtian
Hallo,
das läuft leider nicht.
Gruß
Christian

306 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
5
7
18
3
1
7
4
3
7
9
4
3
1
6
10
3
8
4
2
15
9
12
15