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
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 14698
Url: https://administrator.de/forum/excel-2003-zelle-kann-durch-makro-beschrieben-werden-aber-nicht-abgespeichert-14698.html
Ausgedruckt am: 15.04.2025 um 11:04 Uhr
6 Kommentare
Neuester Kommentar
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
