Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeit Fehler 13
29.12.2020 14:41:11 Peter
NotSolved
29.12.2020 15:14:32 ralf_b
NotSolved
29.12.2020 15:16:25 volti
NotSolved
29.12.2020 17:16:42 Gast9363
NotSolved
29.12.2020 17:59:42 Gast80121
Solved
30.12.2020 21:38:27 Peter
NotSolved
30.12.2020 21:38:29 Peter
NotSolved
31.12.2020 00:29:49 Gast80121
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
29.12.2020 14:41:11		 Views:
1175		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeit Fehler 13

Hallo zusammen,

Ich habe folgendes Problem, 

ich möchte die ganze zeile kopieren wenn in Spalte F das datum von Heute steht 

der Datumswert in Spalte F bezieht sich aber auf eine andere Tabelle. 

wenn ich die Prozedur starte bekomm ich laufzeitfehler 13 angezeigt.

Liegt das daran das der wert in Spalte F nur eine Formel darstellt?

( .Value = Date Then )

Bin ein bisschen ratlos und mit Online Recherchen komme ich nicht weiter.

Lg Peter

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Test()
 Dim Zeile    As Long
  Dim ZeileOut As Long
    Dim letzte_zeile As Long
      
     Sheets("FP(0)").Range("A1:Y250").ClearContents
   
  With Application
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
  End With
   
  With Sheets("Umrechnung FP")
      ZeileOut = 1
   For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
      If .Cells(Zeile, "F").Value = Date Then
      .Rows(Zeile).Copy destination:=Worksheets("FP(0)").Rows(ZeileOut)
      ZeileOut = ZeileOut + 1
   End If
Next Zeile
End With
     
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Laufzeit Fehler 13
29.12.2020 14:41:11 Peter
NotSolved
29.12.2020 15:14:32 ralf_b
NotSolved
29.12.2020 15:16:25 volti
NotSolved
29.12.2020 17:16:42 Gast9363
NotSolved
29.12.2020 17:59:42 Gast80121
Solved
30.12.2020 21:38:27 Peter
NotSolved
30.12.2020 21:38:29 Peter
NotSolved
31.12.2020 00:29:49 Gast80121
NotSolved