Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Ermittlung des größten gemeinsamen Teilers

In diesem Beispiel sehen Sie ein kleines Tool das in Kombination von Standardfunktionen und VBA den größten gemeinsamen Teiler (ggT) von zwei Zahlen ermittelt.

So funktioniert das Tool:

1. Über die Schaltfläche "GGT-Berechnung aufrufen" wird das Dialogfenster "Ermittlung GGT" aufgerufen

2. In dem Dialogfenster können zwei Zahlen eingetragen werden.

3. Mit einem Klick auf die Schaltfläche Berechnen wird das Ergebnis in einer MessageBox ausgegeben und die erfassten Werte sowie das Ergebnis, also der ggT werden in die Excel-Tabelle fortlaufend eingetragen.

Zur Berechnung des größten gemeinsamen Teilers sowie zur Anzeige der Userform wurde folgender VBA-Code verwendet:

 

Sub Ermittlung_GGT()
'** Ermittlung des größten gemeinsamten Teilers zweier Zahlen

'** Errorhandling
On Error GoTo errorhandling

'** Dimensionierung der Variablen
Dim z1, z2, tmp, erg 'As Long
Dim lngLz As Long

'** vorgaben definieren
Set wsakt = ThisWorkbook.Sheets("Ergebnis")

'** Zahl 1 und 2 auslesen
z1 = frm1.TextBox1.Value
z2 = frm1.TextBox2.Value

'** Eintragen der Werte in das Tabellenblatt
lngLz = wsakt.Cells(Rows.Count, 1).End(xlUp).Row + 1
With wsakt
  .Cells(lngLz, 1).Value = z1
  .Cells(lngLz, 2).Value = z2
  .Cells(lngLz, 3).FormulaLocal = "=GGT(A" & lngLz & ":B" & lngLz & ")"
End With

'** Ergebnis in Msgbox ausgeben
MsgBox "Der ggT von " & z1 & " und " & z2 & " lautet " & wsakt.Cells(lngLz, 3).Value

'** Programm beenden
Exit Sub

'** Fehlerroutine
errorhandling:
Set wsakt = Nothing
MsgBox "Bitte geben Sie gültige Zahlen zur Berechnung des GGT ein!", vbCritical, "Hinweis"

End Sub


Sub Berechnung_Starten()
frm1.Show vbModeless
End Sub

Um den ggT zu berechnen wurde die Standardfunktion =GGT() verwendet, welche über VBA in die entsprechende Zelle eingefügt wurde. Alternativ hätte die Berechnung auch über eine VBA-Funktion erfolgen können.

Das Tool können Sie nachfolgend herunterladen.


   

Relevante Artikel

  • Darlehens- und Annuitätenrechner

    Mit Hilfe des vorgestellten Darlehens- und Annuitätenrechners können Sie Ihre Darlehen ohne Schwierigkeit kalkulieren. Nachdem der Darlehensbetrag, der Zinssatz, die Laufzeit in Jahren sowie eine...

  • Dynamische Wortwolke oder tag cloud in Excel erzeugen

    Als Wortwolke, Schlagwortwolke oder Stichwortwolke (engl. tag cloud) wird die Informationsvisualisierung bezeichnet, bei der eine Liste mit unterschiedlichen Stichwörtern (tags) analysiert wird und...

  • xls-Quittung - Tool zur Erstellung von Quittungen

    Funktionen Demoversion Vollversion FunktionenMit Hilfe des Excel-Tools xls-Quittung lassen sich schnell und einfach Quittungen erzeugen, ausdrucken und abspeichern. Das Layout entspricht dabei den...

  • Excel Taschenrechner

    Heute stellen wir Ihnen den kostenlosen Excel Taschenrechner vor. Beim Excel-Taschenrechner handelt es sich um ein Add-In welches ganz einfach über den Add-Ins Manger eingebunden werden kann. Das...

  • Excel-Tool für rollierende Planung

    Mit Hilfe des in diesem Beitrag vorgestellten Excel-Tools können rollierende Planungen erstellt werden. Wikipedia beschreibt eine rollierende Planung wie folgt: "Die rollierende Planung (auch...