mit folgendem Code will ich die Zelle auswählen, welche nicht den Konventionen entspricht, aber es kommt nur der Fehler Die Select Methode des Range-Objekts konnte nicht ausgeführt werden. Habs analog auch schon mit Bereich = Sheets("Liefermengen").Cells(a, b).Address & ":" & Sheets("Liefermengen").Cells(c, b).Address
Und dann Range(Bereich).Select probiert. Wo liegt denn der Fehler?
Zeile = 3
Do While Sheets(1).Cells(Zeile, 20) <> ""
Verursacher = Sheets(1).Cells(Zeile, 20)
Select Case Verursacher
Case "Brose"
Case "Lieferant"
Case "KFG"
Case "Kunde"
Case "Händler"
Case Else
MsgBox "In der Spalte Lieferant Zeile " & Zeile & " werden unhomogene Werte verwendet!"
UserForm1.Hide
With Worksheets(1)
.Range(.Cells(Zeile, 20), _
.Cells(Zeile, 20)).Select
End With
Exit Sub
Exit Do
End Select
Zeile = Zeile + 1
Loop
Danke im voraus!