6
Excel 2003: Zelle kann durch Makro beschrieben werden, aber nicht abgespeichert
Hallo zusammen
Ich habe eine Zelle die auf Wunsch mit einem Wert von einem Makro beschrieben wir.
Jetzt möchte ich, dass wenn ich aus dem Dokument gehe oder das Dokument speichere nie ein Wert eingetragen ist.
Wie kann ich das machen?
gruss
Ich habe eine Zelle die auf Wunsch mit einem Wert von einem Makro beschrieben wir.
Jetzt möchte ich, dass wenn ich aus dem Dokument gehe oder das Dokument speichere nie ein Wert eingetragen ist.
Wie kann ich das machen?
gruss
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 14698
Url: https://administrator.de/contentid/14698
Printed on: April 18, 2024 at 12:04 o'clock
6 Comments
Latest comment
Servus!
Also theortisch könntest du das folgendermasen lösen:
Um das Dokument abzuspeichern musst du dir erst einmal einen "Speicher Button" selbst einbauen dem du ein VB Script
hinterlegst wie beispielsweise dieses:
Private Sub cmdSpeichern_Click()
Range("b2") = " " ->damit ist z.B. das Feld b2 leer!
Pfad = "\\Ordnder\Unterordner\" ->mit folgenden Zeilen gibst du an wo und wie du speichern willst mit Prüfung ob schon gespeichert wurde!
With Application.FileSearch
.LookIn = Pfad
End With
filename = Pfad & "\" Beispiel.xls
If ActiveWorkbook.Saved Then
MsgBox "Bereits gespeichert"
Else
ActiveWorkbook.SaveAs (filename)
End If
Viel Spass beim tüffteln!
Also theortisch könntest du das folgendermasen lösen:
Um das Dokument abzuspeichern musst du dir erst einmal einen "Speicher Button" selbst einbauen dem du ein VB Script
hinterlegst wie beispielsweise dieses:
Private Sub cmdSpeichern_Click()
Range("b2") = " " ->damit ist z.B. das Feld b2 leer!
Pfad = "\\Ordnder\Unterordner\" ->mit folgenden Zeilen gibst du an wo und wie du speichern willst mit Prüfung ob schon gespeichert wurde!
With Application.FileSearch
.LookIn = Pfad
End With
filename = Pfad & "\" Beispiel.xls
If ActiveWorkbook.Saved Then
MsgBox "Bereits gespeichert"
Else
ActiveWorkbook.SaveAs (filename)
End If
Viel Spass beim tüffteln!
Guten Morgen,
du bastelst dir das Makro zum Löschen, z.B.
Range("B3").Select
Selection.ClearContents
das nennst du dann auto_close
und schon wird das Makro beim schließen ausgeführt
Psycho
du bastelst dir das Makro zum Löschen, z.B.
Range("B3").Select
Selection.ClearContents
das nennst du dann auto_close
und schon wird das Makro beim schließen ausgeführt
Psycho
Wie würde das Makro von:
Range("A83: F93").Select
Selection.ClearContents
auto_close
Komplett aussehen?
Danke und Gruss
Range("A83: F93").Select
Selection.ClearContents
auto_close
Komplett aussehen?
Danke und Gruss
Sub auto_close
Range("A83: F93").Select
Selection.ClearContents
End Sub
Range("A83: F93").Select
Selection.ClearContents
End Sub
Danke schonmal
Jetzt müsste ich ja dem Sub nur noch sagen, dass wenn jemand das Dokument speichern oder schliessen will dieses Sub ausgeführt wird.
Wie kann ich das machen?
Gruss
Jetzt müsste ich ja dem Sub nur noch sagen, dass wenn jemand das Dokument speichern oder schliessen will dieses Sub ausgeführt wird.
Wie kann ich das machen?
Gruss
Hi,
da musst du dich nicht drum kümmern,
Excel weiß anhand des Namens "auto_close", daß das Makro beim Beenden
ausgefürt werden soll.
Psycho
da musst du dich nicht drum kümmern,
Excel weiß anhand des Namens "auto_close", daß das Makro beim Beenden
ausgefürt werden soll.
Psycho
