ich habe Schwierigkeiten mit einem Makro, welches aus einem bestimmten Bereich Begrifflichkeiten auslesen soll. Stehen in den Zellen dieses Bereiches nicht die gewünschten Begrifflichkeiten, soll er sich den Inhalt und die Zelle merken und diese später in einer MsgBox ausweisen. Andernfalls soll eine Information kommen, dass alle Zellen in dem vordefinierten Bereich richtig befüllt sind.
Könnt Ihr mir eventuell weiterhelfen, wo mein Fehler liegt?
Tausend Dank vorab und beste Grüße
Falcosn
Sub Test()
Dim vertikal As Integer
Range("A207").Select
vertikal = Selection.CurrentRegion.Rows.Count
Dim i As Integer
For i = 207 To vertikal + 207
Dim msg As String
msg = ""
Dim Nutzung As Range
'In Spalte "Nutzungsart" prüfen, ob Einheiten richtig benannt sind
For Each Nutzung In ActiveSheet.Range(Cells(207, 5), Cells(207 + vertikal, 5))
If Nutzung.Name "Flasche" Or Nutzung.Name "Dose" Or Nutzung.Name "Kanne" Then
msg = msg & Nutzung.Text & vbCrLf
Else
End If
Next Nutzung
If msg = "" Then
MsgBox "Alle Zellen in der Spalte Nutzungsart sind richtig befüllt", vbInformation + vbOKOnly, " _
Prüferergebnis"
Else
MsgBox "Folgende Zellen sind falsch befüllt:" & vbCrLf & msg, vbInformation + vbOKOnly, "Prü _
fungsergebnis"
End If
End Sub