AW: VBA Code importieren
05.06.2009 13:02:10
Lars
Hallo,
bin da schon sehr begeistert von, nur passiert momentan auch aufgrund meines mangelden Kenntnis folgendens, er macht bei Ausführen des Code ein neue Arbeitsmappe auf (habe deinen Code deswegen noch mal rausgenommen) .... poste mal meinen ganzen Code (Stand jetzt) rein
Private Sub Werte_übertragen_Click()
Sheets("Personalplanung 2010").Visible = True
Sheets(Array("Passwörter", "Planungstool", "Listen 1", "Personalplanung 2010")).Select
Sheets("Listen 1").Activate
Sheets(Array("Passwörter", "Planungstool", "Listen 1", "Personalplanung 2010")).Copy
Sheets("Planungstool").Select
ActiveSheet.Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.BreakLink Name:= _
"O:\67\Planungsdetails\Planung 2010\Datenhaushalt 2009.xls", Type:= _
xlExcelLinks
ActiveSheet.Range("M5:M6").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("M2").Select
Application.CutCopyMode = False
ActiveSheet.Shapes("ComboBox1").Select
Selection.Delete
Sheets("Personalplanung 2010").Visible = xlVeryHidden
Sheets(Array("Passwörter", "Listen 1")).Select
Sheets("Passwörter").Activate
ActiveWindow.SelectedSheets.Delete
ActiveSheet.Range("H:L,A:F").Select
ActiveSheet.Range("F1").Activate
Selection.EntireColumn.Hidden = True
ActiveSheet.Range("G27:G30").Select
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Range("M4").Select
ActiveSheet.Shapes("Werte_übertragen").Select
Selection.Delete
ActiveSheet.Protect Password:="XXX"
Application.Dialogs(xlDialogSaveAs).Show (Range("M6") & ".xls")
Gibt es einen Möglichkeit die zwei Arbeitsmappencodes dort einzubinden:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("--> Personalplanung wird ausgeblendet
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
MsgBox ("--> Personalplanung wird ausgeblendet
Das wäre super genial--- bin leider noch in meinen Anfängen da ;-)
danke für die Hilfe
Lars