title image


Smiley Re: zellbereich mit vba makieren
Hallo!



Wenn man die Zellmarkierung mit einem Commandbutton1 aufrufen möchte, könnte man das so realisieren:



Private Sub CommandButton1_Click()

On Error GoTo Ende

Dim r_von As Range

Dim r_bis As Range

Dim r_Bereich As Range

Set r_von = Range("a:a").Find(what:=CDate(txt_von))

Set r_bis = Range("a:a").Find(what:=CDate(txt_bis))

Set r_Bereich = Range(r_von, r_bis).Resize(, 4)

r_Bereich.Select

Ende:

End Sub



Ich würde noch empfehlen, anstelle der Textboxen Comboboxen einzusetzen und mit Hilfe der Eigenschaft matchrequired dafür zu sorgen, dass nur zulässige Datumswerte eingetragen werden können.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: