Ich beschreibe kurz was ich vorhabe:
Tägliche auftretende Probleme werden in eine Liste geschrieben. Dazu noch die Priorität (Grün 0 bis größer 2 Rot).
Damit die täglichen Ergebnisse in eine Tabelle, zu speicherung, geschrieben werde, habe ich das abhängig vom Datum gemacht.
Dim HeuteD As Integer, HeuteM As Integer
HeuteD = DatePart("d", Date)
HeuteM = DatePart("m", Date)
So versuche ich den Tag und den Monat herauszubekommen. Klappt auch!
Dann will ich anhand der beiden Variablen die Position in der Tabelle bestimmen. Von 1 bis 31 und die Monate dann daneben absteigend.
ThisWorkbook.Worksheets("Database").Cells(HeuteD & HeuteM + 4).Value = AllAvg
Ich bekomme es leider nicht hin. Habe schon etliche Varianten mit cells() und range() ausprobiert. Jedoch bekomme ich immer wieder einen 1004 Error.
Das Internet hat einiges ausgespuckt, aber ich komme einfach nicht zum Ziel.
Hoffe ich habe es verständlich erklärt.