Thema Datum  Von Nutzer Rating
Antwort
29.06.2017 09:34:53 Tobi
Solved
Blau Hilfe für einen VBA Neuling
 29.06.2017 19:56:19 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
29.06.2017 19:56:19		 Views:
514		 Rating:
     
Antwort:
  Ja
Thema:
Hilfe für einen VBA Neuling

Hallo,

ein Daten-Check vor dem Speichern kann mit diesem Code durchgeführt werden:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim wsh As Worksheet
    Dim rng As Range, rngChk As Range
    Set wsh = ThisWorkbook.Worksheets(1)

    For Each rng In wsh.UsedRange.Rows
        Set rngChk = rng.Cells(1, 1)
        With rngChk.Offset(ColumnOffset:=IIf(rngChk.Column < 8, 8 - rngChk.Column, 0 - (rngChk.Column - 8)))
            If Not (.Offset(ColumnOffset:=1).Value <> "" And .Value <> "" Or (.Offset(ColumnOffset:=1).Value = "" And .Value = "")) Then
                wsh.Activate
                wsh.Range(rngChk, rngChk.Offset(ColumnOffset:=1)).Select
                Cancel = True
                MsgBox "In der Tabelle sind nicht alle Werte der Spalten H und I korrekt ausgefüllt worden.", vbCritical
                Exit For
            End If
        End With
    Next
End Sub

Der Code muss im VBA-Editor in "Diese Arbeitsmappe" eingesetzt werden.

LG, Ben

Ihre Antwort
  • 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: Name: Email:



  • 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
29.06.2017 09:34:53 Tobi
Solved
Blau Hilfe für einen VBA Neuling
 29.06.2017 19:56:19 Ben
NotSolved