Wie erstelle ich einen Prozentwert Rechner in VBA (Excel)?

Moin ich habe ein Problem und zwar ist es so, dass ich einen Rechner erstelle möchte der die Zahl in Textfeld 1 x die Zahl in Textfeld 2 / die Zahl in Textfeld 3 nimmt und das Ergebnis dann in Textfeld 4 schreibt , wenn man auf einen Commandbutton drückt . Also Zahl1 x Zahl2/ Zahl3 = Zahl 4. Die Oberfläche hab ich schon gemacht

1 Antwort

azmd108

11.11.2015, 10:14

Diese Lösung sollte für dich ausreichend sein, man aber kann natürlich noch viel mehr machen (Bedingungen, runden etc.).

Du könntest die Werte auch vorher in Variablen speichern, wenn du mit den Werten noch weiterrechnen möchtest oder ähnliches. Felder und Commandbutton entsprechend deiner gewählten Bezeichnung anpassen.

Private Sub CommandButton1_Click()
TextBox4 = TextBox1 * TextBox2 / TextBox3
End Sub

DustyDisk

Beitragsersteller

11.11.2015, 10:46

Und wie mache ich es z.b. wenn ich Celle so ausrechenne möchte also z.b. b1 * b2 / b3 = b4?

azmd108

11.11.2015, 11:05

@DustyDisk

Du meinst, dass du die Zahlen in die Zellen B1 B2 B3 reinschreibst und diese dann in Zelle B4 ausgegeben werden soll?

So (dafür brauchst du aber kein Formular):

ActiveSheet ist das aktuelle Tabellenblatt

Wenn du dich auf nicht aktives Blatt beziehen willst, ersetze

ActiveSheet mit Sheets("Tabelle1") für Tabelle1 gibst du dann den Namen des Tabellenblatts ein.

Cells(Zeile, Spalte) also ist B4 = Cells(4,2)

Sub rechner()
ActiveSheet.Cells(4, 2).Value = ActiveSheet.Cells(1, 2).Value * ActiveSheet.Cells(2, 2).Value / ActiveSheet.Cells(3, 2).Value
End Sub

Ähnliche Beiträge

Excel Funktion mit Pythagoras erstellen?

Hallo

Ich möchte gerne im Excel mithilfe von VBA ein Pythagoras-Funktion erstellen.

Function phytagoras(Zahl1, Zahl2)
     pythagoras = (Zahl1 ^ 2 + Zahl2 ^ 2) ^ 0.5
End Function

Kann mir jemand sagen was ich falsch gemacht habe? Denn wenn ich die Funktion im Excel benutze, bekomme ich den Wert 0

...zum Beitrag

C# mehrere Einstiegspunkte definiert?

Hallo ich habe eine Frage zu meiner nachgecodeten Lotterie. Wenn ich sie ausführen will steht dort, dass mehrere Einstiegspunkte definiert sind.

using System;
using System.Linq;


namespace ConsoleApp564
{
    class Program
    {
        public static void Main(string[] args)
        {
            Random Zufallszahl = new Random();
            int lösung1 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung2 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung3 = Convert.ToInt32(Zufallszahl.Next(1, 49));


            int[] lösung = new int[3] { lösung1, lösung2, lösung3 };
            Array.Sort(lösung);


            int zahl1;
            int zahl2;
            int zahl3;


            Console.WriteLine("Wilkommen in der Lotterie");
            Console.Write("Geben sie ihre erste Zahl eine, diese muss zwischen 1 und 49 liegen: ");
            zahl1 = Convert.ToInt32(Console.ReadLine());


            if (zahl1 <= 49 && zahl1 >= 1)
            {
                Console.Write("Geben sie ihre zweite Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                zahl2 = Convert.ToInt32(Console.ReadLine());


                if (zahl2 <= 49 && zahl2 >= 1)
                {
                    Console.Write("Geben sie ihre dritte Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                    zahl3 = Convert.ToInt32(Console.ReadLine());


                    if (zahl3 <= 49 && zahl3 >= 1)
                    {
                        int[] number = new int[3] { zahl1, zahl2, zahl3 };
                        Array.Sort(lösung);
                        if ((Enumerable.SequenceEqual(lösung, number)))
                        {
                            Console.WriteLine("Sie haben gewonnen!");
                        }
                        else
                            Console.WriteLine("Sie haben verloren die Lösungzahlen waren " + lösung1 + ", " + lösung2 + " und " + lösung3 + ". Sie haben " + zahl1 + ", " + zahl2 + " und " + zahl3 + " getippt.");
                    }
                }
                else
                {
                    Console.WriteLine("Die Zahl muss zwischen 1 und 49 liegen!");
                    return;
                }
            }
        }
    }


}

...zum Beitrag

Excel VBA, Bereiche ausblenden?

Hallo, kann ich per Excel Vba einen definierten Bereich ausblenden?

Als Beispiel, ich würde gerne bei einem Klick auf einen Commandbutton, den Bereich B2:D14 ausblenden.

Danke!

...zum Beitrag

Aufgabe: Minimum ermitteln?

Hallo Leute, könnt ihr mal kurz kontrollieren ob ich die folgende Aufgabe richtig gemacht habe?

/*
Aufgabe 1: Minimum ermitteln
Gegeben sind drei String Variablen mit beliebigen ganzzahligen Werten (als Strings!), z.B. "23", "5","13".
Wandeln Sie die Strings in Integer-Werte um und ermitteln Sie das Minimum und Maximum der drei Zahlen.
Geben Sie die drei Zahlen und das Minimum/Maximum auf der Konsole aus.

Das Minimum von 23, 5 und 13 ist 5.
Das Maximum von 23, 5 und 13 ist 23.
*/

String zahl1 = "23";
String zahl2 = "5";
String zahl3 = "13";

boolean minimum = Integer.parseInt(zahl2) < Integer.parseInt(zahl1) && Integer.parseInt(zahl2) < Integer.parseInt(zahl3);
System.out.println(minimum);

boolean maximum = Integer.parseInt(zahl1) > Integer.parseInt(zahl2) && Integer.parseInt(zahl1) > Integer.parseInt(zahl3);
System.out.println(maximum);

//true
//true

...zum Beitrag

Mittelwert berechnen aus zahlen in einer Textdatei unter linux?

Mit welchem Linux Script kann man den Mittelwert der zahlen berechnen einer Datei?
BSP:

NR Zahl1 Zahl2 Zahl3

12349 Zahl1 Zahl2 Zahl3 ...

Es steht in jeder zeile die Nummer der Wetterstation und dahinter 12 Werte

Jetzt möchte ich aus alles werten (außer Wetterstationsnummer) den Mittelwert bilden für ein Jahresmittelwert.

...zum Beitrag

Informatik Programmierung bestimmte Summe aus einer Reihe von Zahlen?

Hallo,

ich habe eine Aufgabe bekommen, in der aus einer Liste von Zahlen eine bestimmte Summe rausbekommen muss und diese Zahlenkombination dann ausgeben soll.

Ich habe bis jetzt das hier programmiert, aber ich komme nicht mehr weiter und gelange nur noch in eine Endlos-Schleife.

Die Zahlen sind 433, 382, 169, 153, 24 und 7 und es soll die Zahlenkombination rauskommen bei der die Summe gleich 888 ist.

import java.util.Random;
public class Pfeil
{
      public static void main(String args[])
    {
        int  erg = 0;
        while (erg != 888)
        {

                erg = 0;
                int [] arr={433, 382, 169, 153, 24,7};
                Random r=new Random();
                int zahl1=r.nextInt(arr.length);
                int zahl2=r.nextInt(arr.length);
                int zahl3=r.nextInt(arr.length);
                int zahl4=r.nextInt(arr.length);
                int zahl5=r.nextInt(arr.length);
                int zahl6=r.nextInt(arr.length);
                erg = zahl1+zahl2+zahl3+zahl4+zahl5+zahl6;
                if ( erg == 888)
                {
                    System.out.println(zahl1+""+zahl2+""+zahl3+""+zahl4+""+zahl5+""+zahl6);
                }
        }
    }
}

...zum Beitrag

Mehrere Variablen gleichzeitig einen Wert zuweisen?

Hallo,

Kann man mehrere Variablen gleichzeitig einen Wert zuweisen (C#)?

Also, dass ich nicht immer dieses schreiben muss:

    int Zahl1 = 1111;

    int Zahl2 = Zahl1;
    int Zahl3 = Zahl1;
    int Zahl4 = Zahl1;
    int Zahl5 = Zahl1;
    int Zahl6 = Zahl1;
    int Zahl7 = Zahl1;
    ...... usw .......

Hoffe ihr könnt mir helfen ;)

Tom1324

...zum Beitrag

C#: Wie kann ich Arrays vergleichen?

Hallo,

ich bin sehr neu im Programmieren, habe hier eine Lotterie nachgecodet:

using System
using System.Collections.Generic;
using System.Linq;

namespace ConsoleApp2
{
  class Program
  {
    static void Main(string[] args)
    {
      Random Zufallszahl = new Random();
      int lösung1 = Convert.ToInt32(Zufallszahl.Next(1, 49));
      int lösung2 = Convert.ToInt32(Zufallszahl.Next(1, 49));
      int lösung3 = Convert.ToInt32(Zufallszahl.Next(1, 49));

      int[] lösung = new int[3] { lösung1, lösung2, lösung3 };
      Array.Sort(lösung);

      int zahl1;
      int zahl2;
      int zahl3;

      Console.WriteLine("Wilkommen in der Lotterie");
      Console.Write("Geben sie ihre erste Zahl eine, diese muss zwischen 1 und 49 liegen: ");
      zahl1 = Convert.ToInt32(Console.ReadLine());

      if (zahl1 <= 49 && zahl1 >= 1)
      {
        Console.Write("Geben sie ihre zweite Zahl ein, diese muss zwischen 1 und 49 liegen: ");
        zahl2 = Convert.ToInt32(Console.ReadLine());

        if (zahl1 <= 49 && zahl1 >= 1)
        {
          Console.Write("Geben sie ihre dritte Zahl ein, diese muss zwischen 1 und 49 liegen: ");
          zahl3 = Convert.ToInt32(Console.ReadLine());
          
          if (zahl1 <= 49 && zahl1 >= 1)
          {
            int[] number = new int[3] { zahl1, zahl2, zahl3 };
            Array.Sort(lösung);
            bool isEqual = Enumerable.SequenceEqual(lösung, number);
          }
        }
        else
        {
          Console.WriteLine("Die Zahl muss zwischen 1 und 49 liegen!");
          return;
        }
      }
    }
  }
}

und habe eine Frage.

Dort wo

bool isEqual = Enumerable.SequenceEqual(lösung, number);

steht, probiere ich die Listen "lösung" und "number" miteinander zu vergleichen und falls sie gleich sind, einen Text anzeigen zu lassen. Doch vor diesen Befehl kann ich leider kein if setzen.

...zum Beitrag

Excel VBA - UserForm Commandbutton über Shortcut starten

Wie kann ich das erreichen das mein Commandbutton (uebertragen) mit STRG+a sofort augeführt wird?

Danke schonmal

...zum Beitrag

Python variable wert erhöhen?

Hallo, Ich habe als Beispiel:

zahl0 = "0"
zahl1 = "1"
zahl2 = "2"
zahl3 = "3"
zahl4 = "4"

Und jetzt möchte ich diese werte printen.

Theoretisch müsste ich ja immer

print(zahl1)
print(zahl2)
print(zahl3)...

machen. Gibt es eine Möglichkeit wie ich zu der Variable "zahl" die Nummer am Ende hinzufüge? Also so das ich eine Zeile nur brauche und das in einem While Loop mache?

Also

counter = 0
while True:
  counter = counter+1
  print(zahl+counter)

Wäre cool wenn jemand dazu eine Antwort mir geben kann. Danke

...zum Beitrag

Excel | Uhrzeit-Rechner?

Guten Abend zusammen.

Kurze Frage:

Wie kann ich so ein Uhrzeit-Rechner in Excel erstellen? (ohne VBA und großes Design)

Danke im Voraus!

Mit freundlichen Grüßen: Robin | TechBrain. :)

...zum Beitrag

Wie kann ich die Combobox mit einem CommandButton verknüpfen ( in Excel-VBA)?

Hallo,

ich habe in Excel-VBA eine Combobox erstellt mit mehreren Auswahlmöglichkeiten und einen Commandbutton. Ich möchte, dass sich je nachdem welche Auswahl man trifft aus der Combobox sich eine andere Userform öffnet, wenn ich den CommandButton drücke. Meine Daten aus der Combobox habe ich in einer Excel-Tabelle (H2;H9). Kann mir jemand helfen? Danke

...zum Beitrag

In C Signatur vereinfachen?

also die Paramter:

funktion(int zahl1, int zahl2, int zahl3, int zahl4, int zahl5, int zahl6){ }

gibt es einen weg dieses int auch zusammenzufassen also so mäßig:

funktion (int(zahl1, zahl2, ...))

...zum Beitrag

Batch Zahlen nach Reihenfolge sortieren?

Hey, habe eine Frage zu Batch.

Und zwar möchte ich zufällig generierte Zahlen, in der richtigen Reihenfolge (klein zu groß oder umgekehrt) auflisten. Alles bis zum sortieren klappt.

Bis jetzt habe ich nur herausgefunden, wie man die höchste und niedrigste Zahl auflistet (indem man jede Zahl/Variable mit Vergkleichsoperatoren gegenüberstellt:

z.B.

if %zahl1% GEQ %zahl2% (set /a highest=%zahl1%) else set /a highest=%zahl2% 

if %zahl3% GEQ %highest% (set /a highest=%zahl3%)

usw.

Aber wie komme ich auf die anderen Zahlen?

Wäre um jede Hilfe dankbar :)

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen