Ich möchte, dass beim Öffnen einer Datei (und zwar nur bei Öffnen) ein best. Zellinhalt gelöscht wird, wie geht denn das?
Daniel
Daniel
im VBA Editor in DieseArbeitsmappe
Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Um beim Öffnen einer Excel-Datei automatisch einen bestimmten Zellinhalt zu löschen, musst Du den VBA-Editor verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne die Excel-Datei, in der Du den Zellinhalt löschen möchtest.
Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Im Projektfenster auf der linken Seite suche Deine Arbeitsmappe. Klicke mit der rechten Maustaste darauf und wähle Einfügen
> Modul
.
Doppelklicke auf DieseArbeitsmappe
, um den Code-Editor zu öffnen.
Füge folgenden Code ein:
Private Sub Workbook_Open()
Sheets("DeinBlattname").Range("A1").ClearContents
End Sub
Ersetze "DeinBlattname"
durch den Namen des Blattes, auf dem Du den Zellinhalt löschen möchtest, und "A1"
durch die entsprechende Zelle.
Speichere die Änderungen und schließe den VBA-Editor.
Schließe die Excel-Datei und öffne sie erneut. Der Inhalt in der angegebenen Zelle sollte nun beim Öffnen gelöscht werden.
Fehler: Der Zellinhalt wird nicht gelöscht.
DieseArbeitsmappe
) eingefügt wurde.Fehler: Sicherheitswarnung beim Öffnen der Datei.
Datei
> Optionen
> Trust Center
> Einstellungen für das Trust Center
und aktiviere die Makros.Falls Du kein VBA verwenden möchtest, kannst Du auch die folgenden Alternativen in Betracht ziehen:
Angenommen, Du möchtest den Inhalt der Zelle B2
auf dem Blatt Daten
löschen. Der VBA-Code würde folgendermaßen aussehen:
Private Sub Workbook_Open()
Sheets("Daten").Range("B2").ClearContents
End Sub
Dieser Code sorgt dafür, dass beim Öffnen der Datei der Inhalt in Zelle B2
gelöscht wird.
Private Sub Workbook_Open()
' Löscht den Inhalt in Zelle A1 beim Öffnen der Datei
Sheets("DeinBlattname").Range("A1").ClearContents
End Sub
1. Kann ich mehrere Zellen gleichzeitig leeren? Ja, Du kannst mehrere Zellen leeren, indem Du den Bereich anpasst. Beispiel:
Private Sub Workbook_Open()
Sheets("DeinBlattname").Range("A1:B2").ClearContents
End Sub
2. Funktioniert dieser Code in Excel 365? Ja, dieser VBA-Code funktioniert in Excel 365 sowie in älteren Versionen wie Excel XP. Achte einfach darauf, dass Makros aktiviert sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen