Listobject zuweisen - Error 9 | HERBERS Excel Forum

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' -> prüft, ob protokollierte Änderungen vorliegen und sichert diese ' -> prüft, ob die Arbeitsmappe im schreibgeschützten Modus geöffnet ist ' -> Speicherung der Arbeitsmappe nur, wenn kein schreibgeschützter Modus vorliegt Dim dateiname As String Dim wkb_historie As String 'Pfad zu Mappe "Adr_Historie" Dim lo_Protokoll As ListObject Dim lo_Historie As ListObject wkb_historie = "S:\Adr_Historie.xlsm" Set lo_Protokoll = Sheets("Protokoll").ListObjects("Protokoll") SaveAsUI = False 'suche neue Protokolleinträge With lo_Protokoll If .ShowAutoFilter = False Then .ShowAutoFilter = True 'Nach Kriterium Zeit (Spalte A) filtern .Range.AutoFilter field:=1, Criteria1:=">" & startzeit 'kopieren von Protokolldaten nur wenn der Filter ein Ergebnis beinhaltet If Not .DataBodyRange Is Nothing Then 'Mappe Adr_Historie öffnen Application.ScreenUpdating = False Workbooks.Open Filename:=wkb_historie Set lo_Historie = Workbooks("Adr_Historie.xlsm").Sheets("Historie").ListObjects(" _ Historie") 'Mappe "Adressen.xlsm" wieder aktivieren ThisWorkbook.Activate 'kopieren der gefilterten Protokolldaten in Mappe "Adr_Historie" an das Tabellenende anfü _ gen .DataBodyRange.Copy Destination:=lo_Historie.ListRows.Add.Range Workbooks("Adr_Historie.xlsm").Save Workbooks("Adr_Historie.xlsm").Close 'gesetzten Filter löschen .Range.AutoFilter field:=1 'Protokolldaten löschen .DataBodyRange.Delete startzeit = Now 'Startzeit zurücksetzen auf aktuelles Speicherdatum Application.ScreenUpdating = True Else 'keine Speicherung, gesetzten Filter löschen .Range.AutoFilter field:=1 End If End With ' Speicherung der Arbeitsmappe nur, wenn kein schreibgeschützter Modus vorliegt ' Die "cancel"-Voreinstellung ist "false" -> Speicherung findet am Ende dieser sub statt ' Wird cancel auf "true" gesetzt erfolgt keine Speicherung 'Fall 1a: die Mappe ist als schreibgeschützte Kopie geöffnet If ActiveWorkbook.ReadOnly = True Then Cancel = True 'Speicherung unterdrücken Else 'Fall 1b: die Mappe ist im Original geöffnet und wird gespeichert 'keine Aktion notwendig, cancel ist standardmäßig = false gesetzt -> Speicherung erfolgt _ automatisch End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich bin jetzt eine Erkenntnis weiter.... aber habe immer noch ein Fragezeichen auf der Stirn.
Zur Erkenntnis:
ich habe 2 subs´s laufen
- workbook_beforeclose
- workbook_beforesave
Der Fehler kommt nicht wenn ich die Mappe speichere - respektive: wenn direkt workbook_beforesave abgearbeitet wird.
Schließe ich aber meine Mappe ohne vorher zu speichern, aktiviert dies erst workbook_beforeclose und in dieser sub dann durch die darin enthaltene Anweisung activeworkbook.save die zweite sub workbook_beforesave
Und schwupps - hab ich meinen Fehler.
Nachfolgend nochmal beide subs. Aber wo ist der Fehler?

Private Sub Workbook_BeforeClose(CClose As Boolean)
'vor dem Schließen prüfen auf erforderliche Speicherung (nur wenn die Datei nicht als  _
schreibgeschützt geöffnet ist)
'vor dem Schließen prüfen, ob Änderungsdatei vorhanden sind und diese vor dem Speichern und  _
Schließen verarbeiten
'nur wenn Datei nicht als schreibgeschützt geöffnet ist
'die "cancel"-Voreinstellung ist "false" -> Die Arbeitsmappe wird ohne Speicherung geschlossen
Dim dateiname As String
'Fall 1: Änderungen in der Mappe sind noch nicht gesichert
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save   'dies aktiviert die "workbook_beforeSave" - Routine
Else
'Fall 2: keine Änderungen vorhanden, kein Speichern erforderlich
CClose = False
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, CSave As Boolean)
' -> prüft, ob protokollierte Änderungen vorliegen und sichert diese
' -> prüft, ob die Arbeitsmappe im schreibgeschützten Modus geöffnet ist
' -> Speicherung der Arbeitsmappe nur, wenn kein schreibgeschützter Modus vorliegt
' Die "cancel"-Voreinstellung ist "false" -> Speicherung findet am Ende dieser sub statt
' Wird cancel auf "true" gesetzt erfolgt keine Speicherung
' "saveasUI"-Voreinstellung ist ?
' saveasUI = true -> die saveAS - Dialogbox wird angezeigt
Dim dateiname As String
Dim wkb_historie As String    'Pfad zu Mappe "Adr_Historie"
Dim lo_Protokoll As ListObject
Dim lo_Historie As ListObject
wkb_historie = "S:\Adr_Historie.xlsm" 'der Pfad sollte zu einem späteren Zeitpunkt besser aus  _
einem Dateiverzeichnis geholt werden
Set lo_Protokoll = Sheets("Protokoll").ListObjects("Protokoll")
SaveAsUI = False
'suche neue Protokolleinträge
With lo_Protokoll
If .ShowAutoFilter = False Then .ShowAutoFilter = True
'Nach Kriterium Zeit (Spalte A) filtern
.Range.AutoFilter field:=1, Criteria1:=">" & startzeit
'kopieren von Protokolldaten nur wenn der Filter ein Ergebnis beinhaltet
If Not .DataBodyRange Is Nothing Then
'Mappe Adr_Historie öffnen
Application.ScreenUpdating = False
' Workbooks.Open (wkb_historie)
Workbooks.Open Filename:="S:\Adr_Historie.xlsm"
' Workbooks.Open Filename:=wkb_historie
Set lo_Historie = ActiveWorkbook.Sheets("Historie").ListObjects("Historie")
'Mappe "Adressen.xlsm" wieder aktivieren
ThisWorkbook.Activate
'kopieren der gefilterten Protokolldaten in Mappe "Adr_Historie" an das Tabellenende anfü _
gen
.DataBodyRange.Copy Destination:=lo_Historie.ListRows.Add.Range
Workbooks("Adr_Historie.xlsm").Save
Workbooks("Adr_Historie.xlsm").Close
'gesetzten Filter löschen
.Range.AutoFilter field:=1
'Protokolldaten löschen
.DataBodyRange.Delete
startzeit = Now    'Startzeit zurücksetzen auf aktuelles Speicherdatum
Application.ScreenUpdating = True
Else
'keine Speicherung, gesetzten Filter löschen
.Range.AutoFilter field:=1
End If
End With
' Speicherung der Arbeitsmappe nur, wenn kein schreibgeschützter Modus vorliegt
' Die "cancel"-Voreinstellung ist "false" -> Speicherung findet am Ende dieser sub statt
' Wird cancel auf "true" gesetzt erfolgt keine Speicherung
'Fall 1a: die Mappe ist als schreibgeschützte Kopie geöffnet
If ActiveWorkbook.ReadOnly = True Then
CSave = True      'Speicherung unterdrücken
Else
'Fall 1b: die Mappe ist im Original geöffnet und wird gespeichert
'keine Aktion notwendig, cancel ist standardmäßig = false gesetzt -> Speicherung erfolgt  _
automatisch
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Listobject zuweisen - Error 9

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread