|
Dein File wird durch unnötige Formeln + bedingten Formatierungen immens aufgebläht. Das so das Arbeiten kein Spaß macht, kann ich mir vorstellen.
Dein File konnte auf 84KB geschrumpft werden. Wie ?
a) löschen aller bedF
b) explizites Löschen aller unbenutzten Zeilen und Spalten (einfach alle markieren -> rechtsklick löschen -> werden dann neu/frisch erzeugt)
Folgender Code fügt 5Zeilen hinzu:
Sub AddRows2ListObject()
Dim i As Long
Dim lngCalc As Long
Dim lob As Excel.ListObject
'*** Beispiel anhand Arbeitsblatt "Kontrakte"
' Die inteligente Tabelle auf diesem Arbeitsblatt muss in lobKontrakte umbenannt werden
' Wenn das nicht geht, dann nachfolgende Zeile
' anstatt: Set lob = ThisWorkbook.Worksheets("Kontrakte").ListObjects("lobKontrakte")
' folgendes: Set lob = ThisWorkbook.Worksheets("Kontrakte").ListObjects(1)
'*** inteligente Tabelle referenzieren
Set lob = ThisWorkbook.Worksheets("Kontrakte").ListObjects("lobKontrakte")
'*** Berechnungsmethode merken, dann ausschalten
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
'*** 5 Zeilen hinzufügen
For i = 1 To 5
lob.ListRows.Add
Next i
'*** ursprüngliche Berechnungsmethode wiederherstellen
Application.Calculation = lngCalc
End Sub
Hinweis:
Durch direkte Referenzierung hast Du Zugriff auf die IntelliSense. Nutze diese in Kombination mit der OH.
|