Ich möchte gern sowas wie pflichtfelder erstellen. Soll heißen, wenn in Zell B6 etwas steht, dann muss auch in Zelle C6, D6 und F6 etwas stehen. Ansonsten gibt es eine Fehlermeldung. Ich hab mit überlegt, dass ich zunächst prüfe welches die letzte genutzte zeile in spalte B ist und anschließend einfach die übrigen "pflichtfelder" in derselben range zu prüfen.
Private Sub CommandButton3_Click()
Dim Zeile As Long
Zeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If ActiveSheet.Range(Cells(6, 2), Cells(Zeile, 2)) = 0 Or ActiveSheet.Range(Cells(6, 3), Cells(Zeile, 3)) = 0 Or ActiveSheet.Range(Cells(6, 4), Cells(Zeile, 4)) = 0 Or ActiveSheet.Range(Cells(6, 6), Cells(Zeile, 6)) = 0 Then
MsgBox "Es müssen alle Pflichtfelder ausgefüllt sein"
End
End If
Führt jedoch leider immer zu "typen unverträglich". Wäre schön, wenn einer eine Lösung hätte.
Danke
Theomas