Hallo,

ich würde gerne eine Binärzahl, die ich in Dezimal umgewandelt habe auf verschiedene Faktoren abfragen.

Ich hab hier den Code schon einmal geschrieben. Kann mir jemand sagen wie ich ihn VBA tauglich bekomme?

Danke für die Hilfe.

Function DezBerechnung()

int Wert (Feld A2)
int Rest_Wert

Rest_Wert = Wert;

DO WHILE Rest_Wert > 0
{
 IF Rest_Wert >= 512
  dann
   Fehler: Zahl ist zu gross
  
 IF Rest_Wert >= 256
 then
  Ausgabe (Feld A1)Verketten:: Bus;
  Rest_Wert = Rest_Wert - 256
 
 IF Rest_Wert >= 128
  then
   Ausgabe (Feld A1)Verketten:: Taxi;
   Rest_Wert = Rest_Wert - 128

 IF Rest_Wert >= 64
  then
   Ausgabe (Feld A1)Verketten:: U-Bahn;
   Rest_Wert = Rest_Wert - 64
 
 IF Rest_Wert >= 32
  then
   Ausgabe (Feld A1)Verketten:: Bahn;
   Rest_Wert = Rest_Wert - 32
 
 IF Rest_Wert >= 16
  then
   Ausgabe (Feld A1)Verketten:: Standseilbahn;
   Rest_Wert = Rest_Wert - 16
 
 IF Rest_Wert >= 8
  then
   Ausgabe (Feld A1)Verketten:: Wassertaxi;
   Rest_Wert = Rest_Wert - 8
 
 IF Rest_Wert >= 4
  then
   Ausgabe (Feld A1)Verketten:: Straßenbahn;
   Rest_Wert = Rest_Wert - 4
    
 IF Rest_Wert >= 2
  then
   Ausgabe (Feld A1)Verketten:: Oberleitungsbus;
   Rest_Wert = Rest_Wert - 2
   
 IF Rest_Wert >= 1
  then
   Ausgabe (Feld A1)Verketten:: Fähren;
   Rest_Wert = Rest_Wert - 1
 
}