title image


Smiley Re: VBA -Tipp zum Auslesen eines Zeitraumens via Bezeichnungsfelder und Blätter
hallo Woerny,



Im Code eben hatte ich die falsche Funktion erwischt (CDbl statt CStr). Es funktionierte zwar, aber so ist es besser:





Sub lesen()

Dim vonRow As Integer, bisRow As Integer



txtvon = DateSerial(2005, 6, 21)

txtbis = DateSerial(2005, 8, 25)



Worksheets(CStr(Year(txtvon))).Activate



vonRow = WorksheetFunction.Match(CDbl(txtvon), ActiveSheet.Columns(1), 0)

bisRow = WorksheetFunction.Match(CDbl(txtbis), ActiveSheet.Columns(1), 0)



For i = vonRow To bisRow

'.....

Next i



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: