VBA: Finden von Datumswerten
18.01.2019 19:58:48
Datumswerten
ich bin absoluter VBA-Anfänger. Ich versuche in einem Makro aus einer Zeile (Datumsangaben) den Maximalwert herauslesen. Anschließend möchte ich die Position des Extrempunkts finden, damit in den Spalten "hinter" dem Maximalwert zusätzliche Daten aus einem anderen Arbeitsblatt einfügen kann. Insbesondere habe ich Schwierigkeiten damit, die Zellposition des Maximalwerts zu finden, da dort einfach nur der Wert "nothing" zugewiesen wird.
ich bin leider überfordert.
Besten Dank schonmal. Hier der Code:
Sub keineahnung()
Dim maxi As Date
Dim mini As Date
Dim findenA As Range
Dim findenE As Range
Dim grabA As Date
Dim grabE As Date
Dim grabESize As Integer
Dim y As Integer
Dim z As Integer
Dim temp As Date
maxi = Worksheets("Gesamtübersicht").Application.Max(Rows(6))
mini = Worksheets("Gesamtübersicht").Application.Min(Rows(6))
Set findenA = Worksheets("Gesamtübersicht").Rows(6).Find(what:=mini)
Set findenE = Worksheets("Gesamtübersicht").Rows(6).Find(what:=maxi)
grabA = Worksheets("Dezember 18").Cells(1, 7).Value
grabESize = WorksheetFunction.CountA(Worksheets("Dezember 18").Columns(7))
grabE = Worksheets("Dezember 18").Cells(grabESize, 7).Value
If grabA > maxi Then
For z = 1 To grabESize
temp = Worksheets("Dezember 18").Cells(z, 7).Value
Worksheets("Gesamtübersicht").Cells(6, findenE.Column + z) = temp
y = Worksheets("Dezember 18").Cells(z, 17).Value
Worksheets("Gesamtübersicht").Cells(6 + 1 + y, findenE.Column + z) = Worksheets("Dezember _
_
18").Cells(z, 10).Value
Next z
End If
End Sub