Formel anfügen / variabler Bereich
12.09.2007 20:55:47
Gunnar
ich importiere per MS-Query Daten in eine Tabelle, die u.a. auch ein Datumsfeld enthalten.
Ich habe an den Importbereich mit dem folgenden Code eine Spalte "BM" angehängt und aus dem Datum den Monat errechnet (brauche ich für 'ne Pivot-Tabelle).
Mein Problem ist, dass der Code die Berechnung über den letzten Datensatz hinaus weiterführt.
Sub BuchungsMonat()
ThisWorkbook.Worksheets("Daten").Range("N1") = "BM"
With Range(Cells(2, 14), Cells(2, 14).End(xlDown).Offset(0, 0))
.FormulaLocal = "=Monat(E2)"
End With
End Sub
Wie müßte der Code aussehen, dass er beim letzten Datensatz des Importbereiches (endet in Spalte M) die Berechnung beendet.
Vielen Dank im Voraus & beste Grüße
Gunnar
Anzeige