Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
19.05.2024 17:28:17
E-Mailadressen Alphabetisch sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ClearContens mit Filter

ClearContens mit Filter
08.12.2022 15:57:02
Christian
Hoi,
ich habe hier ein Listobjekt bei der in Spalte 3 alle sichtbaren gefilterten Daten von Spalte 2 übernommen werden sollen,
zuvor soll es die die Spalte 2 leeren. Im gefilterten Zustand wird die ClearContens Funktion jedoch nicht ausgeführt, habt
Ihr eine Idee :-)
Vorab vielen Dank
https://www.herber.de/bbs/user/156609.xlsm
Dim iEnde As Long
iEnde = ThisWorkbook.Worksheets("Kulli").Cells(Rows.Count, 1).End(xlUp).Row
With ThisWorkbook.Worksheets("Kulli")
.Range("C2:C" & iEnde).ClearContents
.Range("C2:C" & iEnde).Cells.SpecialCells(xlCellTypeVisible).Formula = "=[@Spalte2]"
End With
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ClearContens mit Filter
08.12.2022 16:23:34
Steffen
Sie können die SpecialCells-Methode verwenden, um nur die sichtbaren, gefilterten Zellen in Spalte 2 zu leeren, anstatt die gesamte Spalte zu leeren. Der Code sieht dann wie folgt aus:
Copy code
Dim iEnde As Long
iEnde = ThisWorkbook.Worksheets("Kulli").Cells(Rows.Count, 1).End(xlUp).Row
With ThisWorkbook.Worksheets("Kulli")
.Range("C2:C" & iEnde).ClearContents
.Range("C2:C" & iEnde).SpecialCells(xlCellTypeVisible).Formula = "=[@Spalte2]"
.Range("B2:B" & iEnde).SpecialCells(xlCellTypeVisible).ClearContents
End With
In Zeile 8 wird die ClearContents-Methode auf die sichtbaren, gefilterten Zellen in Spalte 2 angewendet. Dadurch werden nur die sichtbaren, gefilterten Zellen in Spalte 2 geleert, anstatt die gesamte Spalte zu leeren.
Bitte beachten Sie, dass in diesem Beispiel davon ausgegangen wird, dass Spalte 2 in der Tabelle "Kulli" die Spalte ist, die geleert werden soll. Sie müssen den Code entsprechend anpassen, wenn dies nicht der Fall ist.
Anzeige
AW: ClearContens mit Filter
08.12.2022 16:44:52
Christian
Hallo Steffen,
jetzt hab ich mich vertan, sorry. Nicht die Spalte 2 sondern die Spalte 3 soll im Vorfeld über ClearContens bereinigt werden, so dass tatsächlich,
wenn der Filter wider aufgemacht wird in Spalte 3 nur die im Vorfeld gefilterten Daten vorhanden sind und nicht die von den vorherigen
gefilterten Ergebnisse.
Habt Ihr für diesen Fall auch eine Lösung :-) Danke
Christian
AW: ClearContens mit Filter
08.12.2022 16:53:41
Christian
Für den ersten Tipp aber auch vielen vielen Dank
AW: ClearContens mit Filter
08.12.2022 17:47:18
Daniel
Hi
zwei Probleme:
1) Excel bearbeitet in der Massenbearbeitung normalerweise immer nur die sichtbaren Zeilen, auch dann wenn du kein .SpecialCells(xlcelltypevisible) verwendest. Dieses ist normalerweise nicht notwendig und nur in Ausnahmefällen erforderlich
2) Bei Formeln in intelligenten Tabellen geht Excel davon aus, dass die Formel für die ganze Spalte gilt und füllt automatisch aus.
auch das kann dir hier einen Strich durch die Rechnung machen.
Wenn in Spalte 3 Konstanten erlaubt sind, dann ggf so:

Sub Makro1()
Dim Zelle As Range
For Each Zelle In Range("tabelle1[spalte3]")
If Zelle.EntireRow.Hidden = True Then
Zelle.ClearContents
Else
Zelle.Value = Zelle.Offset(0, -1).Value
End If
Next
End Sub
Gruß Daniel
Anzeige
AW: ClearContens mit Filter
08.12.2022 18:42:00
Yal
Hallo Christian,
wenn man schon mit ListObject arbeitet, kann man konsequent mit dem Object-Modell von ListObject arbeiten.

Sub Makro15()
With ActiveSheet.ListObjects("Tabelle1")
.Range.AutoFilter Field:=3, _
Criteria1:=Array("Kulli1", "Kulli2", "Kulli5", "Kulli6"), _ 'weggefiltert werden die Einträge, die nicht glöscht werden sollen.
Operator:=xlFilterValues
.ListColumns(3).Range.ClearContents
.Range.AutoFilter Field:=3
End With
End Sub
VG
Yal
AW: ClearContens mit Filter
09.12.2022 08:34:42
Christian
Danke YAL, probiere ich gleich mal aus... :-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige