Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Zellinhalte in Zellbereich löschen

VBA: Zellinhalte in Zellbereich löschen
12.10.2016 11:02:51
Fritz
Hallo Forumsbesucher,
ich möchte im Tabellenblatt "Statistik" im Bereich der Spalten E bis AL den Inhalt (nicht das Zellformat) der Zeilen 2 bis 19 löschen, wenn in der Zelle von Zeile 20 der betreffenden Spalte ein "x" enthalten ist.
Beispiel: Steht im Zellbereich E20:AL20 in den Zellen E20, J20 und Z20 ein "x" sollen die Zellinhalte der Zellbereiche E2:E19, J2:J19 und Z2:Z19 gelöscht werden.
Für Eure Unterstützung im Voraus besten Dank.
mfg
Fritz
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zellinhalte in Zellbereich löschen
12.10.2016 12:31:07
Michael
Hallo!
Bspw. so:
Sub a()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim PruefBereich As Range
Dim C As Range
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets("Statistik")
With Ws
Set PruefBereich = .Range("E20:AL20")
For Each C In PruefBereich
If C.Text = "x" Then
.Range(.Cells(2, C.Column), .Cells(19, C.Column)).ClearContents
End If
Next C
End With
End Sub
Passt?
LG
Michael
Anzeige
AW: VBA: Zellinhalte in Zellbereich löschen
12.10.2016 13:36:22
Fritz
Hallo Michael,
klappt wie gewünscht.
Dir ganz herzlichen Dank.
LG
Fritz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige