Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zum Code dazufügen

Zum Code dazufügen
16.11.2007 08:34:06
Heinz
Hallo Leute
Wie gehört bitte diese untere Zeile richtig im Code eingefügt,damit das selbe passiert wie im Makro mit der einen "=IF
Also beide "=IF müssten ausgeführt werden.
"=IF(ISNA(VLOOKUP(RC[-10],R76C7:R91C8,2,0)),"""",""Feiertag""&VLOOKUP(RC[-10],R76C7:R91C8,2,0))"
Dim zelle As Range
For Each zelle In Range("G6:G42")
If zelle.Interior.ColorIndex 34 Then
zelle.FormulaR1C1 = _
"=IF(LEFT(RC[5],8)=""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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zum Code dazufügen
16.11.2007 10:19:18
Heinz
Hallo Leute
Habe das Problem gelöst. War mein Fehler 2 mal Spalte G6:G42
Gruß Heinz
Dim zelle As Range
For Each zelle In Range("G6:G42")
If zelle.Interior.ColorIndex 34 Then
zelle.FormulaR1C1 = _
"=IF(LEFT(RC[5],8)=""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
For Each zelle In Range("L6:L42")
zelle.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-10],R76C7:R91C8,2,0)),"""",""Feiertag""&VLOOKUP(RC[-10],R76C7:R91C8,2,0))"
Next
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige