@Patrick
13.06.2016 13:55:15
Werner
versuch mal folgendes:
Code in "Diese Arbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
Dim bereich As Range
Dim zelle As Range
Set bereich = Tabelle3.Range("K2:M1500") 'Bereich mit Formeln, Bereich ggf. anpassen
With Tabelle3
For Each zelle In bereich
If zelle "" Then
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).Borders.Weight = xlMedium
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).HorizontalAlignment = xlCenter
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).VerticalAlignment = xlCenter
With .Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).Font
.Name = "Arial"
.Size = 10
.Bold = True
End With
End If
Next
End With
End Sub
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
With Tabelle3
.Unprotect Password:="PW"
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True, Password:="PW"
End With
End Su
Code in "Tabelle3"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich As Range
Dim zelle As Range
Set bereich = Tabelle3.Range("A2:J1500") 'Bereich mit händischen Eintragungen, ggf. anpassen
With Tabelle3
For Each zelle In bereich
If zelle "" Then
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).Borders.Weight = xlMedium
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).HorizontalAlignment = xlCenter
.Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).VerticalAlignment = xlCenter
With .Range(.Cells(zelle.Row, 1), .Cells(zelle.Row, 13)).Font
.Name = "Arial"
.Size = 10
.Bold = True
End With
End If
Next
End With
End Sub
Gruß Werner