Workshop 6: VBA-Programmierung mit MS Excel - Dr. Volker ...
Workshop 6: VBA-Programmierung mit MS Excel - Dr. Volker ...
Workshop 6: VBA-Programmierung mit MS Excel - Dr. Volker ...
- Keine Tags gefunden...
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
<strong>Workshop</strong> 6: <strong>VBA</strong>-<strong>Programmierung</strong> <strong>mit</strong> <strong>MS</strong> <strong>Excel</strong>Sub MappeLoeschen()Const conDateiname As String = "IchBinNeuHier"Dim strPfadname As String ' Vollständiger PfadnameDim strExtAs String ' Zusatz zum DateinamenOn Error GoTo Fehler' Dateizusatz in Abhängigkeit von der <strong>Excel</strong>-Version bestimmenIf Val(Application.Version) < 12 ThenstrExt = ".xls" ' <strong>Excel</strong> 2003 und früherElsestrExt = ".xlsx" ' <strong>Excel</strong> 2007End If' Vollständiger PfadnamestrPfadname = Application.DefaultFilePath & "\" & conDateiname & strExtIf Dir(strPfadname) vbNullString ThenKill strPfadname ' Arbeitsmappe ohne Warnung löschenElseMsgBox Prompt:="Eine Arbeitmappen <strong>mit</strong> dem Namen " & vbNewLine & _conDateiname & strExt & vbNewLine & _"konnte nicht gefunden werden!", _Buttons:=vbExclamation, Title:="Arbeismappe loeschen"End IfAusgang:Exit SubFehler:MsgBox Prompt:="Fehler # " & Err.Number & ": " & Err.Description, _Buttons:=vbCritical, Title:="Laufzeitfehler"Resume AusgangEnd SubDie zusammengehörigen Prozeduren MappeAnlegen und MappeEntfernen demonstrierennochmals, wie die Arbeitsmappe LöschMich angelegt und danach wieder gelöschtwerden kann. Der zugehörige Pfad wird dem Standardspeicherort entnommen. Der Zusatzzum Dateinamen wird <strong>mit</strong>tels <strong>Excel</strong>-Version bestimmt.Sub MappeAnlegen()' Arbeismappe 'LöschMich' anlegenConst conDateiname As String = "LöschMich"Dim strPfadname As String ' Vollständiger PfadnameDim strExt As String ' Zusatz zum DateinamenOn Error GoTo FehlerApplication.ScreenUpdating = False ' Bildschirmaktualisierung deaktivieren' Dateizusatz in Abhängigkeit von der <strong>Excel</strong>-Version bestimmenIf Val(Application.Version) < 12 ThenstrExt = ".xls" ' <strong>Excel</strong> 2003 und früherElsestrExt = ".xlsx" ' <strong>Excel</strong> 2007End If' Vollständiger Pfadname = Standardspeicherort + Dateiname + DateizusatzstrPfadname = Application.DefaultFilePath & "\" & conDateiname & strExtIf Dir(strPfadname) = vbNullString ThenWorkbooks.Add' Angelegte Mappe schließen und SpeichernActiveWorkbook.SaveAs Filename:=strPfadnameActiveWorkbook.CloseElseMsgBox Prompt:="Die Arbeimappe '" & strPfadname & "' existiert bereits!", _Buttons:=vbCritical, Title:="Mappe anlegen"End If© 2011, <strong>Dr</strong>. <strong>Volker</strong> Thormählen Seite 10 von 15
Change language