VBA Spalte nach Aktualisierung mit Formel befühlen
06.03.2017 09:51:55
Christian
im Arbeitsumfeld gibt es bei uns eine Excel-Liste die von anderen Daten befühlt wird.
Um das tägliche arbeiten zu erleichtern wurde ein kleines VBA Programm geschrieben.
Dieses hat die Aufgabe alle Tabellenblätter zu aktualisieren und das Tabellenblatt auszuwählen in dem die Rohdaten landen.
In diesem Tabellenblatt befindet sich eine Spalte die nicht durch die Rohdaten befühlt wird. in dieser Spalte ist eine Formel hinterlegt die nach Aktualisierung
einfach bis zur letzten eingefügten Zeile weitergeführt werden soll.
Nun endlich zu meiner Frage.
Das oben beschrieben Szenario läuft allerdings nicht sauber, denn die Zeilen werden nicht mit den Formeln belegt.
Hier die VBA Programmierung (läuft unter Workbook bei der Aktion Open)
Private Sub Workbook_Open()
Application.ThisWorkbook.RefreshAll
Sheets("InterneFehlermldg").Select
Range("CD3349").Select
Cells(3349, ActiveCell.Column).Copy Range(Cells(3349, ActiveCell.Column), Cells(Cells(Rows. _
_
Count, 2). _
End(xlUp).Row, ActiveCell.Column))
End Sub
Ich bitte euch um eine "laufende" Alternative.
Gruß
Christian
