VBA Schleifen, Prozedure und Funktionen

joel3214

Software-Overclocker(in)
Hi
Ich frage mich gerade was man unter Nachprüfende Schleifen und Numerische Schleifen verstehen soll und wie Beispiele dazu aussehen könnten.
Finde darüber nichts im Internet liegt wohl daran das es nicht die passenden Begriffe für sind?
Außerdem komme ich nicht dahinter welche Funktionen und Auswirkungen Prozeduren haben.

Wer nett wenn mir da wer weiterhelfen könnte

Mfg

p.s: ja es ist eine Aufgabe für de uni und ja ich habe schon fast alles selber gemacht aber hier komme ich nicht weiter :(

Zu Prozeduren habe ich doch was finden können :D

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Funktion wird jedesmal aufgerufen,wenn'
    
    Dim strBinary, strTmp, strHex As String
    Dim iIndex As Integer
    
    
    strBinary = Target.Value
    
    For iIndex = 1 To 61 Step 4
    strTmp = Mid(strBinary, iIndex, 4)
   
    
    If strTmp = "0000" Then
        strHex = strHex + "0"
    ElseIf strTmp = "0001" Then
        strHex = strHex + "1"
    ElseIf strTmp = "0010" Then
        strHex = strHex + "2"
    ElseIf strTmp = "0011" Then
        strHex = strHex + "3"
    ElseIf strTmp = "0100" Then
        strHex = strHex + "4"
    ElseIf strTmp = "0101" Then
        strHex = strHex + "5"
    ElseIf strTmp = "0110" Then
        strHex = strHex + "6"
    ElseIf strTmp = "0111" Then
        strHex = strHex + "7"
    ElseIf strTmp = "1000" Then
        strHex = strHex + "8"
    ElseIf strTmp = "1001" Then
        strHex = strHex + "9"
    ElseIf strTmp = "1010" Then
        strHex = strHex + "A"
    ElseIf strTmp = "1011" Then
        strHex = strHex + "B"
    ElseIf strTmp = "1100" Then
        strHex = strHex + "C"
    ElseIf strTmp = "1101" Then
        strHex = strHex + "D"
    ElseIf strTmp = "1110" Then
        strHex = strHex + "E"
    ElseIf strTmp = "1111" Then
        strHex = strHex + "F"

        
        
      End If
    
    Next iIndex
    
 MsgBox (strHex)
    
End Sub
zum Code das ist die Aufgabe dazu was haltet ihr davon ?

Erstellen Sie in der Programmiersprache VBA eine Funktion zur Umwandlung einer
Zeichenkette, bestehend aus Binärziffern, in eine Zeichenkette, bestehend aus
hexadezimalen Ziffern. Diese Funktion erhält die Zeichenkette mit den Binärziffern als
Argument, wobei diese eine maximale Länge von 64 Zeichen besitzt. Das Ergebnis soll in
Form einer „MessageBox“ angezeigt werden.Benutzen Sie ausschließlich die in Aufgabe 2
genannten Begriffe und Kontrollstrukturen.
 
Zuletzt bearbeitet:
Moin,
Nachprüfende Schleifen werden auch fußgesteuerte genannt. Das bedeutet das die Schleifenbedingung erst nach Abarbeitung der Schleife geprüft wird, also selbst wenn die Schleifenbedingung nicht zutrifft wird der Code im Schleifenkörper ausgeführt. Bei fußgesteuerten Schleifen wir somit sichergestellt das der Code im Schleifenkörper mind. einmal ausgeführt wird.
Do...Loop-Anweisung (Visual Basic)


[FONT=&quot]Lg.[/FONT]
 
Sry für dopple Post aber ich muss das noch für 24 uhr abschicken :ugly:


Ok habe es hinbekommen :)
 
Zuletzt bearbeitet:
Moin

falls es dich noch interessiert :)

Numerische Schleifen sind Schleifen die eine vorher definierte Anzahl an Durchgängen durchlaufen.
Bsp:
Code:
For i = 1 to 100 Step 1
         wert = InputBox("Bitte einen Wert eingeben!")
         List1.AddItem wert
next i
Das ist eine Schleife die genau 100 Durchgänge hat.

Lg.
 
Interessieren ja solange du mir nichts erzählt was ich anderes verstanden habe und die Note verschechtern könnte xD
 
Zurück