Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einige Formeln als VBA Code

Einige Formeln als VBA Code
14.11.2005 13:08:25
Heinz
Hallo Leute
Habe diese Formel in den Zellen F271:F301 & F315:F345 eingefügt.
Könnte man Bitte diese Formel auch als VBA Code schreiben ?
Danke Heinz
=WENN(ISTFEHLER(SVERWEIS(A271;feiertage;3;0));WENN(WOCHENTAG(A271;2)&lt5;8;WENN(WOCHENTAG(A271;2)=5;6;""));SVERWEIS(A271;feiertage;3;0))

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einige Formeln als VBA Code
14.11.2005 13:19:43
achim
Nimm das
Code in VBA (Biite die Datei test nach bedürfnissen anpassen sowie Zelle im Beispiel a1)

Sub Test()
Sheets("test").Activate
Sheets("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(R[270]C[-22],feiertage,3,0)),IF(WEEKDAY(R[270]C[-22],2)<5,8,IF(WEEKDAY(R[270]C[-22],2)=5,6,"""")),VLOOKUP(R[270]C[-22],feiertage,3,0))"
Range("A2").Select
End Sub

Gruß
achim h.
AW: Einige Formeln als VBA Code
14.11.2005 13:42:42
Heinz
Hallo Achim
Danke für Deine Hilfe,komme leider nicht zurecht.Bin einfach noch zu schwach in VBA.
Wärst Du bitte so nett,mir im Tab.Blatt "Jänner" diesen Code einfügen?
Würde für die Zellen F271:F301 und F315:345 gehören.
https://www.herber.de/bbs/user/28371.zip
Anzeige
AW: Einige Formeln als VBA Code
14.11.2005 17:49:08
achim
Hallo
Bitte VBA (ALT F11)aufrufen und nach dem doppel click auf Jänner öffnet sich das code blatt.
nun diese code hinein kopieren

Sub FormelEistellen_Initialize()
Sheets("Jänner").Activate
Range("F271").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-5],feiertage,3,0)),IF(WEEKDAY(RC[-5],2)<5,8,IF(WEEKDAY(RC[-5],2)=5,6,"""")),VLOOKUP(RC[-5],feiertage,3,0))"
Selection.AutoFill Destination:=Range("F271:F301"), Type:=xlFillDefault
Range("F271:F301").Select
End Sub

Ach, da ist wohl noch irgendwie ein fehler in '--------Stundeneintragen bei Schicht ---------
Private

Sub Worksheet_Change(ByVal Target As Range)
lass das noch eventuell von den excel cracks prüfen.
gruß
achim h.

Anzeige
AW: Einige Formeln als VBA Code
14.11.2005 20:23:06
Heinz
Hallo Achim
Danke für Deine Hilfe
Werde mich morgen damit befassen.
Muss in die Arbeit
Nochmals herzlichen Dank
Gruss Heinz

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige