In Liste (listObjekt) überschreiben, wenn datum
23.01.2020 12:02:48
Tom
Es soll in der Liste finden wo das Datum steht und dennn Wert ändern neben das Datum in der Zeile.
Vielen dank
https://www.herber.de/bbs/user/134637.xlsx
Sub Rechteck1_Klicken()
On Error Resume Next
Dim von As Long
Dim bis As Long
Dim Tvon As Long, Tbis As Long ' Zeilen mit Treffern
Dim C As Range
Dim i As Long
Dim MONTAG As Date
Dim Datum As String
Dim suchen As String
von = 2
Dim wksQ As Worksheet
Set wksQ = Worksheets("Eandern")
bis = wksQ.Range("B8" & wksQ.Rows.Count).Row
MONTAG = Worksheets("Liste").ListObjects("Tabelle1").Range("Tabelle1[MONTAG]")
Set C = wksQ.Range("B8" & von & ":B8" & bis).Find(what:=MONTAG, LookIn:=xlValues, LookAt:= _
xlPart)
If Not C Is Nothing Then
Tvon = C.Row
Set C = wksQ.Range("B8" & von & ":B8" & bis).FindPrevious(C)
If Not C Is Nothing Then Tbis = C.Row
End If
If Tvon > 0 And Tbis > 0 Then
bis = Range("B8" & Rows.Count).Row
If bis > 9 Then Range (von & bis), vbQuestion + vbYesNo
If bis vbYes Then Exit
Function ' Bereich wurde NICHT kopiert/überschrieben
End If
Range("D").Value = wksQ.Range("E9" & Tvon & ":E22" & Tbis).Copy
Range("E").Value = wksQ.Range("F9" & Tvon & ":F22" & Tbis).Copy
Range("F").Value = wksQ.Range("G9" & Tvon & ":G22" & Tbis).Copy
Range("G").Value = wksQ.Range("H9" & Tvon & ":H22" & Tbis).Copy
Range("M").Value = wksQ.Range("I9" & Tvon & ":L22" & Tbis).Copy
Range("N").Value = wksQ.Range("J9" & Tvon & ":J22" & Tbis).Copy
Range("O").Value = wksQ.Range("K9" & Tvon & ":K22" & Tbis).Copy
Range("P").Value = wksQ.Range("L9" & Tvon & ":L22" & Tbis).Copy
Else
MsgBox "Monat " & suchen & " nicht gefunden."
End If
End Sub