Thema Datum  Von Nutzer Rating
Antwort
Rot Formel wird nicht eingefügt
 06.07.2018 13:33:00 Lara
NotSolved
06.07.2018 17:50:21 Gast82675
NotSolved
06.07.2018 17:50:22 Gast24876
NotSolved

Ansicht des Beitrags:
Von:
Lara		 Datum:
06.07.2018 13:33:00		 Views:
1142		 Rating:
     
Antwort:
  Ja
Thema:
Formel wird nicht eingefügt
Das ist der Code, den ich bis jetzt habe:
Public Sub probe()

Dim oZelle As Range
Dim i As Integer                                               'zählt Array rauf
Dim FarbigeZellen() As String                                  'Array speichert Zellen für die Formel

i = 0

[E100].Activate
Application.Volatile
        For Each oZelle In ActiveSheet.Range("E100:E1300")
        If oZelle.Interior.Color = RGB(197, 217, 241) Then     'Alle farbigen Zellen auswählen
            ReDim Preserve FarbigeZellen(i)
            FarbigeZellen(i) = oZelle.Address
            i = i + 1
        End If
    Next oZelle

ActiveSheet.Range("E45").Formula = "=" & Join(FarbigeZellen, "+") 'Formel in Zelle einfügen
End Sub

Es wird keine Fehlermeldung angezeigt, doch wenn ich das Makro ausführe, dann wird 1. das, was vorher in der Stelle stand, gelösscht, aber nicht durch eine neue Formel ersetzt.

 

Ich hoffe, ihr könnt mir helfen.

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:



  • 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 Formel wird nicht eingefügt
 06.07.2018 13:33:00 Lara
NotSolved
06.07.2018 17:50:21 Gast82675
NotSolved
06.07.2018 17:50:22 Gast24876
NotSolved