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:
46
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.

 

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:

Worksheets("MTR_ab_Oktober_2017").Cells(j, 14).Activate


Vielen Dank!

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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