Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004 - Activate Methode
 23.07.2020 07:41:55 EmKop
NotSolved
23.07.2020 07:53:22 Mase
NotSolved

Ansicht des Beitrags:
Von:
EmKop		 Datum:
23.07.2020 07:41:55		 Views:
1187		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 1004 - Activate Methode

Guten Tag, 

ich bräuchte eure Hilfe bei folgendem Code. An sich funktioniert so wie ich das sehen kann alles, jedoch wird mir der Laufzeitfehler 1004 - Die Activate-Methode des Range-Objektes kann nicht ausgeführt werden angezeigt.

Da ich in VBA noch sehr neu bin und den Code nicht selbst geschrieben habe, da ich die Datei lediglich auffrischen soll, wäre es super wenn mir jemand helfen könnte.

 

?
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
Sub Ersetzen()
'
' Ersetzen Makro
'
 
'
 
Application.ScreenUpdating = False
'Application.DisplayAlerts = False
Dim j As Integer
 
For j = 5 To 778
 
    If Worksheets("MTR_ab_Oktober_2017").Cells(j, 8).Value = "" Then
     
     
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Formula = neueFormel
        End If
         
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Formula = neueFormel
        End If
         
         
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Formula = neueFormel
        End If
 
 
   ElseIf Worksheets("MTR_ab_Oktober_2017").Cells(j, 8).Value <> "" Then
    
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Formula = neueFormel
        End If
         
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 15).Formula = neueFormel
        End If
         
         
        If Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).HasFormula = True Then
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Activate
      
        alteFormel = Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Formula
        neueFormel = Replace(alteFormel, "+6.6", "+6.5")
 
        Worksheets("MTR_ab_Oktober_2017").Cells(j, 13).Formula = neueFormel
        End If
    
    End If
 
Next
 
'Application.DisplayAlerts = True
End Sub

 

Die (erste) markierte Zeile ist:

?
1
2
3
4
Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Activate
 
 
Vielen Dank!

 

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 - Activate Methode
 23.07.2020 07:41:55 EmKop
NotSolved
23.07.2020 07:53:22 Mase
NotSolved