Primfaktor aus Label2 in Label4 zeigen
01.07.2025 19:09:10
Dieter(Drummer)
Per InputBox gebe ich eine Zahl in UserForm1, Label2 ein.
Nun soll der Primfaktor aus Label2 in Label4 gezeigt werden.
Der Code, Function "primfaktoren", von "Herber: xlKing (Mr. K.)28.06.2025" funktioniert gut. Er ist aber für Zellen im Tabellenblatt ausgelegt.
Wie muss der Code geändert werden, damit die Zahl aus Label2, das Primfaktor Ergebnis in Label 4 zeigt?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei:
https://www.herber.de/bbs/user/177975.xlsm
Code:
'Herber: xlKing (Mr. K.)28.06.2025
Function primfaktoren(ByVal V As Long) As String
Dim i As Long, a As Long, Ausgabe As String, pot As Boolean
If V = 1 Then
primfaktoren = "Zahl muss größer 1 sein"
Exit Function
End If
i = 2
Do
If V Mod i = 0 Then
a = a + 1
V = V / i
pot = True
Else
If pot Then Ausgabe = Ausgabe & "*" & i & IIf(a > 1, "^" & a, "")
pot = False
a = 0
i = i + 1
End If
Loop Until V = 1
If pot Then Ausgabe = Ausgabe & "*" & i & IIf(a > 1, "^" & a, "")
primfaktoren = "=" & Right(Ausgabe, Len(Ausgabe) - 1)
End Function
Anzeige