Thema Datum  Von Nutzer Rating
Antwort
Rot Excel vba Object variable or With block variable not set error
 09.12.2015 21:34:49 Maximilian
NotSolved

Ansicht des Beitrags:
Von:
Maximilian		 Datum:
09.12.2015 21:34:49		 Views:
1158		 Rating:
     
Antwort:
  Ja
Thema:
Excel vba Object variable or With block variable not set error

Hallo zusammen,

habe mal wieder ein Problem mit einem VBA Code.

Ich möchte das ein Code ein neues Sheet anlegt (Sheet4) und dort verschiedene Formeln einsetzt (ingesamt 12), die auf Sheet3 und Sheet2

referenzieren. Diese Formeln gehen immer von Zeile 2 bis Zeile 6601. Die Logik mit neuem Sheet anlegen und in diesem eine Formel zu pasten hat bisher

mit einer Formel immer wunderbar geklappt. Nun habe ich das auf 12 Formeln anwenden wollen, bekomme nun aber beim Ausführen die Error Message:

"Excel vba Object variable or With block variable not set error".

Hat da jemand einen schnellen Bugfix?

Anbei noch mein Code. Der erste Teil des Codes ist zum Öffnen der zu bearbeitenden Excel Dateien da. Nach dem Do While Befehl folgt die eigentliche Prozedur

 

?
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
Sub OrderBookDepth()
 'Open Files
  
    Dim Source As String
    Dim StrFile As String
    Const csPath As String = "C:\Users\Maximilian\Documents\Studium\Bachelor Arbeit\Data\Order_Book_Depth\"
    Dim i As Integer
    Dim objRange As Range
    Dim Spalte As Integer
    Dim Ausgang As String
     
    Dim objRange1 As Range
    Dim objRange2 As Range
    Dim objRange3 As Range
    Dim objRange4 As Range
    Dim objRange5 As Range
    Dim objRange6 As Range
    Dim objRange7 As Range
    Dim objRange8 As Range
    Dim objRange9 As Range
    Dim objRange10 As Range
    Dim objRange11 As Range
    Dim objRange12 As Range
    
    Dim Formel1 As String
    Dim Formel2 As String
    Dim Formel3 As String
    Dim Formel4 As String
    Dim Formel5 As String
    Dim Formel6 As String
    Dim Formel7 As String
    Dim Formel8 As String
    Dim Formel9 As String
    Dim Formel10 As String
    Dim Formel11 As String
    Dim Formel12 As String
     
     
     
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
     
    'do not forget last backslash in source directory.
    Source = "C:\Users\Maximilian\Documents\Studium\Bachelor Arbeit\Data\Source\"
    StrFile = Dir(Source)
 
    Do While Len(StrFile) > 0
     
    
     
        Workbooks.Open Filename:=Source & StrFile
         
    
    Sheets.Add After:=ActiveSheet
     
      
     '1
      
     Formel1 = "=IF(Sheet1!B2>Sheet3!A2*(1-0,001);Sheet2!B2*Sheet2!D2;"")"
    'Range für A2 bs A6601 festlegenS
    Set objRange = Workbooks(StrFile).Worksheets(4).Range("A2:A6601")    'Cells(11, 6).Resize(zeilen - 11, 1) 'Bereichlänge anpassen....
        'Formel einfügen
       
        objRange1.FormulaLocal = Formel1 ''''''''''!!!!!!!!!!111Hier bricht der Code ab!!!!!!!!!!!!'''''''''''''''''''''''''''''''''''
         
    Set objRange1 = Nothing
     
     
    '2
     
     Formel2 = "=IF(Sheet1!D2<Sheet3!A2*(1+0,001);Sheet2!D2*Sheet2!E2;"")"
    'Range für A2 bs A6601 festlegenS
    Set objRange2 = Workbooks(StrFile).Worksheets(4).Range("B2:B6601")    'Cells(11, 6).Resize(zeilen - 11, 1) 'Bereichlänge anpassen....
        'Formel einfügen
       
        objRange2.FormulaLocal = Formel2
         
    Set objRange2 = Nothing

 

Vielen Dank und Grüße

Max

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 Excel vba Object variable or With block variable not set error
 09.12.2015 21:34:49 Maximilian
NotSolved