Option Explicit
Sub Beispiel_Endlosschleife_mit_Abbruchbedingung()
Dim rngZelle As Excel.Range
Dim intVkmg As Integer
With Worksheets("Tabelle1")
Set rngZelle = .Range("A1")
intVkmg = .Cells(rngZelle.Row, "G").Value
Do While Trim$(rngZelle.Value) <> ""
If .Cells(rngZelle.Row, "G").Value < intVkmg Then
intVkmg = .Cells(rngZelle.Row, "G").Value
End If
Set rngZelle = rngZelle.Offset(1)
Loop
Call MsgBox("minimale Verkaufsmenge beträgt " & intVkmg)
End With
End Sub
Sub Beispiel_Zaehlschleife()
Dim rngZelle As Excel.Range
Dim intVkmg As Integer
Dim z As Long
Dim z_max As Long
Dim i As Long
With Worksheets("Tabelle1")
z = 1
If Trim$(.Cells(z, "A").Value) = "" Then
Exit Sub
ElseIf Trim$(.Cells(z + 1, "A").Value) <> "" Then
z_max = .Cells(z + 1, "A").End(xlDown).Row
Else
z_max = 1
End If
intVkmg = .Cells(z, "G").Value
For i = z To z_max
If .Cells(i, "G").Value < intVkmg Then
intVkmg = .Cells(i, "G").Value
End If
Next
Call MsgBox("minimale Verkaufsmenge beträgt " & intVkmg)
End With
End Sub