Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt beim Schließen Löschen

Inhalt beim Schließen Löschen
26.05.2016 21:27:32
Falo
Hallo,
ich habe eine Tabelle und ich möchte wenn ich die Tabelle schließe, sollen die Daten von "A2" bis "O" bis zum Letzten Eintrag gelöscht werden. es sollte eine Abfrage kommen
hat einer eine Idee?
Gruß
Olaf

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt beim Schließen Löschen
27.05.2016 07:32:57
Hajo_Zi
Hallo Olaf,
Da Werbung wichtiger ist als die Anzeige der Version und des Levels des Fragestellers.
Kann ich auf diese Angaben nicht mehr eingehen.
Falls diese Angaben nicht im Beitrag stehen.
Ich möchte mal hoffen das Werbung nicht so wichtig wird, das auch der Beitrag irgendwann, durch Werbung abgedeckt wird.
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A2").ClearContents
Columns(15).clearvontents
End Sub


Anzeige
AW: Inhalt beim Schließen Löschen
27.05.2016 11:13:01
Werner
Hallo Falo,
Code gehört in diese Arbeitsmappe.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mldg$
Dim loLetzte As Long
Mldg = MsgBox("Soll der Bereich gelöscht werden?", vbYesNo + vbQuestion, "Löschbestätigung")
If Mldg = vbYes Then
With Sheets("Tabelle1")  'Tabelle anpassen
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A ggf. anpassen
.Range(.Cells(2, 1), .Cells(loLetzte, 15)).ClearContents
End With
ElseIf Mldg = vbNo Then Exit Sub
End If
End Sub
Gruß Werner

AW: Inhalt beim Schließen Löschen
27.05.2016 13:10:00
Nepumuk
Hallo Werner,
der Rückgabewert einer MsgBox ist ein Wert vom Typ Long, genauer gesagt ein enumerierter Wert vom Type VbMsgBoxResult, du benutzt einen String.
Ich würde das auch so gestalten:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Soll der Bereich gelöscht werden?", vbYesNo Or vbQuestion, "Löschbestätigung") = vbYes Then
        With Worksheets("Tabelle1")
            .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 15)).ClearContents
        End With
    End If
End Sub

Gruß
Nepumuk

Anzeige
Da fehlt noch ein Bezugspunkt
27.05.2016 13:14:29
Nepumuk
Nämlich vor Rows.Count,
Also:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Soll der Bereich gelöscht werden?", vbYesNo Or vbQuestion, "Löschbestätigung") = vbYes Then
        With Worksheets("Tabelle1")
            .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 15)).ClearContents
        End With
    End If
End Sub

Wenn nämlich das aktive Blatt ein Diagramm ist, läuft die Eigenschaft Rows.Count in einen Fehler.
Gruß
Nepumuk

Anzeige
AW: Da fehlt noch ein Bezugspunkt
27.05.2016 13:44:19
Werner
Hallo Nepumuk,
danke für die Hinweise, werden gespeichert.
Bei einem kurzen Test hat meine Version aber funktioniert - bin natürlich trotzdem für deine Hinweise dankbar.
Gruß Werner

AW: Da fehlt noch ein Bezugspunkt
27.05.2016 22:47:53
Falo
Hallo,
Klappt Super, Danke Werner und Nepumuk.
Gruß
Olaf

AW: Gerne u. Danke für die Rückmeldung. o.w.T.
28.05.2016 06:03:52
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge