Variable aus Personal.xslb nutzen

Hallo zusammen,
ich versuche gerade in einer Funktion meiner Arbeitsmappe in Excel ein Makro aus Personal.xslb aufzurufen. Das funktioniert soweit auch.
Aber ich will mit der ausgerechneten Variable von Personal.xslb in der Funktion weiterrechnen und das bekomme ich nicht hin...

Dim zeilenzahl As Integer
Sub alle_K_erstellen()
zeilenzahl = Application.Run("personal.xlsb!zeilen_zaehlen")
MsgBox zeilenzahl
end sub

Das ist meine Funktion und das Personal.xlsb Makro berechnet die Anzahl der Zeilen und speichert die Zahl unter der Variable zeilenzahl.
Diese habe ich als


Public zeilenzahl as Integer

deklariert.
ich hoffe jemand kann mir weiterhelfen.
Danke schonmal im Voraus.
Gruß vbAmateur

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function Test1(Optional Zahl1 As Long = 3, Optional Zahl2 As Long = 42) As Long Test1 = Zahl1 + Zahl2 End Function VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub gg() On Error Resume Next Dim n As Long Dim m As Long n = Application.Run("Personal.xlsb!Test1") m = n + Range("A1").Value MsgBox m End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Public Function zeilen_zaehlen() 'zählt wieviele zeilen in spalte B beschrieben _ sind zeilenzahl = 0 Dim anfang%, ende% ende = Cells(Rows.Count, 2).End(xlUp).Row Range("B1").Select anfang = 1 For i = anfang To ende If Cells(anfang, 2) "" Then zeilenzahl = zeilenzahl + 1 End If Next End Function

Diese Funktion enthält keine Parameter (in der Klammer), also darfst Du auch keine Parameter übergeben. Und einen Rückgabeparameter gibt es auch nicht. Versuch es wie folgt.
In der personal.xlsb:

Public Function zeilen_zaehlen() As Long

Dim anfang      As Long
Dim ende        As Long
Dim zeilenzahl  As Long
Dim i           As Long

    zeilenzahl = 0

    ende = Cells(Rows.Count, 2).End(xlUp).Row
    
    anfang = 1
    
    For i = anfang To ende
        If Cells(anfang, 2) <> "" Then
        zeilenzahl = zeilenzahl + 1
        End If
    Next
    
    zeilen_zaehlen = zeilenzahl
    
End Function

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Aufruf:

Public Sub Test()
On Error Resume Next

Dim n As Long
Dim m As Long

n = Application.Run("Personal.xlsb!zeilen_zaehlen")
m = n + Range("A1").Value

MsgBox m
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

P.S.: Bitte gewöhne Dir an Variable sauber zu deklarieren. Damit Du zur Deklaration gezwungen wirst setze die Anweisung Option Explicit am Anfang der Module. Dann müssen wir nicht nachträglich erst alles deklarieren.

Beliebteste Forumthreads (12 Monate)

Variable aus Personal.xslb nutzen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread