Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterprogramm (Funktion) - Problem mit Übergabe

Forumthread: Unterprogramm (Funktion) - Problem mit Übergabe

Unterprogramm (Funktion) - Problem mit Übergabe
20.01.2006 11:26:16
Heiko
Hallo, Excelianer,
bestimmt kann mir jemand auf die Sprünge helfen:
Ich übergebe einen Wert an eine Funktion. Dort wird der Wert "zerlegt" und in 4 neue Variablen geschrieben. Diese 4 Variablen sollen zurückgegeben werden.
Hintergrund ist, dass ich eine Gleitkommazahl (single - 32 Bit) in 4 einzelne Dezimalzahlen (je 1 Byte) umrechnen will- klappt auch. Nur die Übergabe -ein Wert hin und 4 zurück- klappt nicht.
Kennt jemand eine Lösung?
Vielen Dank im voruas,
Heiko
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterprogramm (Funktion) - Problem mit Überga
20.01.2006 11:34:42
Matthias
Hallo Heiko,
warum nicht so:

Sub test()
Dim a1, a2, a3, a4
Dim wert
wert = 12.34
Umrechnen wert, a1, a2, a3, a4
Debug.Print a1, a2, a3, a4
End Sub
Sub Umrechnen(ByVal wert, a1, a2, a3, a4)
a1 = wert
a2 = wert + 1
a3 = wert + 2
a4 = wert + 3
End Sub
<Pre>
Gruß Matthias
Anzeige
AW: Unterprogramm (Funktion) - Problem mit Übergabe
20.01.2006 14:48:16
Heiko
Hallo Heiko,
das geht nur mit einem Array, guckst du hier:

Sub Auswertung()
Dim intErgebnis() As Integer, intI As Integer
intErgebnis = Trennen(1234)
For intI = 0 To UBound(intErgebnis)
MsgBox intErgebnis(intI)
Next intI
End Sub



Function Trennen(sigZahl As Single) As Variant
Dim intZahlen(3) As Integer
intZahlen(0) = Mid(CStr(sigZahl), 1, 1)
intZahlen(1) = Mid(CStr(sigZahl), 2, 1)
intZahlen(2) = Mid(CStr(sigZahl), 3, 1)
intZahlen(3) = Mid(CStr(sigZahl), 4, 1)
Trennen = intZahlen
End Function

Wenn du mir nun noch verrätst wie du eine Single Zahl in vier einzelne Zahlen zerlegst, wären wir beide schlauer als vorher.
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Unterprogramm (Funktion) - Problem mit Überga
20.01.2006 14:53:06
Matthias
Hallo Heiko(Antwworter),
Wenn du mir nun noch verrätst wie du eine Single Zahl in vier einzelne Zahlen zerlegst, wären wir beide schlauer als vorher.
http://de.wikipedia.org/wiki/Gleitkommazahl#Darstellung
Gruß Matthias
Anzeige
AW: Unterprogramm (Funktion) - Problem mit Überga
20.01.2006 14:58:25
Heiko
Hallo Matthias,
danke für den Link.
Wenn du, oder Heiko, mir jetzt noch kurz verrätst, wie ich diese 32 BIT Zahl in VBA bitweise zerlegen kann, also an die 1. acht Bit, an die 2. acht Bit usw komme.
Wie das gemacht werden könnte, habe ich noch nicht geblickt.
Gruß Heiko
;

Forumthreads zu verwandten Themen

Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Anzeige
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
feste Funktion mit sich ändernden Werten
Tobsen

Hallo habe folgendes Problem.
Möchte Tageswerte eines Programms in eine csv-Datei schreiben. Das solle folgendermaßen aussehen:
SchreibTag("DatenpunktWert1","DatenpunktWert2") --> Funktionsaufruf!
Funktion: Die Funktion soll Global sein, heißt die soll nicht mehr...
26.01.2009 10:29:00
Thread-ID: 1043776
7 Beiträge
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
Error Handling mit mehreren Variablen
Steve

Hallo zusammen
Folgendes Problem:
Funktionswerte, welche in Variablen geschrieben werden, sollten auf error überprüft werden.
Die Werte werden aus Pivot Tabellen übernommen. Wenn jetzt aber die Funktion einen Error ausgibt, sollte das Makro in der entsprechenden Variable den Wert "N...
12.03.2009 16:18:24
Thread-ID: 1059543
14 Beiträge
Blatt Schützen mit Sortierfunktion im Autofilter
Johan

Hallo zusammen,
ich habe ein Blatt geschützt mit der Optionen, dass ein Anwender Filtern und auch die Sortierfunktion nutzen kann. Die Filterfunktion im geschützten Blatt geht.
Allerdings geht die Sortierfunktion innerhalb des Autofilters nicht. Es erscheint die Dialogbox, dass der Sch...
09.05.2009 08:55:08
Thread-ID: 1074035
6 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Anzahl oder Zählen mit 2 Variablen
Holger

Hallo,
ich finde einfach keine Lösung, habe es mit Matrixformeln probiert, kriege es aber nicht hin.
Ich habe eine Liste mit einigen Städtenamen und einem dazugehörigen Datum. Alles andere in der Liste ist nicht ausschlaggebend.
Ich möchte gerne in einem anderen Register die Summe d...
10.07.2009 13:42:27
Thread-ID: 1087680
16 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 Beiträge
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
Rechnen mit mehreren Variablen
Richy

Hi,
ich habe folgende Gleichungen, die ich gerne lösen möchte:
268a+88b+160c+172d+138e+174f=4
188a+128b+76c+166d+150e+148f=2,85
238a+122b+84c+174d+136e+168f=3,55
130a+110b+162c+150d+184e+138f=2,05
72a+162b+190c+78d+110e+132f=0,6
120a+78b+178c+140d+164e+170f=1,75
...
15.01.2010 17:15:19
Thread-ID: 1130346
3 Beiträge
Zählenwenn mit mehreren Variablen | Herbers Excel-Forum
Gorkij
Hallo,
habe ein kleines Problem mit der ZÄHLENWENN-Funktion:
Ich möchte die Funtion von mehreren Variablen abhängig machen, wobei es sich um eine Oder-Verknüpfung handeln soll, das heißt, wenn eines von mehreren Kriterien erfüllt ist soll diese "Ereignis" gezählt werden.
Bsp.: in Der Sp...
29.01.2010 09:33:50
Thread-ID: 1134022
17 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige