Anzeige
Archiv - Navigation
1224to1228
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
Inhaltsverzeichnis

Makro funktioniert nicht richtig

Makro funktioniert nicht richtig
Franz
Hallo zusammen,
habe folgendes Makro im Einsatz:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Aktionen vor dem Schliessen der Datei
Dim sMsgTxt As String, vOption, vFileName, sCopyName As String
sMsgTxt = "Was möchten Sie jetzt machen?" & vbLf & vbLf _
& "1 = Datei speichern und schließen" & vbLf & vbLf _
& "2 = Datei speichern und schließen (Kopie für Mitarbeiter wird angelegt anlegen)" & vbLf &  _
vbLf _
& "3 = Änderungen verwerfen und Datei schließen" & vbLf & vbLf _
& "4 = in der Datei weiter arbeiten"
Input_box2:
vOption = InputBox(Prompt:=sMsgTxt, Title:="Datei Schliessen", Default:=1)
Select Case vOption
Case "1"
ThisWorkbook.Save
Case "2"
ThisWorkbook.Save
Sheets(1).Copy
ActiveSheet.Unprotect ("franz")
ActiveSheet.Range("A1:AA500").Locked = True
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Set Bereich = ActiveSheet.Range("F3:Y9")
For Each zelle In Bereich
If zelle.Value = "K" Or zelle.Value = "KB" Then zelle.Value = ""
Next zelle
Range("a1").Select
ActiveSheet.Protect ("franz"), DrawingObjects:=True, Contents:=True, Scenarios:=True,  _
AllowFiltering:=True
ActiveSheet.EnableSelection = xllockedcells
sCopyName = "C:\Dokumente und Einstellungen\franz\Eigene Dateien\" _
& "Kopie von Testdatei 2011.xls"
ActiveWorkbook.SaveCopyAs Filename:=sCopyName
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Saved = True
Case "3"
ThisWorkbook.Saved = True 'verhindert das Sicherheitsmeldung von Excel angezeigt wird
Case "4", "" '  "" = Abbrechen wurde gewählt
Cancel = True
Case Else
GoTo Input_box2
End Select
' End If
End Sub
Der fettmarkierte Teil funktioniert nicht - jedenfalls wird kein Buchstabe gelöscht. Lasse ich das Makro über Sub laufen, funktioniert es.
Woran kann es liegen?
Franz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro funktioniert nicht richtig
19.08.2011 20:16:55
Gerd
Hallo Franz,
in welchem Blatt möchtest Du ändern?
In Sheets(1) der Datei mit dem Code oder im aktiven Blatt (der neuen Datei)?
Gruß Gerd
AW: Makro funktioniert nicht richtig
19.08.2011 20:20:06
Franz
Hallo Gerd,
im kopierten Blatt der neuen Datei.
Franz
AW: Makro funktioniert nicht richtig
19.08.2011 20:40:04
Gerd
Hallo Franz,
ungetestet:
Dim Bereich As Range, rngZelle As Range 'oben einfügen
Case "2"
ThisWorkbook.Save
Sheets(1).Unprotect ("franz")
Sheets(1).Copy
ThisWorkbook.Sheets(1).Protect ("franz")
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Set Bereich = ActiveSheet.Range("F3:Y9")
For Each rngZelle In Bereich
If UCase$(zelle.Value) = "K" Or UCase$(zelle.Value) = "KB" Then rngZelle.Value = ""
Next zelle
ActiveSheet.Range("A1:AA500").Locked = True
ActiveSheet.Protect '................................
'............................................
Application.DisplayAlerts= False
activeworkbook.saveas "C:\Dokumente und Einstellungen\franz\Eigene Dateien\" _
& "Kopie von Testdatei 2011.xls"
Application.DiesplayAlerts= True
ActiveWorkbook.Close
Gruß Gerd
Anzeige
AW: Makro funktioniert nicht richtig
19.08.2011 22:10:06
Franz
Hallo Gerd,
der fettmarkierte Code hat weder im alten BLatt noch im neuen BLatt irgendwas gemacht. Irgendwie ist der ins Leere gelaufen.
Du stellst den Mittelteil nun um. Für mich wird der Code so schwer nachvollziehbar. Was macht Dein Code denn genau anders?
Franz
Problem gelöst, dank Franz (fcs)
19.08.2011 23:11:33
Franz

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige