Start Ende Spalte finden
14.02.2020 16:30:31
Merkes
ich möchte mithilfe einer Zeile (10), in der vollständige Kurze Tagesdaten (Datum) stehen, das End- bzw. Anfangsdatum des Monats in Zeile 10 ermitteln. Hierzu benötige ich für den Rest des Makros die Int ausgabe der Spalte. Ich bekomme für die Werte mal etwas raus, mal nicht, vorhanden sind sie auf jeden Fall in der Zeile.
Dim Summe As Long
Dim Zelle As Range
Dim i, n, E, Anfang, Ende, A, AT, NPT, Ausl, RowC, c, b, Sum As Integer
Dim wsc As Worksheet
With ThisWorkbook.Worksheets("Projekte")
.Activate
b = .Cells(18, 9).Value
c = .Cells(21, 9).Value
End With
ThisWorkbook.Worksheets("Chart").Activate
Set wsc = ThisWorkbook.Worksheets("Chart")
With wsc
RowC = wsc.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 1
Set Anfang = .Range("H10:BZL10").Find(DateSerial(Year(Date), Month(Date) + b, 1))
Set Ende = .Range("H10:BZL10").Find(DateSerial(Year(Date), Month(Date) + c, 0))
A = Anfang.Column
E = Ende.Column