AW: Formeln per VBA entfernen
12.12.2017 16:50:52
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Den Code rechts reinkopieren
Private Sub Worksheet_Deactivate()
Dim ER As Integer, Zeile, EC As Integer, LC As Integer
ER = 5 ' erste Datenzeile
EC = 6 'erste Datenspalte
LC = Cells(ER, Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
'Heute wird gesucht, wenn nicht da, dann nächst kleinere Datum
On Error Resume Next
Zeile = WorksheetFunction.Match(CDbl(Date), Columns(EC - 1), 1)
If Err.Number <> 0 Then
MsgBox "Kein Datum gefunden!"
On Error GoTo 0
Exit Sub
End If
If Zeile >= ER Then
With Range(Cells(ER, EC), Cells(Zeile, LC))
.Value = .Value
End With
End If
End Sub
- Wird das Blatt verlassen ( also anderes Blatt gewählt ) läuft das Makro ab.
LG UweD