Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehle
 11.09.2016 12:02:40 Be Link
NotSolved
11.09.2016 13:33:56 Gast95005
NotSolved
11.09.2016 16:58:20 Crazy Tom
NotSolved
11.09.2016 16:59:40 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Be Link		 Datum:
11.09.2016 12:02:40		 Views:
1422		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehle
Guten Tag,
 
Ich habe vor Kurzem mal wieder in VBA reingeguckt und bin auf einen Fehler gestoßen, bei dem ich nicht weiß, wie es zustande kommt. 
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Dim Zeile As Long
Dim Punktrechnung As String
Dim KDPunktrechnung As String
 
 
Range("B5").Select
Selection.Copy
Sheets("Lukas").Select
Zeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("H5").Select
Selection.Copy
Sheets("Lukas").Select
Range("B" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("F8").Select
Selection.Copy
Sheets("Lukas").Select
Range("C" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("H8").Select
Selection.Copy
Sheets("Lukas").Select
Range("D" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("D8").Select
Selection.Copy
Sheets("Lukas").Select
Range("F" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("D11").Select
Selection.Copy
Sheets("Lukas").Select
Range("G" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("F11").Select
Selection.Copy
Sheets("Lukas").Select
Range("H" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("H11").Select
Selection.Copy
Sheets("Lukas").Select
Range("I" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("D14").Select
Selection.Copy
Sheets("Lukas").Select
Range("J" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("F5").Select
Selection.Copy
Sheets("Lukas").Select
Range("K" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("F14").Select
Selection.Copy
Sheets("Lukas").Select
Range("L" & Zeile).Select
ActiveSheet.Paste
 
Sheets("Eingabefenster").Select
Range("H14").Select
Selection.Copy
Sheets("Lukas").Select
Range("M" & Zeile).Select
ActiveSheet.Paste
 
KDPunktrechnung = ("=C" & Zeile & "/D" & Zeile)
 
Punktrechnung = ("=J*" & Zeile & "+((K" & Zeile & "-(C" & Zeile & "*2)-F" & Zeile & "+(F" & Zeile & "*1,5))+(C" & Zeile & "-(G" & Zeile & "*3)-(H" & Zeile & "*4)-(I" & Zeile & "*5)+(G" & Zeile & "*3*1,1)+(H" & Zeile & "*4*1,3)+(I" & Zeile & "*5*1,5)*E" & Zeile & "*2)")
 
Range("E" & Zeile) = KDPunktrechnung
 
Range("N" & Zeile) = Punktrechnung
 
Sheets("Eingabefenster").Select
Range("D5").Select
 
 
 
Als Fehler wird mir
?
1
Range("N" & Zeile) = Punktrechnung
 angezeigt.
 
Ich weiß nicht, was ich dagegen machen soll und bin schon seit gestern auf der Suche im Internet. Vielleicht, kann mich hier jemand helfen.
 
Danke im Voraus
 
MfG. Be Link

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 Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehle
 11.09.2016 12:02:40 Be Link
NotSolved
11.09.2016 13:33:56 Gast95005
NotSolved
11.09.2016 16:58:20 Crazy Tom
NotSolved
11.09.2016 16:59:40 Crazy Tom
NotSolved