Beschleunigen und Datum einsetzen
03.04.2016 09:27:44
Andre
Ich habe folgenden Code der auch soweit läuft nur das er ewig braucht bis er die 1500 Datensätze durchlaufen hat
Wie kann ich diesen Code beschleunigen?
und in Spalte B im Grundbuch soll automatisch das Datum vor den eingefügten Zeilen stehen
vielen Dank im voraus
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myRow As Long
Dim myLastRow1 As Long
Dim myLastRow2 As Long
With Sheets("Hilfstabelle")
myLastRow1 = .Cells(Rows.Count, 4).End(xlUp).Row
If myLastRow1 = 1 Then
MsgBox "Keine Daten vorhanden."
Exit Sub
End If
End With
For myRow = 4 To myLastRow1
If Sheets("Hilfstabelle").Cells(myRow, 4).Value > 0 Then
With Sheets("Grundbuch")
myLastRow2 = .Cells(Rows.Count, 3).End(xlUp).Row
If myLastRow2