Hi!
Sorry - hätte mein Problem besser definieren sollen......
Es handelt sich tatsächlich um VBA in Excel! Ich wollte das Excel eine Spalte von oben nach unten durchsucht und mir sagt welches die erste freie Zelle ist....
@Who-T: Rückgabe mit return oder so ist nicht notwendig - weil - der Rückgabewert wird im Functionname übergeben in der Zeile wo LeerZelle = Erg.row steht!
Soll im Endeffekt ein AddIn werden - hier ein Beispiel für ein AddIn zur Berechnung von Ostern:
Function Ostern(SuchJahr As Integer) As Date
Dim n, a, u_b, m, q, w, o, p As Integer
n = SuchJahr - 1900
a = n - Fix(n / 19) * 19
u_b = Fix((7 * a + 1) / 19)
m = (11 * a + 4 - u_b) - Fix((11 * a + 4 - u_b) / 29) * 29
q = Fix(n / 4)
w = (n + q + 31 - m) - Fix((n + q + 31 - m) / 7) * 7
o = 25 - m - w
p = 4
If o <= 0 Then
p = 3
o = o + 31
End If
Ostern = DateSerial(SuchJahr, p, o)
End Function
Also: Neue Datei erstellen in Extras/Makro/Visual Basic-Editor aufrufen Einfügen/Modul die Zeilen oben einfügen das ganze als Ostern.xla abspeichern Extras Add-Ins-Manager diese Ostern.xla suchen und einbinden. Ab jetzt ist in Excel ein neuer Befehl vorhanden nämlich: in einer beliebigen Zelle könnt ihr eintippen =Ostern(Jahr) die Zelle als Datum formatieren.......
Danke für eure Teilnahme an meinem Problem
mfg Elac7
|