Hallo an alle VBA'ler,
derzeit befasse ich mich mit dem Thema VBA, um einige Auswertungen zu automatisieren. Da ich erst kürzlich ein paar Webinare geschaut habe, bin ich relativ Neu auf dem Gebiet und hoffe auf Eure Hilfe.
Ich habe folgenden Code versucht zu schreiben:
Zum Hintergrund: Es werden Quelldaten mittels PowerQuey in ein Tabellenblatt geschrieben und sollen entsprechend etwas modifiziert werden.
Dazu würde ich gerne die Spalte "Buchungsdatum" dynamisch mit dem Wert des Monatsletzten des Vormonats per Formel befüllen. Jedoch läuft meine Code gegen folgende Fehlermeldung: Laufzeitfehler 9.
Private Sub cmdGetData_Click()
Dim strTabName As String
Dim lngRow As Long
Dim rngCell As Range
' query data will be refreshed on behalf of the data in cells A13:B13
strTabName = [C13].Value
Application.ScreenUpdating = False
Application.EnableEvents = False
shAufstellung.Name = strTabName
Sheets(strTabName).ListObjects("Source").Refresh
lngRow = ListObjects("Source").Range("[Buchungsdatum]" & Rows.Count).End(xlUp).Row
With ListObjects("Source").Range("Source[Buchungsdatum]" & lngRow).Select
For Each rngCell In Selection
rngCell.Value = rngCell.FormulaR1C1 = "=TEXT(EOMONTH(TODAY(),-1),""DD.MM.YYYY"")"
Next rngCell
End With
shMenu.Activate
Application.ScreenUpdating = True
Application.EnableEvents = True
Könnt ihr mir sagen, was genau ich noch falsch mache?
Vielen Dank im Voraus