Guten Tag
Ich bin dabei, ein Makro zu kreieren, wonach bestimmte Zeilen in eine Übersichtsseite kopiert werden sollten. Diese Zeilen sollten in der einen Spalte jeweils Daten in den folgenden drei Monaten enthalten. Momentan ist mein Code so aufgebaut, dass ich manuell die drei Monate angebe, die mich interessieren. Da ich fast keine Erfahrung mit Excel VBA habe, schaffe ich es leider nicht, diese Angabe zu automatisieren. Statt Oktober 20 und November 20 und Dezember 20 aufzuschreiben, würde ich gern einfach so was wie "Month + 2" verwenden, wobei Month der jeweils aktuelle Monat des aktuellen Jahres ist. Der genaue Tag wird dabei nicht angegeben, es handelt sich nur um MMMM YYYY (Monat Jahr). Ich wäre echt dankbar um jeden Hinweis. Hier mein jetztiger Code, der relevante Teil fängt von If Table(i, 2)Public Sub CopyRows() an.
Dim ws As Worksheet
Dim s_Main As String
Dim nRow As Long
Dim Last_row As Long
Dim i As Long
Dim Table As Variant
s_Main = "Overview"
Last_row = Worksheets(s_Main).Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(s_Main).Range("A2:P" & Last_row).ClearContents
For Each ws In Worksheets
If ws.Name = s_Main Then
GoTo Change_ws
Else
nRows = ws.Cells(Rows.Count, 1).End(xlUp).Row
ReDim Table(nRows, 16)
Table = ws.Range("A1:P" & nRows)
For i = 1 To nRows
If Table(i, 2) = "Sep. 20" Or Table(i, 2) = "Oct. 20" Or Table (i,2) = "Nov. 20" Then
Last_row = Worksheets(s_Main).Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A" & i & ":P" & i).Copy Worksheets(s_Main).Range("A" & Last_row)(2)
End If
Next i
End If
Change_ws:
|