Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

Zellen ohne Formeln löchen (VBA)

Zellen ohne Formeln löchen (VBA)
17.04.2016 11:33:42
Gerhard
Hallo zusammen,
mit Doppelklick (soll nur in Spalte 3 möglich sein) möchte ich alle Zellen, die keine Formeln enthalten, in der ausgewählten Zeile löschen.
Für die Code-Erstellung bedanke ich mich.
Gerhard E.
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If target.Row 

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen ohne Formeln löchen (VBA)
17.04.2016 11:41:54
Matthias
Hallo
Probier das: bitte an einer Kopie testen!
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Cancel = True
Rows(Target.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub
Gruß Matthias

AW: Zellen ohne Formeln löchen (VBA)
17.04.2016 11:41:58
Hajo_Zi

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Columns(3).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

Anzeige
mit On Error Resume Next
17.04.2016 11:46:59
Matthias
Hallo
Damit kein Fehler entsteht, wenn alle Zellen der Zeile ohne Formeln leer sind.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Column = 3 Then
Cancel = True
Rows(Target.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub
Gruß Matthias

AW: mit On Error Resume Next
17.04.2016 11:58:32
Gerhard
Danke Matthias!
Gruß
Gerhard E.

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige