AW: Pflichtfelder im Formular
31.08.2007 10:30:00
Bertram
Hallo Marcus,
was meinst du genau?
Mit Alt+F11 kommst du in Excel in den VBA-Editor, dort findest du unter Sheet1 folgendes Makro:
Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim zähler As Integer
For Each Zelle In Range("Pflichtfelder").Cells
If Zelle = "" Then
Zelle.Interior.ColorIndex = 6
zähler = zähler + 1
Else
Zelle.Interior.ColorIndex = xlNone
End If
Next Zelle
If zähler = 0 Then
ActiveSheet.PrintOut
Else
MsgBox "Nicht alle Felder ausgefüllt"
End If
End Sub
Der Range 'Pflichtfelder' ist im Tabellenblatt definiert (in diesem Fall die gerahmten Zellen markiert und den Nmen dafür vergeben).
Hilft dir die Erklärung? Falls nein, konkretisiere deine Frage.
Gruß
Bertram