Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.12.2020 14:41:11 |
Peter |
|
|
|
29.12.2020 15:14:32 |
ralf_b |
|
|
Laufzeit Fehler 13 |
29.12.2020 15:16:25 |
volti |
|
|
|
29.12.2020 17:16:42 |
Gast9363 |
|
|
|
29.12.2020 17:59:42 |
Gast80121 |
|
|
|
30.12.2020 21:38:27 |
Peter |
|
|
|
30.12.2020 21:38:29 |
Peter |
|
|
|
31.12.2020 00:29:49 |
Gast80121 |
|
|
Von:
volti |
Datum:
29.12.2020 15:16:25 |
Views:
541 |
Rating:
|
Antwort:
|
Thema:
Laufzeit Fehler 13 |
Hallo Peter,
der Code sieht mir plausibel aus und bei mir läuft alles problemlos durch.
Möglicherweise liegt es an den daten oder dem Datenformat. Aber das kann ich nicht testen. Ich hatte in Splate "F" mal die Formel =Heute() eingetragen.
Kein Problem.
Und was heißt der Datumswert in Spalte F bezieht sich aber auf eine andere Tabelle. Im Moment bezieht er sich auf Tabelle "Umrechnung FP"
Vielleicht hilft ein Fehlerabfang und Du solltest die automatische Berechnung wieder einschalten.
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 |
|
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
On Error Resume Next
For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
If .Cells(Zeile, "F").Value = Date Then
If Err = 0 Then
.Rows(Zeile).Copy Destination:=Worksheets("FP(0)").Rows(ZeileOut)
ZeileOut = ZeileOut + 1
Err = 0
End If
End If
Next Zeile
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
|
_________
viele Grüße
Karl-Heinz
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
29.12.2020 14:41:11 |
Peter |
|
|
|
29.12.2020 15:14:32 |
ralf_b |
|
|
Laufzeit Fehler 13 |
29.12.2020 15:16:25 |
volti |
|
|
|
29.12.2020 17:16:42 |
Gast9363 |
|
|
|
29.12.2020 17:59:42 |
Gast80121 |
|
|
|
30.12.2020 21:38:27 |
Peter |
|
|
|
30.12.2020 21:38:29 |
Peter |
|
|
|
31.12.2020 00:29:49 |
Gast80121 |
|
|