Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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

  • Checkliste abhaken

    Aufgabe:Eine Checkliste soll so funktionieren, dass die einzelnen Punkte mit der Maus abgehakt werden können.Demonstration:In der Tabelle stehen in Spalte B die Aufgaben. Links davon befinden...

  • Twitter Timelines in Karte anzeigen

    Seit einigen Monaten bitet Bing.comdie Möglichkeit, Twitter Timelines für einen Suchbegriff in einer Karte anzeigen zu lassen. Die Map lässt sich ganz einfach auf einer Webseite einbinden. Einfach bei...

  • xls-OutlookTermine - Übertragen von Terminen von Excel nach Outlook

    Mit dem kostenlosen Excel-Tool "xls-OutlookTermine" können Termine einfach und komfortabel nach Microsoft Outlook übertragen werden. Das Programm bietet dazu eine übersichtliche Programmoberfläche, siehe...

  • 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...

  • Excel Universal-Kalender

    In diesem Beitrag stellen wir Ihnen den Universal-Kalender vor und geben Ihnen damit die Möglichkeit an die Hand, den Kalender ggf. zu erweitern oder noch besser an Ihre individuellen Bedürfnisse...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013