|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.07.2017 08:20:19 |
Tobi |
|
|
|
20.07.2017 10:15:03 |
Werner |
|
|
 Abspeicherungsbedingung |
20.07.2017 10:50:24 |
Tobi |
|
|
|
20.07.2017 11:17:59 |
Werner |
|
|
|
20.07.2017 12:38:49 |
Tobi |
|
|
|
20.07.2017 10:52:59 |
Tobi |
|
|
|
20.07.2017 13:33:28 |
Werner |
|
|
Von:
Tobi |
Datum:
20.07.2017 10:50:24 |
Views:
669 |
Rating:
|
Antwort:
|
Thema:
Abspeicherungsbedingung |
|
Hallo Werner,
Vielen Dank vorab.
Genau das meinte ich. Nun jedoch folgendes Problem:
Ich habe es wie folgt geändert:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim raBereich As Range
Dim raZelle
With Worksheets("BA1")
Set raBereich = .Range(.Cells(10, 1), .Cells(1000, 1))
For Each raZelle In raBereich.SpecialCells(xlCellTypeConstants)
If raZelle.Offset(, 8) <> "" Or raZelle.Offset(, 9) <> "" Or raZelle.Offset(, 11) <> "" Or raZelle.Offset(, 12) <> "" Then
If raZelle.Offset(, 7) = "" Then
MsgBox "H/P/A-Kennung fehlt in Zeile " & raZelle.Row & vbLf & "Speichern nicht möglich."
raZelle.Offset(, 7).Select
Cancel = True
Exit For
End If
End If
Next raZelle
End With
End Sub
In Spalte I (8) klappt jetzt genau das was ich möchte, dass der Fehler dann kommt wenn ich Speicher. Bei 10,12,13 kommt jedoch schon die Meldung wenn ich es eintrage ohne zu speichern... weißt du woran das leigen könnte?
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.07.2017 08:20:19 |
Tobi |
|
|
|
20.07.2017 10:15:03 |
Werner |
|
|
Abspeicherungsbedingung |
20.07.2017 10:50:24 |
Tobi |
|
|
|
20.07.2017 11:17:59 |
Werner |
|
|
|
20.07.2017 12:38:49 |
Tobi |
|
|
|
20.07.2017 10:52:59 |
Tobi |
|
|
|
20.07.2017 13:33:28 |
Werner |
|
|