Thema Datum  Von Nutzer Rating
Antwort
18.05.2017 14:07:03 Pietro
NotSolved
Blau Laufzeitfehler
 18.05.2017 15:15:58 Gast65913
NotSolved

Ansicht des Beitrags:
Von:
Gast65913		 Datum:
18.05.2017 15:15:58		 Views:
542		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler

Moin! Probiere es mal mit dem Code. Vermtl. kommt über den Tagen eine Überschrift. Die ist vom Typ String und damit kann Weekday nichts anfangen, da es eine Zahl braucht. Deshalb Fehler 13 - Typen unverträglich.  VG

 Public Sub Zeiterfassung()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

For t = lz To 2 Step -1
If IsNumeric(Cells(t, 1)) Then
    If Weekday(Cells(t, 1).Value, 2) = 7 Then '| hier wird mir der Fehler angezeigt - Witzig: Die Zeilen wurden alle gelöscht!
        Rows(t).Delete Shift:=xlUp
    End If
End If
Next t
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2017 14:07:03 Pietro
NotSolved
Blau Laufzeitfehler
 18.05.2017 15:15:58 Gast65913
NotSolved