Private Sub CommandButton1_Click()
Workbooks("Westfalia Management Tool.xls").Activate
End Sub
Private Sub CommandButton11_Click()
Dim appXL As Excel.Application
Dim wkb As Workbook
Set appXL = New Excel.Application
Set wkb = appXL.Workbooks.Add(1)
appXL.Visible = True
End Sub
Sub Frage()
Dim Q
Q = MsgBox("Möchten Sie ein neues Archiv anlegen",vbQuestion+vbYesNo,"Frage")
If Q = vbYes Then
workbooks.add
Else
workbooks("Archivname").activate
End if
End Sub
Private Sub CommandButton11_Click()
Dim Q
Q = MsgBox("Möchten Sie ein neues Archiv anlegen", vbQuestion + vbYesNo, "Frage")
If Q = vbYes Then
Workbooks.Add
Else
Workbooks("book").Activate
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen