Hab Problem mit FOR-Schleife. Bitte um Hilfe.
31.08.2004 18:41:07
madfromvba
Ich hab ein Problem mit dieser FOR Schleife.
Und zwar:
Wie auf diesem Bild zu sehen ist läuft die for schleife durch den ganzen festgelegten bereich Range("F82,.....,AX84"). sie soll aber, wenn sie auf eine Zelle im Bereich UND auf ein leeres Datumsfeld eine Zeile über dem Zellenbereich --> (Zelle.Offset(-1, 0) trifft, die speicherung zulassen.
Hintergrund ist, dass zu einem Datum immer ein Name gehört.
Auf dem Bild sieht man die selektierte Zelle. Hier dürfte die Meldung nicht mehr erscheinen und die Speicherung zugelssen werden.
hab ich das verständlich geschrieben?
wie kann ich das realisieren?
Danke vielmals!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Blatt 1").Activate
Dim Zelle
Dim Bereich As Range
Set Bereich = Range("F82,Q82,AB82,AM82,AX82,F84,Q84,AB84,AM84,AX84")
For Each Zelle In Bereich
Zelle.Select
If Not IsEmpty(Zelle) And IsDate(Zelle.Offset(-1, 0).Value) Then
'speichern
Else
'nicht speichern
MsgBox "Arbeitsmappe kann nicht gespeichert werden! Bitte tragen sie Ihren Namen ein!" & ActiveCell.Address & " ein!"
Cancel = True
Exit For
End If
Next Zelle
End Sub