title image


Smiley Re: vba:datum aus liste suchen -nach letztem eintrag zelle einfügen und werte
Hallo,

hier mal ein Code, der Spalte A nach Datum duchsucht und am Ende des Suchdatums eine Zeile einfügt und das gesuchte Datum in die neue Zeile in Spalte A einfügt:







Sub dackel()



    Dim dat As Date

    Dim c As Range

    Dim I As Integer



    dat = "03.04.2006"



    Set c = ActiveSheet.Range("A:A").Find(what:=dat)

    If Not (c Is Nothing) Then

       I = c.Row

       Do

         I = I + 1

       Loop Until Cells(I, 1) <> dat

       Cells(I, 1).EntireRow.Insert

       Cells(I, 1).Value = dat

    End If



End Sub







Code eingefügt mit Syntaxhighlighter 4.0





Reicht dir das so?

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: