Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formel über VBA einfügen.

Formel über VBA einfügen.
15.11.2007 18:57:00
Heinz
Hallo Leute
Diese Formel sollte in G6:G42 eingefügt werden,AUSSER die Zelle ist mit "Interior.ColorIndex = 34"
hinterlegt.
Könnte mir bitte jemand weiterhelfen ?
Gruß Heinz
Option Explicit

Sub Formel()
ActiveCell.FormulaR1C1 = _
"=IF(RC[5]=""Feiertag"","""",IF(WEEKDAY(RC[-5],2)=1,R50C7,IF(WEEKDAY(RC[-5],2)=2,R51C7, _
IF(WEEKDAY(RC[-5],2)=3,R52C7,IF(WEEKDAY(RC[-5],2)=4,R53C7,IF(WEEKDAY(RC[-5],2)=5,R54C7,""""))))))"
End Sub


Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
probier mal
15.11.2007 19:05:00
Matthias
Hallo Heinz
bitte immer mit einer leeren Mappe testen

Sub Formel()
Dim mlx As Byte
For mlx = 6 To 42
If Cells(mlx, 7).Interior.ColorIndex  34 Then
Cells(mlx, 7).FormulaR1C1 = "=IF(RC[5]=""Feiertag"","""",IF(WEEKDAY(RC[-5],2)=1,R50C7,IF( _
WEEKDAY(RC[-5],2)=2,R51C7,IF(WEEKDAY(RC[-5],2)=3,R52C7,IF(WEEKDAY(RC[-5],2)=4,R53C7,IF(WEEKDAY(RC[-5],2)=5,R54C7,""""))))))"
End If
Next
End Sub


Userbild

Anzeige
AW: probier mal
15.11.2007 19:10:00
Heinz
Hallo Matthias
So funkt.leider nicht
Habe die Datei mal hochgeladen.
Optimal wäre wenn Du denn Code in Modul 1 eventuell einbinden könntest.
Gruß Heinz
https://www.herber.de/bbs/user/47759.xls

DANKE MATTHIAS Problem Erledigt !!
15.11.2007 19:20:29
Heinz
Hallo Matthias
Habe es mit den Code von "Ransi" geschafft.
Habe die 2 Codes zu einen verbunden.
Recht herzlichen DANK für Deine Bemühung.
Gruß Heinz

Anzeige
beide Prozeduren liefern das gleiches Ergebnis
15.11.2007 20:01:00
Matthias
Hallo Heinz
schön für Dich, das es geklappt hat.
Ich habe jetzt allerdings beide Prozeduren mal laufen lassen.
Ergebnis:
Beide Möglichkeiten liefern bei mir das gleiche Ergebnis.
Ich weiß also leider nicht, was da schiefgelaufen ist.
hier mal mein Beispiel: https://www.herber.de/bbs/user/47762.xls
Userbild

Anzeige
AW: beide Prozeduren liefern das gleiches Ergebnis
16.11.2007 06:48:28
Heinz
Guten morgen Matthias
Recht herzlichen Dank für Deine Hilfestellung.
Gruß Heinz

AW: Formel über VBA einfügen.
15.11.2007 19:12:00
ransi
HAllo
Verewuche es doch mal mit einer Schleife:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub Formel()
Dim zelle As Range
For Each zelle In Range("G6:G42")
    If zelle.Interior.ColorIndex <> 34 Then
        zelle.FormulaR1C1 = _
            "=IF(RC[5]=""Feiertag"","""",IF(WEEKDAY(RC[-5],2)=1,R50C7,IF(WEEKDAY(RC[-5],2)=2,R51C7,IF(WEEKDAY(RC[-5],2)=3,R52C7,IF(WEEKDAY(RC[-5],2)=4,R53C7,IF(WEEKDAY(RC[-5],2)=5,R54C7,""""))))))"
    End If
Next
End Sub

ransi

Anzeige
AW: Formel über VBA einfügen.
15.11.2007 19:15:58
Heinz
Hallo Ransi
Super DANKE !!
Gruß Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige