Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler bei Range-definition
 19.01.2017 11:09:23 André
NotSolved
19.01.2017 11:32:09 Crazy Tom
NotSolved
19.01.2017 11:47:48 André
NotSolved
19.01.2017 12:22:43 Crazy Tom
NotSolved
19.01.2017 14:03:28 Gast42317
NotSolved

Ansicht des Beitrags:
Von:
André		 Datum:
19.01.2017 11:09:23		 Views:
1276		 Rating:
     
Antwort:
  Ja
Thema:
Fehler bei Range-definition

Hallo Zusammen

Ich habe ein Problem mit einem Modul. Beim Ausführen kommt eine Fehlermeldung, ich kann aber den Fehler nicht finden. Kann mir jemand von euch helfen? Ich wäre dem- oder derjenigen ewig und drei Tage lang dankbar (mindesten!).

Als Fehlerhaft wird das hier angegeben:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set rngTarget1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(4, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(8, Columns.Count).End(x1ToLeft).Offset(0, 1))
 
Die Fehlermeldung lautet:
"Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler
 
Ziel des Moduls ist es, Daten aus einem Tabellenblat (die Daten sind immer am gleichen Ort) zu kopieren und in ein anderes Tabellenblatt einzufügen. Die Zellen im Ziel sind variabel.
Will heissen, beim ersten ausführen, sollen die Zellen in Spalte B eingetragen werden, beim zweiten Ausführen in Spalte C, beim Dritten in Spalte D, usw.
 
Vielen herzlichen Dank schon im Voraus und ganz liebe Grüsse.
 
 
 
P.S.: Hier noch das ganze Modul:
?
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
Sub DatenSchreiben()
 
'Volumen
Dim rngSource1 As Range
Dim rngTarget1 As Range
Dim rngSource2 As Range
Dim rngTarget2 As Range
'Versicherte
Dim rngSource3 As Range
Dim rngTarget3 As Range
Dim rngSource4 As Range
Dim rngTarget4 As Range
'Anschlüsse
Dim rngSource5 As Range
Dim rngTarget5 As Range
Dim rngSource6 As Range
Dim rngTarget6 As Range
 
'Volumen
Set rngSource1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("B4:B8")
Set rngTarget1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(4, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(8, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource2 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("B11:B13")
Set rngTarget2 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(9, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(11, Columns.Count).End(x1ToLeft).Offset(0, 1))
'Versicherte
Set rngSource3 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("D4:D8")
Set rngTarget3 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(13, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(17, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource4 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("D11:D13")
Set rngTarget4 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(18, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(20, Columns.Count).End(x1ToLeft).Offset(0, 1))
'Anschlüsse
Set rngSource5 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("F4:F8")
Set rngTarget5 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(22, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(26, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource6 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("F11:F13")
Set rngTarget6 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(27, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(29, Columns.Count).End(x1ToLeft).Offset(0, 1))
 
rngSource1.copy rngTarget1
rngSource2.copy rngTarget2
rngSource3.copy rngTarget3
rngSource4.copy rngTarget4
rngSource5.copy rngTarget5
rngSource6.copy rngTarget6
 
Set rngSource1 = Nothing
    rngTarget1 = Nothing
    rngSource2 = Nothing
    rngTarget2 = Nothing
    rngSource3 = Nothing
    rngTarget3 = Nothing
    rngSource4 = Nothing
    rngTarget4 = Nothing
    rngSource5 = Nothing
    rngTarget5 = Nothing
    rngSource6 = Nothing
    rngTarget6 = Nothing
 
 
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 Fehler bei Range-definition
 19.01.2017 11:09:23 André
NotSolved
19.01.2017 11:32:09 Crazy Tom
NotSolved
19.01.2017 11:47:48 André
NotSolved
19.01.2017 12:22:43 Crazy Tom
NotSolved
19.01.2017 14:03:28 Gast42317
NotSolved