Ich bräuchte folgende Funktionalität:
- User makiert einen Bereich.
- Das Makro soll jetzt überprüfen ob alle Zellen die der User Makiert hat Formeln beinhaltet, wenn nur eine einzige Zelle keine Formel beinhaltet soll abgebrochen werden...
Warum?
- Die Makierten formeln werden 1 nach Rechts kopiert und der Makierte Bereich wird als Wert ersetzt. Kurz Formel nach Rechts verschieben alter Bereich wird zu Werten...
Damit kein Bereich "verschoben" wird der nicht verschoben werden sollte, bräuchte ich so eine Prüfung.
Hier mal mein Makro bisher. Problem er kopiert trotz festen wert...
Function AusFormelWertMachen()
'Ausgewählter Bereich wird kopiert
For Each Zelle In Selection
If Zelle.HasFormula Then
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next Zelle
End Function
Sub FormelZuWerten_AusgewaehltenBereich()
'Führt einfach die
Function aus
AusFormelWertMachen
End Sub