Thema Datum  Von Nutzer Rating
Antwort
13.12.2024 15:47:19 Miriam
NotSolved
13.12.2024 17:57:10 ralf_b
NotSolved
13.12.2024 18:00:31 Miriam
NotSolved
13.12.2024 18:10:50 ralf_b
NotSolved
13.12.2024 18:37:38 Miriam
NotSolved
Blau Pfichtfelder
 13.12.2024 20:19:48 ralf_b
Solved
14.12.2024 16:12:28 Miriam
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
13.12.2024 20:19:48		 Views:
44		 Rating:
     
Antwort:
 Nein
Thema:
Pfichtfelder

Wenn fehlende Werte in den Spalten B bis H gefunden werden, wird das Speichern der Datei verhindert und eine Warnung ausgegeben. Der code gehört in das Modul von DieseArbeitsmappe.  Er stammt von chatgpt und sieht auf den ersten blick ok aus.  

 

Private Function CheckMissingValues(ws As Worksheet) As Boolean
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long

    ' Letzte Zeile in Spalte A ermitteln
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Durch alle Zeilen iterieren
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value <> "" Then
            For j = 2 To 8 ' Spalten B bis H (2 bis 8)
                If ws.Cells(i, j).Value = "" Then
                    CheckMissingValues = True
                    Exit Function
                End If
            Next j
        End If
    Next i

    CheckMissingValues = False
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet

    ' Tabelle festlegen (hier: erste Tabelle des Workbooks)
    Set ws = ThisWorkbook.Sheets(1)

    ' Prüfen, ob fehlende Werte vorhanden sind
    If CheckMissingValues(ws) Then
        MsgBox "Es gibt mindestens eine leere Zeile, in den Spalten B bis H, obwohl in Spalte A ein Wert ist. Bitte korrigieren, bevor die Datei gespeichert wird.", vbExclamation, "Warnung"
        Cancel = True ' Speichern der Datei abbrechen
    End If
End Sub

 

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
13.12.2024 15:47:19 Miriam
NotSolved
13.12.2024 17:57:10 ralf_b
NotSolved
13.12.2024 18:00:31 Miriam
NotSolved
13.12.2024 18:10:50 ralf_b
NotSolved
13.12.2024 18:37:38 Miriam
NotSolved
Blau Pfichtfelder
 13.12.2024 20:19:48 ralf_b
Solved
14.12.2024 16:12:28 Miriam
NotSolved