Datei leichter machen
06.04.2018 08:04:20
simon
Ich habe das Problem, dass meine Datei extrem schwer ist (5059kb) und dadurch fast nicht zu bearbeiten...
momentan sind noch keine Daten vorhanden!
Seit ich den Code eingefügt habe, ist das Ding so sau-schwer geworden :-/
Es ist für eine Pendenzenliste welche bei einem Eintrag automatisch eine fixe, fortlaufende Nummer vergibt und den Username einträgt.
Option Explicit
'ID vergeben
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'Änderungsspalte für ID
If Target.Offset(0, -1).Value = "" Then
Target.Offset(0, -1).Value = Application.WorksheetFunction.Max(Columns("A")) + 1
End If
Application.EnableEvents = False
Cells(Target.Row, 13).Value = Application.UserName
Application.EnableEvents = True
ElseIf Target.Column = 14 And Target.Row >= 7 Then
If UCase(Target.Value) = "X" Then Rows(Target.Row).Hidden = True
End If
End Sub
'ID erzeugen
Private Function Max_Each_Column(Data_Range As Range) As Integer
Dim TempArray() As Double, i As Long
If Data_Range Is Nothing Then Exit Function
With Data_Range
ReDim TempArray(1 To .Columns.Count)
For i = 1 To .Columns.Count
TempArray(1) = Application.Max(.Columns(1))
Next
End With
Max_Each_Column = TempArray
End Function
mfg simon