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

Forumthread: 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 

Anzeige

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

Anzeige
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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige