Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in UDF abbilden

Formel in UDF abbilden
20.11.2014 18:27:00
Peter
Guten Abend
Aus http://www.excelformeln.de/formeln.html?welcher=7 habe ich eine Formel in meine Tabelle übernommen. Nun möchte ich diese in einer UDF abbilden.
Formel über Direktbereich abgefragt:
?activecell.FormulaR1C1
=MIN(YEAR(R1C1-1-MOD(R1C1-2,7)+4),YEAR(R1C1-MOD(R1C1-1,7)+4))
Den Inhalt von R1C1 übergebe ich dem Paramenter datDatum in der Function KW_Start als Date und ermittle dann das vorhergehende Montag-Datum, ausser der übergebene Wert ist schon ein Montag (in diesem Fall unveränderte Übernahme).
Nun will ich das Kalenderjahr ermitteln und habe obige Formel wie folgt umgesetzt:
KW_Start = Application.WorksheetFunction.Min(Year(datDatum - _
1 - Application.WorksheetFunction.MOD(datDatum - 2, 7) + 4), _
Year(datDatum - Application.WorksheetFunction.MOD(datDatum - 1, 7) + 4))
Das kann aber anscheinend so nicht berechnet werden. Was ist da falsch?
Gruss, Peter
https://www.herber.de/bbs/user/93919.xlsm

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mod ist keine WorksheetFunction...
20.11.2014 19:12:58
{Boris}
Hi peter,
...sondern in VBA ein eigener Operator.
10 Mod 5
lautet da die Syntax.
VG, Boris

AW: Mod ist keine WorksheetFunction...
20.11.2014 22:48:12
Peter
Hallo Boris, hall Luc
Danke für die Antworten.
Ich tue mich schwer mit der Umsetzung von MOD:
KW_Start = Application.WorksheetFunction.Min(Year(datDatum - 1 - (datDatum - 2 Mod 7) + 4), _
Year(datDatum - (datDatum - 1 Mod 7) + 4))
Ich habe verschiedene Klammersetzungen probiert und bin nie auf die Ergebnisse gekommen, die mir
=MIN(YEAR(R1C1-1-MOD(R1C1-2,7)+4),YEAR(R1C1-MOD(R1C1-1,7)+4))
liefert.
Wie kann ich diese VBA-Codezeile "entwickeln", dass die Logik wie bei der Formel umgesetzt ist?
Gruss, Peter

Anzeige
AW: Mod ist keine WorksheetFunction...
21.11.2014 00:12:19
Ewald
Hallo,
da vollkommen unklar ist wie das Endergebnis aussehen soll, kann es auch nur allgemeine Antworten geben.
Hier mal ein Makro das dir alle Infos aus einem Datum anzeigt (ab Excel 2010)
Sub Test()
Dim u
Dim x
Dim y
Dim z
Dim indat
indat = ActiveCell.Value
u = Month(indat)
x = Application.WorksheetFunction.WeekNum(indat, 21)
y = Format(Weekday(indat, 1), "DDDD")
z = Year(indat)
MsgBox "Jahr  " & z & Chr(13) & "Monat " & u & Chr(13) & "Woche  " & x & Chr(13) & "Tag  " & y
End Sub
Das in eine Funktion (inclusive Variabletypdeclaration) umzuwandeln dürfte das kleinste Problem sein.
Gruß Ewald

Anzeige
AW: Mod ist keine WorksheetFunction...
21.11.2014 11:05:43
Peter
Hallo Ewald
Dankeschön!
(es war nicht ganz vollkommen unklar, wie das Resultat aussehen sollte, ich habe im ursprünglichen Beitrag ein Link auf eine Beispielmappe aufgeführt).
Nun ist jedoch alles geklärt.
Gruss, Peter

Folgendes Konstrukt dürfte die richtige ...
21.11.2014 00:41:06
Luc:-?
…Umsetzung deiner Fml sein, Peter:
KW_Start = Application.WorksheetFunction.Min(Year(datDatum - 1 - (datDatum - 2) Mod 7 + 4), Year(datDatum - (datDatum - 1) Mod 7 + 4))
datDatum muss aber ein echtes Datum (also eine Zahl) sein!
Gruß, Luc :-?

AW: Folgendes Konstrukt dürfte die richtige ...
21.11.2014 11:02:35
Peter
Hallo Luc
Vielen Dank. Das hat mir weitergeholfen.
Gruss, Peter

Anzeige
Bitte sehr, gern geschehen! owT
21.11.2014 19:46:33
Luc:-?
:-?

WorksheetFunction.Mod gibt's nicht, ...
20.11.2014 19:17:27
Luc:-?
…Peter;
entweder die Fml in US-Notation als Text mit vbMethode Evaluate auswerten oder den VB-Operator Mod benutzen!
Gruß, Luc :-?

300 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1