Nicht leere Zellen leere Zellen umwandeln

Sub setValue() Dim selArea, cell As Range On Error Resume Next Set selArea = Application.InputBox(Prompt:="Auswahl", Title:="Bitte wählen sie einen _ Bereich aus", Type:=8) If IsEmpty(selArea) Then Exit Sub On Error GoTo errorblabla For Each cell In selArea If cell.HasFormula Then If Len(Replace(cell.Value, 0, "")) = 0 Then cell = "" Else cell.Value = cell.Value End If End If Next MsgBox "Makro erfolgreich" Exit Sub errorblabla: MsgBox "Makro nicht erfolgreich" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für eure Antworten!
Ich habe in das Makro zweite Makro von Franz versucht die Abfrage Bereichsauswahl und die "erfolgreich" Rückmeldung einzubauen. Scheint zu funktionieren - kenne mich aber null aus und bin mir sicher, ob ich es richtig gemacht habe und nicht evtl. zu viel gelöscht habe:
Franz´ Makro:

Sub ClearEmptyCells_in_Selection()
'bereinigt pseude-leere Zellen im selektierten Zellbereich
Dim Zelle As Range, StatusCalc As Long
If ActiveSheet.Type = xlWorksheet Then
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each Zelle In Selection.Cells
If Not Zelle.HasFormula Then
If Not IsEmpty(Zelle) And Zelle.Value = "" Then
Zelle.ClearContents
End If
End If
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End If
End Sub

Von mir angepasstes Makro:

Sub ClearEmptyCells_in_Selection()
'bereinigt pseude-leere Zellen im selektierten Zellbereich
Dim Zelle As Range, StatusCalc As Long
On Error Resume Next
Set selArea = Application.InputBox(Prompt:="Auswahl", Title:="Bitte wählen sie einen  _
Bereich aus", Type:=8)
If IsEmpty(selArea) Then Exit Sub
On Error GoTo errorblabla
For Each Zelle In selArea
If Not Zelle.HasFormula Then
If Not IsEmpty(Zelle) And Zelle.Value = "" Then
Zelle.ClearContents
End If
End If
Next
MsgBox "Makro erfolgreich"
Exit Sub
errorblabla:
MsgBox "Makro nicht erfolgreich"
End Sub

Danke und Grüße

Sub setValue() Dim selArea, cell As Range Application.DisplayAlerts = False On Error GoTo Ausgang Set selArea = Application.InputBox(Prompt:="Auswahl", Title:="Bitte wählen sie einen Bereich _ aus", Type:=8) If Not selArea Is Nothing Then selArea.Formula = selArea.Value selArea.Replace What:="0", Replacement:="", Lookat:=xlWhole MsgBox "Makro erfolgreich" End If Ausgang: Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

Nicht leere Zellen leere Zellen umwandeln

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

332 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nicht leere Zellen leere Zellen umwandeln

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

332 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread