Pflichtfelder

Hallo zusammen
Kann mir bitte jemand helfen.
Folgender VBA-Code funktioniert nur auf der 3 Zeile. Ich möchte aber gerne, dass der Code auf der gesammten Tabelle funktioniert:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim hinweis
' cells(Zeile, Spalte)
If Cells(3, 1)  "" And Cells(3, 13) = "" Then
hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical)
Cells(3, 13).Select
Exit Sub
ElseIf Cells(3, 9)  "" And Cells(3, 10) = "" Then
hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical)
Cells(3, 10).Select
Exit Sub
End If
End Sub

Wenn ich den Code wie folgt ändere, funktioniert auch die 4. Zeile

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim hinweis
' cells(Zeile, Spalte)
If Cells(3+1, 1)  "" And Cells(3+1, 13) = "" Then
hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical)
Cells(3+1, 13).Select
Exit Sub
ElseIf Cells(3+1, 9)  "" And Cells(3+1, 10) = "" Then
hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical)
Cells(3+1, 10).Select
Exit Sub
End If
End Sub

Was muss ich eingeben, dass dieser Code Zeile für Zeile funktioniert?
Gruss Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim hinweis ' cells(Zeile, Spalte) If Cells(ActiveCell.Row, 1) "" And Cells(ActiveCell.Row, 13) = "" Then hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical) Cells(ActiveCell.Row, 13).Select Exit Sub ElseIf Cells(ActiveCell.Row, 9) "" And Cells(ActiveCell.Row, 10) = "" Then hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbCritical) Cells(ActiveCell.Row, 10).Select Exit Sub End If

Private Sub Worksheet_Change(ByVal Target As Range) Dim hinweis If Target.Count > 1 Then Exit Sub If Target.Column = 1 Or Target.Column = 9 Then Select Case Target.Column Case 1: If Target "" Then hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbInformation) Cells(Target.Row, 13).Select a = 13 b = Target.Row Exit Sub End If Case 9: If Target "" Then hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbInformation) Cells(Target.Row, 10).Select a = 10 b = Target.Row Exit Sub End If End Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If a = 0 And b = 0 Then Exit Sub If Cells(b, a) = "" Then Cells(b, a).Select End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim hinweis If Target.Count > 1 Then Exit Sub If Target.Column = 1 Or Target.Column = 9 Then If Target "" Then Select Case Target.Column Case 1: a = 13 b = Target.Row Case 9: a = 10 b = Target.Row End Select hinweis = MsgBox("Bitte Pflichtfelder ausfüllen!", vbInformation) Cells(b, a).Select Cells(b, a).Interior.Color = vbRed End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If a = 0 And b = 0 Then Exit Sub If Cells(b, a) = "" Then Cells(b, a).Select Else Cells(b, a).Interior.Color = xlNone End If End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread