title image


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



hier siehst Du, wie Du die betroffenen Zeilen (vonRow, bisRow) ermitteln kannst, ausgelesen wird dann in der Schleife.



viele Grüße. Heide





Sub lesen()

Dim vonRow As Integer, bisRow As Integer, Jahr As String



txtvon = DateSerial(2005, 6, 21)

txtbis = DateSerial(2005, 8, 25)



Jahr = CDbl(Year(txtvon))

Worksheets(Jahr).Activate



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

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



For i = vonRow To bisRow

'hier wird gelesen

Next i

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: