spalte löschen wenn mappe schließt?

Bild

Betrifft: spalte löschen wenn mappe schließt?
von: max
Geschrieben am: 13.04.2005 22:55:16
guten abend,
ich möchte gerne in meinem macro integrieren, dass wenn ich die Arbeitsmappe schliesse, sich eine bestimmte spalte (T)löscht, es darf aber erste gelöscht werden wenn ich die mappe schliesse
kann mir jemand einen tip geben wie ich das mache?
mfG max

Bild

Betrifft: AW: spalte löschen wenn mappe schließt?
von: paula
Geschrieben am: 14.04.2005 04:21:18
hi Max
Wähle eine der 2 hier aufgezählten Varianten.
Code in "DieseArbeitsmappe" eingeben (Doppelklick darauf).
Variante 1: in allen Tabellen die Spalte löschen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets  
    wks.Columns(20).Delete Shift:=xlToLeft
Next wks
ThisWorkbook.Save
End Sub


Variante 2: (in einer bestimmten Tabelle, beispw. Tabelle1 die Spalte löschen)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Columns(20).Delete Shift:=xlToLeft
ThisWorkbook.Save
End Sub

Gruss paula
Bild

Betrifft: AW: spalte löschen wenn mappe schließt?
von: max
Geschrieben am: 14.04.2005 19:15:24
hallo,
ich habe mich für die 2.variante entschieden und es war auch erfolgreich, nur habe ich feststellen müssen das wirklich de gesammte spalte gelöscht wird, so habe ich es ja auch erfragt.
Es war von mir aber falsch gedacht, denn bei mermaligem anwenden stellte ich fest das ich aber dadurch einen ungewollten Datenverlust hatte.
Ich meine es wäre richtiger das evtl. nur der Inhalt der Spalte statt der gesamten Spalte
gelöscht wird.
Könnte sich bitte noch einmal jemand meinem Problem annehmen
herzlichen Dank im vorraus
mfg
max
Bild

Betrifft: AW: spalte löschen wenn mappe schließt?
von: Holger
Geschrieben am: 15.04.2005 00:09:01

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Columns(20).ClearContents
ThisWorkbook.Save
End Sub

mfg Holger
Bild

Betrifft: AW: spalte löschen wenn mappe schließt?
von: paula
Geschrieben am: 15.04.2005 00:56:37
hi max,
komme erst jetzt dazu dir zu antworten

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i
For i = 1 To Cells(Rows.Count, 20).End(xlUp).Row
    Cells(i, 20).Value = ""
Next i
ThisWorkbook.Save
End Sub

Gruss Paula
Bild

Betrifft: AW: spalte löschen wenn mappe schließt?
von: PeterW
Geschrieben am: 15.04.2005 01:19:16
Hallo Paula,
kleiner Tipp am Rande: um die Inhalte einer Spalte zu löschen braucht es keine Schleife. Das geht ziemlich direkt mit
Columns(20).ClearContents
Gruß
Peter
Bild

Betrifft: danke euch allen es klappt 100%ig oT
von: max
Geschrieben am: 15.04.2005 16:55:41

 Bild

Beiträge aus den Excel-Beispielen zum Thema "spalte löschen wenn mappe schließt?"