cells(y,x)= mit Fehler in public function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Johannes,
unabhängig ob Public oder Private ist das Ziel einer Funktion aus dem ggf. mitgegebenen Argument ein Ergebnis zu ermitteln. Dieses Ergebnis wird nach Beendigung der Funktion über den Funktionsnamen zurückgegeben.
Beispiel ohne Argument
Public


Function Wer() as String
Wer = Application.UserName
End Function

Beispiel mit Argument
Public


Function Inhalt(Zelle As Range) As String
Application.Volatile
Inhalt = CStr(Zelle.Value)
End Function

Wenn Du wie in Deinem Beispiel den Wert einer Zelle ändern willst, funktioniert das im allgemeinen nicht über eine Funktion, sondern über eine Prozedur:


Sub test()
Worksheets("Daten").cells(1,1)=123
End Sub

Diese Prozedur kann Public oder Private sein. Mit Public kannst Du diese Prozedur von allen Modulen aus aufrufen. Mit Private kannst Du den Aufruf auf das Modul begrenzen, in dem sich diese


Sub befindet.
Viele Grüße
Herby

Function Endergebnis(Zelle As Range) As Integer Application.Volatile Dim Wert As Integer Endergebnis = CInt(Zelle.Value * 4) If Zelle.Value > 9 Then Wert = Zelle.Value Call Zwischenergebnis(Wert) End If End Function

Hallo Herby,
so geht's natürlich nicht, aber so:

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function KillTimer Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Const GC_CLASSNAMEMSEXCEL = "XLMAIN"

Private Wert As Integer
Private hWnd As Long

Private Sub prcStartTimer()
    hWnd = FindWindow(GC_CLASSNAMEMSEXCEL, Application.Caption)
    SetTimer hWnd, 0&, 100&, AddressOf prcTimer
End Sub

Private Sub prcStopTimer()
    KillTimer hWnd, 0&
End Sub

Private Sub prcTimer(ByVal hWnd As Long, ByVal nIDEvent As Long, _
        ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    On Error Resume Next
    Call prcStopTimer
    Call Zwischenergebnis
End Sub

Function Endergebnis(Zelle As Range) As Integer
    Endergebnis = Cint(Zelle.Value * 4)
    If Zelle.Value > 9 Then
        Wert = Zelle.Value
        Call prcStartTimer
    End If
End Function

Sub Zwischenergebnis()
    Range("D2").Value = Wert
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

cells(y,x)= mit Fehler in public function

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread