03.07.2023, 12:44
Moin zusammen,
ich komme mal wieder nicht weiter und benötige eure Unterstützung:
Derzeit haben wir ein Formular fürs Testen von unseren Geräten.
Die ganzen Daten werden, sofern sich ein Fehler ergibt, in eine Archiv Datei gezogen.
Nach Freigabe des Formulars werden dann die Daten vom Formular gelöscht und ein PDF-Zertifikat erzeugt.
Wenn die Daten (automatisch) im Formular eingegeben werden, werden bereits die entsprechenden fehlerhaften Zeilen in die Archiv Datei kopiert.
Diese muss nur noch gespeichert und wieder geschlossen werden. Hier ist aber nun mein Problem, denn mit meinem Code funktioniert es nicht :(
Mein Gedanke war es, dass beim verändern von Spalte M (letzter Eintrag) wird die Datei gespeichert und geschlossen.
Mein Code im Archiv sieht so aus:
Sub SaveAndClose()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Save
wb.Close SaveChanges:=False
End Sub
Private Sub Aufpassen
Dim AffectedRange As Range
Set AffectedRange = Intersect(Target, Me.Columns("M"))
If Not AffectedRange Is Nothing Then
SafeAndClose
End If
End Sub
Oder soll im Makro aus dem Formular etwas geändert werden?
ich komme mal wieder nicht weiter und benötige eure Unterstützung:
Derzeit haben wir ein Formular fürs Testen von unseren Geräten.
Die ganzen Daten werden, sofern sich ein Fehler ergibt, in eine Archiv Datei gezogen.
Nach Freigabe des Formulars werden dann die Daten vom Formular gelöscht und ein PDF-Zertifikat erzeugt.
Wenn die Daten (automatisch) im Formular eingegeben werden, werden bereits die entsprechenden fehlerhaften Zeilen in die Archiv Datei kopiert.
Diese muss nur noch gespeichert und wieder geschlossen werden. Hier ist aber nun mein Problem, denn mit meinem Code funktioniert es nicht :(
Mein Gedanke war es, dass beim verändern von Spalte M (letzter Eintrag) wird die Datei gespeichert und geschlossen.
Mein Code im Archiv sieht so aus:
Sub SaveAndClose()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Save
wb.Close SaveChanges:=False
End Sub
Private Sub Aufpassen
Dim AffectedRange As Range
Set AffectedRange = Intersect(Target, Me.Columns("M"))
If Not AffectedRange Is Nothing Then
SafeAndClose
End If
End Sub
Oder soll im Makro aus dem Formular etwas geändert werden?