Range in neues Excel Wb kopieren

[Patrick S]

Hallo zusammen,

Ich schreibe gerade ein Makro, das einen bestimmten Bereich aus einer Excel-Tabelle in ein neues Excel-File schreiben soll. 

Der Bereich soll mit Hilfe des Anfangs- und Enddatums ausgelesen werden. Ich habe dafür eine Userform, in der der User den Bereich eintragen kann.

Code:

Dim AD As Date
AD = TextBoxAD.Value
Dim ED As Date
ED = TextBoxED.Value

Set NewBook = Workbooks.Add
 Workbooks("Blaa.xlsm").Worksheets("Gesamtliste").Range("H" & ? & ":H" & ?).Copy
 NewBook.Worksheets("Tabelle1").Range("A1").PasteSpecial (xlPasteValues)
 

Der Kopiervorgang an sich funktioniert. Jetzt geht es nur noch darum die Range so abzuändern das der Bereich von Anfangs- und Enddatum selektiert und kopiert wird. Wie kann ich nun die Textfelder mit den entsprechenden Tabellenzeilen aus Spalte H verknüpfen? 

PS: Die Spalte H beinhaltet nur Werte die einem Datum entsprechen (dd.mm.yyyy)

Vielen Dank für Eure Hilfe 
Gruß Patrick

[Kuwer]

Hallo Patrick,

z.B. so:

  Dim lngAD As Long, lngED As Long

  

  With Workbooks("Blaa.xlsm").Worksheets("Gesamtliste")

    On Error Resume Next

    lngAD = Application.Match(CDbl(CDate(TextBoxAD.Value)), .Columns(8), 0)

    lngED = Application.Match(CDbl(CDate(TextBoxED.Value)), .Columns(8), 0)

    On Error GoTo 0

    If lngAD * lngED > 0 Then

      .Range("H" & lngAD & ":H" & lngED).Copy

      Workbooks.Add.Worksheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

    Else

      MsgBox "Bitte Datumswerte überprüfen!", vbCritical

    End If

  End With

Gruß Uwe

[Patrick S]

Hallo Uwe,

funktioniert super, Dankeschön!

Gruß Patrick