ich habe u.s. Makro, das vermeintlich leere Zellen in tatsächlich leere Zellen umwandeln soll Es kann:
1. Lässt mich den Wertebereich auswählen, in dem das Makro "wirken" soll
2. In diesem Bereich sollen Formeln in Werte umgewandelt werden und gleichzeitig vermeintliche Leerzellen ("" - Beispielsweise aus (=wennfehler)) in tatsächliche Leerzellen umgewandelt werden
3. Zellen, die den Wert 0 (als Ergebnis eines SVERWEIS-Funktion) sollen leere Zellen werden
4. Eine Meldung i.S. von "Makro erfolgreich" bzw. "Makro nicht erfolgreich" soll am Ende erscheinen.
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
Problem: Es macht es nicht. Also die Umwandlung erfolgt nicht (s. angefügte Excel).https://www.herber.de/bbs/user/112141.xlsm
Kann hier mal bitte jemand schauen, ob das Makro korrekt ist oder wo vielleicht mein Fehler liegt?
Danke und Grüße