Supportnet / Forum / Tabellenkalkulation
Nochmal eine Funktion
Frage
Hallo Zusammen,
nochmal danke für die Antwort bei (Eigene Funktionen schreiben)...
Ich möchte diese Funktion nun so erweitern, dass ich nicht nur die 4 übergebenen Zahlen ausschliesen kann, sondern diese Auszuschlißende Zahlen stehen nun in einer Spalte. In dieser Spalte stehen nun beispielsweise:
0
0
1
0
0
2
0
0
0
5
Nun sind die von 0 verschiedenen Zahlen auszuschließen. Die Spalte kann man leider nicht vorher sortieren...sondern muss so behandelt werden.
Danke!!
Antwort 1 von Saarbauer
Hallo,
leider nicht ganz verständlich,
fehlt leider der Bezug, daher keine brauchbare
Anbindung.
was Verstehst du darunter, löschen, bei einer Berechnung nicht zu berücksichtigen oder ?
Vielleicht ein Beispiel hier einstellen
http://www.netupload.de/
und Link hier hinterlegen
Gruß
Helmut
leider nicht ganz verständlich,
Zitat:
nochmal danke für die Antwort bei (Eigene Funktionen schreiben)...
nochmal danke für die Antwort bei (Eigene Funktionen schreiben)...
fehlt leider der Bezug, daher keine brauchbare
Anbindung.
Zitat:
Nun sind die von 0 verschiedenen Zahlen auszuschließen.
Nun sind die von 0 verschiedenen Zahlen auszuschließen.
was Verstehst du darunter, löschen, bei einer Berechnung nicht zu berücksichtigen oder ?
Vielleicht ein Beispiel hier einstellen
http://www.netupload.de/
und Link hier hinterlegen
Gruß
Helmut
Antwort 2 von JoeKe
Hallo Jack,
sollte so funktionieren:
Option Explicit
Function zufall(Bereich As Range) As Integer
Dim wert As Integer, Zahl As Range
Application.Volatile
Berechnung:
wert = Int(Rnd * 10) + 1
For Each Zahl In Bereich
If wert = 0 Or wert = Zahl Then GoTo Berechnung
Next
zufall = wert
End Function
Gruß
JöKe
sollte so funktionieren:
Option Explicit
Function zufall(Bereich As Range) As Integer
Dim wert As Integer, Zahl As Range
Application.Volatile
Berechnung:
wert = Int(Rnd * 10) + 1
For Each Zahl In Bereich
If wert = 0 Or wert = Zahl Then GoTo Berechnung
Next
zufall = wert
End Function
Gruß
JöKe
Antwort 3 von jack123
Echt spitze, vielen Dank!!!
Gruß Jack
Gruß Jack