title image


Smiley Re: Sorry, aber.....




      

Hallo Heide,



Sorry, dass war natürlich mein Fehler txt.von  *uppps*

Jetzt habe ich den Code so umgesetzt:



Dim vonRow As Integer, bisrow As Integer

'Zeitraum eingrenzen

txtvon = DateSerial(Year(Me.txtvon), Month(Me.txtvon), Day(Me.txtvon))

txtbis = DateSerial(Year(Me.txtbis), Month(Me.txtbis), Day(Me.txtbis))

Die beiden Felder sind auf einem UserForm zur Eingabe(Will ich später noch ein monthView integrieren).



'Welches Jahr wird überhaupt benötigt?

Worksheets(CStr(Year(txtvon))).Activate  'richtiges Blatt (Jahr) aktivieren

!Hier kann ich noch nicht wirklich erkennen, ob das "Richtige" Worksheet aktiviert ist?



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

!läuft auf einen Fehler - Laufzeitfehler 1004 - Match Eigenschaft des WorksheetFunction-Object

  kann nicht zugeordnet werden?

Die Zellen sind als Datum; TTT, TT.MM.JJJJ formartiert -kann dies den Fehler verursachen?



'soweit komme ich noch nicht

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





For I = vonRow To bisrow

    'tue was

Next I



LG

Werner 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: