Gruppe
Feature
Problem
In einer Tabelle sollen Abweichungen in Tabelle2 zu Tabelle3 angezeigt werden. Lösung über die Kombination von Formeln und bedingter Formatierung.
ClassModule: Tabelle3
Private Sub cmdWksCopy_Click()
Dim wks As Worksheet
Worksheets("Tabelle1").Copy
Set wks = ActiveSheet
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub