Inhalt nicht geschützter Zellen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Variante 1 Sub Loeschen_nicht_geschuetzte() Dim Zelle As Range, Zeile As Long Zeile = ActiveCell.Row With ActiveSheet For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End(xlToLeft)) If Zelle.Locked = False Then Zelle.MergeArea.ClearContents End If Next End With End Sub 'Variante 2 - ist aber etwas langsamer Sub Loeschen_nicht_geschuetzte2() Dim Zelle As Range For Each Zelle In ActiveCell.EntireRow.Cells If Zelle.Locked = False Then Zelle.MergeArea.ClearContents End If Next End Sub

Hallo Franz
Herzlichen Dank für Deine schnellen und perfekten Lösungen.
Angespornt wollte ich noch eine Sicherheitsabfrage (kopiertes Makro) einbauen. Siehe unten. Nun sollte Dein Befehl jedoch nur starten, wenn die Antwort im ersten Makro "Yes" ist. Bei "No" sollt der Befehl enden. Wie kann ich dies abfangen?
Vielen Dank schon im Voraus.
Orlandi
Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count)).Select
Dim Mldg, Stil, Titel, Antwort
Mldg = "Ist das die richtige Zeile?" & vbNewLine & "Die Einträge gehen unwiderruflich verloren!"
Stil = vbYesNo + vbCritical
Titel = "Achtung!!!"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
End If
Dim Zelle As Range, Zeile As Long
Zeile = ActiveCell.Row
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End(xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
End Sub

Option Explicit Sub Loeschen_nicht_geschuetzte_3() Dim Zelle As Range, Zeile As Long Dim Antwort As String Zeile = ActiveCell.Row Antwort = MsgBox("Ist das die richtige Zeile?" & vbCr & vbCr _ & "Zeile - Nr.: " & Zeile, vbQuestion + vbYesNo) If Antwort = vbYes Then With ActiveSheet For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End( _ xlToLeft)) If Zelle.Locked = False Then Zelle.MergeArea.ClearContents End If Next End With Else Exit Sub End If End Sub

Hallo Orlandi,
Dirk hat dir ja schon weiter geholfen.
Hier mit deinen Variablen und Selektion der gesamten Zeile.
Diese ist für die Funktion des Makros nicht erforderlich. Soll sie die als Orientierung helfen?
Falls du vertikal über mehrere Zeilen verbundene Zellen hast geht die Markierung ggf. über mehrere Zeilen. Es werden aber nur die Werte in der Zeile mit der aktiven Zelle gelöscht + die Inhalte in den verbundenen Zellen.
Gruß
Franz

Sub Loeschen_nicht_geschuetzte()
Dim Mldg, Stil, Titel, Antwort
Dim Zelle As Range, Zeile As Long
Zeile = ActiveCell.Row
Mldg = "Ist Zeile  " & Zeile & "  die richtige Zeile?" & vbNewLine _
& "Die Einträge gehen unwiderruflich verloren!"
Stil = vbYesNo + vbCritical
Titel = "Achtung!!!"
ActiveCell.EntireRow.Select 'Zeile markieren - kürzer
'    Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count)).Select
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, _
.Columns.Count).End(xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Inhalt nicht geschützter Zellen löschen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt nicht geschützter Zellen löschen

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

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread