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.


   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800