title image


Smiley Re: gute frage
Hallo Imperia,

dann so wie manes vorgeschlagen hat oder so:



Sub MarkierenVonBis()



Dim c As Range

Dim Startdatum As Date

Dim Endedatum As Date

Dim Startrow As Long



Startdatum = Userform1.TextBox1.Value

Endedatum = Userform1.TextBox2.Value



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

If c Is Nothing Then

MsgBox "Startdatum nicht gefunden!"

Exit Sub

End If

Startrow = c.Row

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

If c Is Nothing Then

MsgBox "Endedatum nicht gefunden!"

Exit Sub

End If

ActiveSheet.Range("A" & Startrow & ":A" & c.Row).Select



End Sub


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: