Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige

174 Forumthreads zu ähnlichen 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
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
SVERWEIS oder ähnliche Funktion mit zwei Variablen
Manfred

Hallo,
ich hoffe dass ich jetzt kein Thema anspreche, dass bereits erschöpftend behandelt wurde. Ich habe jedenfalls nichts gefunden. Meine Problemstellung ist folgende:
Ich habe eine Tabelle mit ca. 120 Spalten. Jede Zeile stellt einen Datensatz dar. Die Daten werden ab der Zeile 8 erf...
04.02.2009 08:41:18
Thread-ID: 1046867
4 Beiträge
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
6
3
10
13
5
7
15
1
8
2
16
9
7
6
9
3
18
5
2
8
1
1
1