title image


Smiley Re: Zeilen mit bestimmten Datumswerte kopieren
Hi Heini,

probier das hier mal aus:







Dim I As Integer

Dim Anfang As Date

Dim Ende As Date

Dim von As Integer

Dim bis As Integer

Anfang = InputBox("Anfangsdatum eingeben")

Ende = InputBox("Enddatum eingeben")

For I = 1 To Range("A65536").End(xlUp).Row

   If Cells(I, 1).Value >= Anfang Then

      von = Cells(I, 1).Row

      Exit For

   End If

Next

For I = von To Range("A65536").End(xlUp).Row

   If Cells(I, 1).Value >= Ende Then

      bis = Cells(I, 1).Row

      Exit For

   End If

Next

Range(Cells(von, 1), Cells(bis, 1)).EntireRow.Copy











Ist erst ein Rohentwurf, aber ich denke so kannst Du ihn am besten an Deine Wünsche anpassen. Hilft Dir das?



Gruß

Uwe

(:o)
Gruß Uwe (:o)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: