Datum

Titel

25.04.2024 10:38:52

Bedingte Formatierung per VBA / MaxPoint

25.04.2024 10:30:04

Suche mit MINWENNS und Rückgabe mehrerer Werte

25.04.2024 09:47:49

Daten aus mehreren Dateien untereinander importieren

25.04.2024 09:31:31

Bild "In Zelle platzieren"

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

924to928

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Formel über VBA einfügen.

Forumthread: Formel über VBA einfügen.
7 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

probier mal

15.11.2007 19:05:00

Matthias
AW: probier mal

15.11.2007 19:10:00

Heinz
DANKE MATTHIAS Problem Erledigt !!

15.11.2007 19:20:29

Heinz
beide Prozeduren liefern das gleiches Ergebnis

15.11.2007 20:01:00

Matthias
AW: beide Prozeduren liefern das gleiches Ergebnis

16.11.2007 06:48:28

Heinz
AW: Formel über VBA einfügen.

15.11.2007 19:12:00

ransi
AW: Formel über VBA einfügen.

15.11.2007 19:15:58

Heinz

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

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

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

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

AW: Formel über VBA einfügen.

15.11.2007 19:15:58

Heinz

Hallo Ransi
Super DANKE !!
Gruß Heinz