<\/p>\n
Autor: Christoph Spielmann, Düsseldorf<\/b><\/p>\n
Auf den folgenden Seiten versorgt Sie unser Autor Christoph Spielmann mit einigen Tipps und Tricks rund um VBA, die Sie sofort in Betrieb nehmen können. Hier finden Sie beispielsweise eine Möglichkeit, die Bildschirmauflösung zu ermitteln. Das kann u. a. für die Auslegung der Größe von For-mularen sehr interessant sein. Sie lernen, wie Sie Dateien entgültig löschen (ohne doppelten Boden, direkt in den Reißwolf) und wie Sie dem Anwender von Ihrer Applikation aus eine Möglichkeit zur Verfügung stellen, mal eben eine Diskette zu formatieren. Falls Sie einmal ein bestimmtes Systemverzeichnis auf Ihrer Festplatte vermissen – keine Sorge, hier finden Sie die richtige Funktion, um es wiederzufinden. Die nachfolgend beschriebenen Funktionen packen Sie am besten gut an eine sichere Stelle – Sie werden sie immer wieder benötigen.<\/b><\/p>\n
Einige Office-Anwendungen stellen Ihnen die aktuelle Bildschirmgröße direkt zur Verfügung. So finden Sie beispielsweise in den Eigenschaften HorizontalResolution und VerticalResolution des System-Objekts der Word-Bibliothek die Breite und die Höhe des Bildschirms in Pixel:<\/p>\n
Breite = System.HorizontalResolution\r\nHöhe = System.VerticalResolution\r\nPrivate Declare Function GetDC Lib \"user32\" _\r\n (ByVal hwnd As Long) As Long\r\nPrivate Declare Function GetDeviceCaps Lib \"gdi32\" _\r\n (ByVal hdc As Long, ByVal nIndex As Long) As Long\r\nPrivate Declare Function ReleaseDC Lib \"user32\" _\r\n (ByVal hwnd As Long, ByVal hdc As Long) As Long\r\nPrivate Const HORZRES = 8\r\nPrivate Const VERTRES = 10\r\nPublic Property Get ScreenHeightPixels() As Long\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n ScreenHeightPixels = GetDeviceCaps(nDC, VERTRES)\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get ScreenWidthPixels() As Long\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n ScreenWidthPixels = GetDeviceCaps(nDC, HORZRES)\r\n ReleaseDC 0, nDC\r\nEnd Property<\/pre>\nDoch in der Access-Bibliothek fehlt diese Möglichkeit. Und in keiner der Bibliotheken der Office-Anwendungen finden Sie eine direkte oder indirekte Möglichkeit, die aktuelle Bildschirmauflösung in Erfahrung zu bringen (die Bildschirmauflösung hängt davon ab, ob der Anwender in den Bildschirmeinstellungen große oder kleine Bildschirmschriften oder eine beliebige Schriftgröße eingestellt hat).<\/p>\n
Die gesuchten Werte liefert dagegen immer aktuell die API-Funktion GetDeviceCaps. Sie wird für den Gerätekontext (DC) eines bestimmten Geräts aufgerufen, etwa eines Druckers oder eben des Bildschirms.<\/p>\n
Private Const LOGPIXELSX = 88\r\nPrivate Const LOGPIXELSY = 90\r\nPublic Property Get dpiX() As Long\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n dpiX = GetDeviceCaps(nDC, LOGPIXELSX)\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get dpiY() As Long\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n dpiY = GetDeviceCaps(nDC, LOGPIXELSY)\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get TwipsPerPixelX() As Single\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n TwipsPerPixelX = 1440 \/ _ GetDeviceCaps(nDC, LOGPIXELSX)\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get TwipsPerPixelY() As Single\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n TwipsPerPixelY = 1440 \/ _ GetDeviceCaps(nDC, LOGPIXELSY)\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get ScreenHeightTWIPS() As Single\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n ScreenHeightTWIPS = GetDeviceCaps(nDC, VERTRES) * _\r\n (1440 \/ GetDeviceCaps(nDC, LOGPIXELSY))\r\n ReleaseDC 0, nDC\r\nEnd Property\r\nPublic Property Get ScreenWidthTWIPS() As Single\r\n Dim nDC As Long\r\n nDC = GetDC(0)\r\n ScreenWidthTWIPS = GetDeviceCaps(nDC, HORZRES) * _\r\n (1440 \/ GetDeviceCaps(nDC, LOGPIXELSX))\r\n ReleaseDC 0, nDC\r\nEnd Property<\/pre>\nDen Gerätekontext des Bildschirms erhalten Sie über die API-Funktion GetDC, der Sie als Fenster-Handle für den ganzen Bildschirm den Wert 0 übergeben.<\/p>\n
Nach der Verwendung des Gerätekontextes müssen Sie daran denken, ihn wieder mit der API-Funktion ReleaseDC freizugeben.<\/p>\n
Neben dem Gerätekontext übergeben Sie der Funktion GetDeviceCaps den jeweiligen Index, zu dem Sie den gewünschten Wert erhalten wollen. über die beiden Hilfs-funktionen ScreenHeightPixels und ScreenWidthPixels erhalten Sie auf diese Weise z. B. die Bildschirmhöhe und die Bildschirmbreite. <\/p>\n
In Quellcode 1 finden Sie zunächst die erforderlichen Deklarationen der benötigten API-Funktionen sowie der dazugehörenden Konstanten.<\/p>\n
Die fehlende Information über die Bildschirmauflösung erhalten Sie über die Funktion GetDeviceCaps (Beispiele s. Quellcode 2). Sie liefert Ihnen direkt die vertikale und die horizontale Bildschirmauflösung in dpi (Dots per Inch).<\/p>\n
Scheinbar sind die vertikale und die horizontale Auflösung immer gleich. Doch sollten Sie sich nicht darauf verlassen – es kann durchaus das eine oder andere Bildschirmgerät mit unterschiedlicher horizontaler und vertikaler Auflösung geben.<\/p>\n
Aus der Bildschirmauflösung in dpi können Sie zusätzlich noch den vertikalen und den horizontalen Umrechnungsfaktor für die Maßeinheit TWIPS ermitteln.<\/p>\n
Private Type SHFILEOPSTRUCT\r\n hWnd As Long\r\n wFunc As Long\r\n pFrom As String\r\n pTo As String\r\n fFlags As Integer\r\n fAnyOperationsAborted As Long\r\n hNameMappings As Long\r\n lpszProgressTitle As String\r\nEnd Type\r\nQuellcode 5\r\nPrivate Declare Function SHFileOperation Lib _\r\n \"Shell32.dll\" Alias \"SHFileOperationA\" (lpFileOp _\r\n As SHFILEOPSTRUCT) As Long\r\nQuellcode 6\r\nPublic Function Kill(Files As Variant, Optional ByVal _ AllowUndo As Boolean, Optional ByVal ShowProgress _ As Boolean, Optional ByVal Confirmation As _ Boolean, Optional ByVal Simple As Boolean, _\r\n Optional ByVal SysErrors As Boolean, Optional _ ByVal hWnd As Long, Optional UserAborts As Variant _\r\n ) As Boolean\r\n Dim l As Long\r\n Dim nFileOperations As SHFILEOPSTRUCT\r\n Const FO_DELETE = &H3\r\n Const FOF_ALLOWUNDO = &H40\r\n Const FOF_SILENT = &H4\r\n Const FOF_NOCONFIRMATION = &H10\r\n Const FOF_SIMPLEPROGRESS = &H100\r\n Const FOF_NOERRORUI = &H400<\/pre>\nDiese ist ein bei vielen externen Steuerelementen (wie etwa den Microsoft Common Controls) verwendeter Standard für bildschirmbezogene Abmessungen. Diese Maßeinheit errechnet sich als 1440stel der horizontalen bzw. vertikalen Bildschirmauflösung, wie sie von GetDeviceCaps geliefert wird (s. Quellcode 3).<\/p>\n
Die Bildschirmgröße in TWIPS erhalten Sie dementsprechend über die Funktionen ScreenWidthTWIPS und ScreenHeightTWIPS (s. Quellcode 4)<\/p>\n
Eine Datei zu löschen ist in VBA ein Kinderspiel – zum Beispiel mit folgender Anweisung:<\/p>\n
Kill \"c:\\autoexec.bat\"<\/pre>\n– und schon ist die Datei weg. Und zwar unrettbar verloren.<\/p>\n
Vor allem bei vom Anwender ausgelösten Dateilöschungen sollten Sie ihm die Windows-übliche Möglichkeit einräumen, gelöschte Dateien und Ordner aus dem Papierkorb wieder herstellen zu können.<\/p>\n
Verwenden Sie in solchen Fällen die API-Funktion SHFileOperation (s. Quellcode 6). Bei dieser können Sie wählen, ob die Datei(en) im Papierkorb landen, oder ob sie wie bei der VBA-Kill-Anweisung gleich vollständig gelöscht werden.<\/p>\n
Außerdem können Sie die ge-wohnte Fortschrittsanzeige bieten und einige zusätzliche Einstellungen festlegen (SHFILEOPSTRUCT, Aussehen der Definition s. Quellcode 5).<\/p>\n
Ebenso können Sie mit ihr komplette Ordner auf einen Schlag löschen – ein komplizierter, rekursiver Mechanismus mit den VBA-Anweisungen Kill und RmDir entfällt, da mit diesem Mechanismus alle untergeordneten Ordner geleert und einzeln gelöscht werden müssten.<\/p>\n
With nFileOperations\r\n If IsArray(Files) Then\r\n For l = LBound(Files) To UBound(Files)\r\n .pFrom = .pFrom & Files(l) & vbNullChar\r\n Next ''l\r\n .pFrom = .pFrom & vbNullChar\r\n ElseIf VarType(Files) = vbObject Then\r\n If TypeOf Files Is Collection Then\r\n For l = 1 To Files.Count\r\n .pFrom = .pFrom & Files(l) & vbNullChar\r\n Next ''l\r\n .pFrom = .pFrom & vbNullChar\r\n End If\r\n ElseIf VarType(Files) = vbString Then\r\n .pFrom = Files\r\n If Right$(.pFrom, 1) <> vbNullChar Then\r\n .pFrom = .pFrom & vbNullChar\r\n End If\r\n If Mid$(.pFrom, Len(.pFrom) - 1, 1) <> _ vbNullChar Then\r\n .pFrom = .pFrom & vbNullChar\r\n End If\r\n End If\r\n If AllowUndo Then \r\n .fFlags = FOF_ALLOWUNDO\r\n End If\r\n If Not ShowProgress Then\r\n .fFlags = .fFlags Or FOF_SILENT\r\n End If\r\n If Not Confirmation Then\r\n .fFlags = .fFlags Or FOF_NOCONFIRMATION\r\n End If\r\n If Simple Then\r\n .fFlags = .fFlags Or FOF_SIMPLEPROGRESS\r\n End If\r\n If Not SysErrors Then\r\n .fFlags = .fFlags Or FOF_NOERRORUI\r\n End If\r\n .wFunc = FO_DELETE\r\n .hWnd = hWnd\r\n Kill = Not CBool(SHFileOperation(nFileOperations))\r\n If Not IsMissing(UserAborts) Then\r\n UserAborts = CBool(.fAnyOperationsAborted)\r\n End If\r\n End With\r\nEnd Function<\/pre>\nDie hier vorgestellte Ersatzfunktion Kill (s. Quellcode 7) verhält sich wie das VBA-Original, wenn Sie ihr wie gewohnt lediglich den gewünschten Dateinamen übergeben.<\/p>\n
Sie können dieser Ersatzfunktion aber auch ein dimensioniertes oder aktuell mit der Array-Funktion zusammengestelltes Array oder eine Collection aus einzelnen Datei- und Ordnerpfaden übergeben. Und Sie können Wildcards (etwa „*.*“ oder „*.bas“) verwenden.<\/p>\n
Die gewünschte Funktionalität legen Sie in den einzelnen optionalen Parametern fest. Sollen die Dateien in den Papierkorb verschoben werden, setzen Sie AllowUndo gleich True. Soll der Windows-übliche Fortschrittsdialog mit der Möglichkeit zum Abbrechen des Vorgangs angezeigt werden, setzen Sie ShowProgress gleich True.<\/p>\n
Die Rückfrage, ob wirklich gelöscht werden soll, legen Sie mit Confirmation gleich True fest. Eine etwas vereinfachte Fortschrittsanzeige, bei der die Anzeige der gerade bearbeiteten Dateinamen unterbleibt, wählen Sie mit Simple gleich True. Wenn Sie im Fall eines Fehlers die Windows-Anzeige dieses Fehlers beibehalten wollen, setzen Sie SysErrors gleich True.<\/p>\n
Unabhängig davon, wie Sie den letztgenannten Parameter setzen, gibt die Funktion Kill den Wert True zurück, wenn ein Fehler aufgetreten ist. Allerdings lässt sich der Fehler nicht näher spezifizieren – Sie müssen auf andere Weise prüfen, was schief gegangen sein könnte, z. B. Datei nicht vorhanden, gesperrt u. ä. <\/p>\n
Hat der Anwender bei den gelegentlichen Rückfragen des Systems (wie etwa Löschen einer Systemdatei o. ä.) beispielsweise einzelne Dateien übersprungen, können Sie diese Information über den Parameter UserAborts erhalten, in der Sie dazu eine Variable übergeben müssen. Allerdings bleibt Ihnen auch hierbei nur übrig, selbst herausfinden, welche Dateien übersprungen worden sind.<\/p>\n
Private Declare Function GetDesktopWindow _ Lib \"user32\" () As Long\r\nPrivate Declare Function SHFormatDrive Lib \"shell32\" _ (ByVal hWnd As Long, ByVal Drive As Long, ByVal _ fmtID As Long, ByVal Options As Long) As Long\r\nPublic Enum fdReturnConstants\r\n fdRetSuccess = 0\r\n fdRetError = -1\r\n fdRetCancelled = -2\r\n fdRetNotFormattable = -3\r\n fdRetInvalidDrive = -4\r\nEnd Enum<\/pre>\nDas VBA-Original der Kill-Anweisung können Sie anstelle dieser erweiterten Kill-Funktion weiterhin jederzeit aufrufen. Dazu setzen Sie einfach den Herkunftsbezeichner (Qualifizierer) davor: „VBA.Kill …“.<\/p>\n
Sie möchten es dem Anwender ermöglichen, in Ihrem Programm eine Diskette frisch zu formatieren Dann sollten Sie sich nicht lange mit der Entwicklung eigener Formatier-Routinen und Formatier-Dialoge aufhalten, sondern dem Anwender den entsprechenden Standard-Dialog anzeigen.<\/p>\n
<\/p>\n
Zum einen ist die dahinter stehende Operation des Betriebssystems als ausgereift und stabil zu betrachten. Zum anderen ist der Standard-Dialog dem Anwender in der Regel vertraut. Außerdem hat er die Möglichkeit, sich zwischen der vollständigen Formatierung und der Schnellformatierung des Datenträgers zu entscheiden, und er kann auch einen Datenträgernamen angeben bzw. einen vorhandenen Namen ändern.<\/p>\n
Diesen Standard-Dialog, der unter den verschiedenen Windows-Versionen unterschiedlich aussieht, aber dennoch im Wesentlichen die gleiche Funktionalität bietet, erreichen Sie über die API-Funktion SHFormatDrive. Die Funktion ist allerdings weder in im Windows-SDK dokumentiert noch sind Deklaration und Konstanten in den C-Header-Dateien enthalten.<\/p>\n
Dennoch sollten Sie die Funktion bedenkenlos und auch zukunftssicher verwenden können, da Microsoft selbst in einem Artikel der Knowledge-Base die dokumentationsüblichen Informationen dazu liefert.<\/p>\n
Die Funktion FormatDriveDlg vereinfacht den Aufruf der API-Funktion und bietet zugleich die Möglichkeit, das gewünschte Laufwerk sowohl über den Laufwerksbuchstaben als auch über die MS-DOS-übliche Nummer (beginnend ab 0, also Laufwerk A: gleich 0) zu spezifizieren.<\/p>\n
Da der besagte Knowledge-Base-Artikel anmahnt, immer ein Fenster als Bezug zu übergeben, sollten Sie das entsprechende Fenster-Handle eines Forms (hWnd-Eigenschaft) verwenden. <\/p>\n
Da im Grunde das Handle des Desktops genauso geeignet ist, können Sie im optionalen Parameter hWnd der Funktion FormatDriveDlg auch 0 übergeben oder ihn ganz weglassen. In der Funktion wird dann über die API-Funktion GetDesktopWindow automatisch das Handle des Desktops ermittelt und verwendet.<\/p>\n
Den Erfolg der Aktion meldet die Funktion in ihrem Rückgabewert. Die möglichen Werte sind hier als enumerierte Konstanten bereitgestellt. Bricht der Anwender selbst den Dialog ab (Schaltfläche „Schließen“), ohne die Formatierung gestartet zu haben, wird fdRetCancelled zurückgegeben. <\/p>\n
Wurde versehentlich die Kennung eines nicht-formatierbaren Laufwerks übergeben (etwa ein CD-ROM-Laufwerk), wird fdRetNotFormattable zurückgegeben. Alle übrigen Fehler auf Betriebssystemebene werden als fdRetError unspezifiziert gemeldet.<\/p>\n
Während für diese Rückgabewerte die API-Funktion SHFormatDrive zuständig ist, wird der Rückgabewert fdRetInvalidDrive von der Funktion FormatDriveDlg selbst generiert, wenn ein „unmöglicher“ Laufwerksbuchstabe oder eine entsprechende Laufwerksnummer übergeben worden ist.<\/p>\n
Public Function FormatDriveDlg(Drive As Variant, _\r\n Optional ByVal hWnd As Long) As fdReturnConstants\r\n Dim nDriveNumber, nWnd As Long\r\n Const SHFMT_ID_DEFAULT = &HFFFF&\r\n Const SHFMT_OPT_FULL = 1\r\n If IsNumeric(Drive) Then\r\n Select Case CLng(Drive)\r\n Case 0 To 25\r\n nDriveNumber = CLng(Drive)\r\n Case Else\r\n FormatDriveDlg = fdRetInvalidDrive\r\n Exit Function\r\n End Select\r\n ElseIf VarType(Drive) = vbString Then\r\n Select Case UCase$(Left$(Drive, 1))\r\n Case \"A\" To \"Z\"\r\n nDriveNumber = _ Asc(UCase$(Left$(Drive, 1))) - 65\r\n Case Else\r\n FormatDriveDlg = fdRetInvalidDrive\r\n Exit Function\r\n End Select\r\n End If\r\n If hWnd = 0 Then\r\n nWnd = GetDesktopWindow()\r\n Else\r\n nWnd = hWnd\r\n End If\r\n FormatDriveDlg = SHFormatDrive(nWnd, nDriveNumber, _\r\n SHFMT_ID_DEFAULT, SHFMT_OPT_FULL)\r\nEnd Function<\/pre>\nFür die meisten Systemordner gibt es zwar Standardnamen und sie befinden sich meistens auch an Standardplätzen im Dateisystem.<\/p>\n
Doch Ihre Programme sollten sich niemals darauf verlassen, dass etwa der Windows-Ordner unter C:\\Windows zu finden ist – das Laufwerk kann ein anderes sein, ebenso kann der Ordnername anders lauten (unter Windows NT\/2000 heißt dieser Ordner beispielsweise WINNT).<\/p>\n
Doch über die API-Funktionen GetWindowsDirectory, GetSystemDirectory und GetTempPath können Sie jederzeit den tatsächlichen Pfad des Windows-, System- und des Temp-Ordners ermitteln.<\/p>\n
Diese API-Funktionen geben jedoch – entgegen der VBA-Funktion – keinen String zurück. Sie erwarten stattdessen als Parameter einen vorbereiteten String, einen so genannten Puffer, in dem Sie das gewünschte Ergebnis ablegen können.<\/p>\n
Private Declare Function GetSystemDirectory Lib _ \"kernel32\" Alias \"GetSystemDirectoryA\" (ByVal _ lpBuffer As String, ByVal nSize As Long) As Long\r\nPrivate Declare Function GetTempPath Lib \"kernel32\" _\r\n Alias \"GetTempPathA\" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long\r\nPrivate Declare Function GetWindowsDirectory Lib _ \"kernel32\" Alias \"GetWindowsDirectoryA\" (ByVal _ lpBuffer As String, ByVal nSize As Long) As Long\r\nPrivate Const kLength = 255&\r\nQuellcode 10\r\nPublic Function GetSysDir(Optional ByVal AddBackslash _ As Boolean) As String\r\n Dim nBuffer As String\r\n Dim nReturn As Long\r\n e(kLength)\r\n nReturn = GetSystemDirectory(nBuffer, kLength)\r\n If nReturn > 0 Then\r\n If AddBackslash Then\r\n GetSysDir = Left(nBuffer, nReturn) & \"\\\"\r\n Else\r\n GetSysDir = Left(nBuffer, nReturn)\r\n End If\r\n End If\r\nEnd Function\r\nPublic Function GetTempDir(Optional ByVal AddBackslash _ As Boolean) As String\r\n Dim nBuffer As String\r\n Dim nReturn As Long\r\n nBuffer = Space(kLength)\r\n nReturn = GetTempPath(kLength, nBuffer)\r\n If nReturn > 0 Then\r\n If AddBackslash Then\r\n GetTempDir = Left(nBuffer, nReturn)\r\n Else\r\n GetTempDir = Left(nBuffer, nReturn - 1)\r\n End If\r\n End If\r\nEnd Function<\/pre>\nDie Länge dieses Strings ist ausreichend zu wählen, damit Windows nicht über das Ende des Strings hinaus ins „Speicher-Outback“ schreibt, was zu schweren Systemabstürzen führen kann. Im Rückgabewert dieser API-Funktionen erhalten Sie die tatsächliche Länge des im Puffer abgelegten Strings.<\/p>\n
Die beiden Funktionen GetWindowsDirectory und GetSystemDirectory gleichen sich von der Syntax her. Im ersten Parameter wird der Puffer-String übergeben, im zweiten dessen Länge. Bei GetTempPath ist die Parameter-Reihenfolge genau umgekehrt – warum das so ist, weiß wohl niemand mehr so genau (Deklaration der Funktionen s. Quellcode 10).<\/p>\n
Ebenfalls unterschiedlich ist der Abschluss des zurückgegebenen Pfades. GetTempPath schließt den im Puffer zurückgegebenen Pfad mit einem Backslash („\\“) ab, GetWindowsDirectory und GetSystemDirectory hingegen tun dies nicht.<\/p>\n
Damit Sie sich die ganze Pufferei samt den Parameter- und Rückgabe-Unterschieden sparen können, verpacken wir die drei API-Funktionen in einem Standard-Modul modWinSysDirs in handliche, VB-gewohnte Funktionen (s. Quellcode 11-13). Ob der von diesen Funktionen zurückgegebene Pfad mit einem Backslash abschließt, legen Sie mit dem optionalen Parameter AddBackslash fest. <\/p>\n
Public Function GetWinDir(Optional ByVal AddBackslash _ As Boolean) As String\r\n Dim nBuffer As String\r\n Dim nReturn As Long\r\n nBuffer = Space(kLength)\r\n nReturn = GetWindowsDirectory(nBuffer, kLength)\r\n If nReturn > 0 Then\r\n If AddBackslash Then\r\n GetWinDir = Left(nBuffer, nReturn) & \"\\\"\r\n Else\r\n GetWinDir = Left(nBuffer, nReturn)\r\n End If\r\n End If\r\nEnd Function\r\nPublic Function GetTempDir2(Optional ByVal _ AddBackslash As Boolean) As String\r\n Dim nTempDir As String\r\n On Error Resume Next\r\n nTempDir = Environ$(\"temp\")\r\n If Len(nTempDir) = 0 Then\r\n nTempDir = Environ$(\"tmp\")\r\n End If\r\n If Len(nTempDir) Then\r\n If AddBackslash Then\r\n GetTempDir2 = nTempDir & \"\\\"\r\n Else\r\n GetTempDir2 = nTempDir\r\n End If\r\n End If\r\nEnd Function<\/pre>\nIst dieser False oder fehlt er, schließt der zurückgegebene Pfad nicht mit einem Backslash ab. Schlägt der Aufruf der jeweiligen API-Funktion fehl, wird einfach ein leerer String zurückgegeben.<\/p>\n
Die drei Funktionen GetSysDir, GetTempDir und GetWinDir machen sich die API-Funktionen zunutze, um die entsprechenden Verzeichnisse zu ermitteln.<\/p>\n
Eine Alternative zur Ermittlung des Temp-Ordners über die API-Funktion soll hier nicht verschwiegen werden. In der Regel ist der Temp-Ordner auch in den Umgebungs-variablen des Systems abgelegt und kann daher über die VB-Funktion Environ$ ausgelesen werden.<\/p>\n
„Alte Hasen“ wissen allerdings, dass man den Temp-Ordner in zwei verschieden lautenden Umgebungsvariablen finden kann – meistens unter TEMP, gelegentlich aber auch unter TMP.<\/p>\n
Das liegt daran, dass sich die Entwicklerwelt nie ganz einig darüber war, unter welcher dieser beiden Umgebungsvariablen der Temp-Ordner ordnungsgemäß anzugeben und zu finden sein sollte.<\/p>\n
Manche Anwendungen verwenden die eine, manche die andere Bezeichnung. Es kann aber auch sein, dass auf einem System gerade die falsche, oder gar keine Angabe festgelegt worden ist.<\/p>\n
Falls Ihnen das Hantieren mit API-Funktionen suspekt erscheinen sollte, können Sie den Temp-Ordner auch über die Funktion GetTempDir2 ermitteln.<\/p>\n
Anders als VBA kennen die meisten Programmiersprachen (und auch andere Basic-Dialekte) inkrementierende und dekrementierende Operatoren oder Anweisungen und auch eine Anweisung zum Vertauschen der Inhalte zweier Variablen.<\/p>\n
Private Declare Sub InterlockedIncrement Lib _ \"kernel32\" (lpAddend As Long)\r\nPrivate Declare Sub InterlockedDecrement Lib _ \"kernel32\" (lpAddend As Long)\r\nQuellcode 15\r\nPublic Sub Inc(Var As Variant, Optional ByVal _ Increment As Long = 1)\r\n Var = CLng(Var) + Increment\r\nEnd Sub\r\nPublic Sub IncI(Var As Integer, Optional ByVal _ Increment As Integer = 1)\r\n Var = Var + Increment\r\nEnd Sub\r\nPublic Sub IncL(Var As Long, Optional ByVal Increment _ As Long = 1)\r\n If Increment = 1 Then\r\n InterlockedIncrement Var\r\n Else\r\n Var = Var + Increment\r\n End If\r\nEnd Sub\r\nPublic Sub IncS(Var As Single, Optional ByVal _ Increment As Single = 1)\r\n Var = Var + Increment\r\nEnd Sub\r\nPublic Sub IncD(Var As Double, Optional ByVal _ Increment As Double = 1)\r\n Var = Var + Increment\r\nEnd Sub\r\nPublic Sub Dec(Var As Variant, Optional Decrement _ As Long = -1)\r\n Var = CLng(Var) + Decrement\r\nEnd Sub\r\nPublic Sub DecI(Var As Integer, Optional Decrement As _ Integer = -1)\r\n Var = Var + Decrement\r\nEnd Sub\r\nPublic Sub DecL(Var As Long, Optional Decrement As _ Long = -1)\r\n If Decrement = 1 Then\r\n InterlockedDecrement Var\r\n Else\r\n Var = Var + Decrement\r\n End If\r\nEnd Sub\r\nQuellcode 16 (Teil 1)<\/pre>\nVBA erwartet dagegen von Ihnen zum Inkrementieren bzw. Dekrementieren eine etwas umständliche Schreibweise, etwa:<\/p>\n
A = A + 1\r\nB = B - 1<\/pre>\nUnd zum Vertauschen ist eine Hilfsvariable notwendig:<\/p>\n
H = A\r\nA = B\r\nB = H<\/pre>\nDas Windows-API bietet hierbei keine brauchbare Unterstützung oder Verkürzung. Es gibt zwar Funktionen wie InterlockedIncrement, InterlockedDecrement und InterlockedExchange (Deklaration s. Quellcode 15), die zwar etwas schneller sind, als der Weg in reinem VBA, jedoch sind sie lediglich für Werte des Datentyps Long geeignet. Außerdem sind sie eigentlich gar nicht in erster Linie für diesen Zweck vorgesehen, wie aus den Dokumentationen hervorgeht.<\/p>\n
Zur Einsparung der umständlichen Schreibweisen können Sie diese in Hilfsfunktionen verpacken und in ein Standard-Modul auslagern. Die Funktionen aus Quellcode 16 enthalten Implementierungen für alle Datentypen – jeweils einmal in der allgemeinen Form für Variants (jedoch wegen der Variant-Verwendung etwas langsamer) und in spezialisierten Formen für die Datentypen Integer, Long, Single und Double.<\/p>\n
Public Sub DecS(Var As Single, Optional Decrement As _ Single = -1)\r\n Var = Var + Decrement\r\nEnd Sub\r\nPublic Sub DecD(Var As Double, Optional Decrement As Double = -1)\r\n Var = Var + Decrement\r\nEnd Sub\r\nPublic Function IncTo(Var As Variant, ToVar As _ Variant, Optional ByVal Increment As Long = 1) As _ Boolean\r\n Dim nVar As Variant\r\n nVar = CLng(Var) + Increment\r\n If nVar <= CLng(ToVar) Then\r\n Var = nVar\r\n IncTo = True\r\n End If\r\nEnd Function\r\nPublic Function IncToI(Var As Integer, ToVar As _ Integer, Optional ByVal Increment As Integer = 1) _ As Boolean\r\n Dim nVar As Integer\r\n nVar = Var + Increment\r\n If nVar <= ToVar Then\r\n Var = nVar\r\n IncTo = True\r\n End If\r\nEnd Function\r\nPublic Function IncToL(Var As Long, ToVar As Long, _\r\n Optional ByVal Increment As Long = 1) As Boolean\r\n Dim nVar As Long\r\n nVar = Var + Increment\r\n If nVar <= ToVar Then\r\n Var = nVar\r\n IncTo = True\r\n End If\r\nEnd Function\r\nPublic Function IncToS(Var As Single, ToVar As Single, _\r\n Optional ByVal Increment As Single = 1) As Boolean\r\n Dim nVar As Single\r\n nVar = Var + Increment\r\n If nVar <= ToVar Then\r\n Var = nVar\r\n IncTo = True\r\n End If\r\nEnd Function<\/pre>\nDie Funktionen übergeben den Sub-Prozeduren die zu inkrementierende bzw. dekrementierende Variable als Parameter und optional den Wert des Inkrements bzw. Dekrements (Voreinstellung 1 bzw. -1).<\/p>\n
Beispiele:<\/p>\n
Dim A As Variant\r\nA = 10\r\nInc A<\/pre>\nergibt A = 11;<\/p>\n
Dim B As Long\r\nB = 100\r\nDec B<\/pre>\nergibt 99;<\/p>\n
Dim C As Single\r\nC = 5,5\r\nInc C, 0,5<\/pre>\nergibt 6.<\/p>\n
Die Prozeduren dazu finden Sie in Quellcode 16.<\/p>\n
Ein wenig spezialisierter sind die Funktionen IncTo und DecTo bzw. deren datentypspezifische Varianten. Sie inkrementieren oder dekremen-tieren einen Wert um einen bestimmten Wert, solange er unter einer vorgegebenen Obergrenze bzw. über einer vorgegebenen Untergrenze liegt. Im Prinzip beruhen For-Schleifen auf diesem Prinzip. IncTo und DecTo haben jedoch den Vorteil, dass die vorgegebenen Ober- bzw. Untergrenzen nicht exakt getroffen werden müssen, um die Schleife zu beenden, wenn der Grenzwert nicht durch das Inkrement bzw. das Dekrement teilbar ist.<\/p>\n
Public Function IncToD(Var As Double, ToVar As Double, _\r\n Optional ByVal Increment As Double = 1) As Boolean\r\n Dim nVar As Double\r\n nVar = Var + Increment\r\n If nVar <= ToVar Then\r\n Var = nVar\r\n IncTo = True\r\n End If\r\nEnd Function\r\nQuellcode 17 (Teil 2)\r\nPublic Function DecTo(Var As Variant, Optional ToVar _ As Variant, Optional ByVal Increment As Long = 1) _ As Boolean\r\n Dim nVar As Variant\r\n nVar = CLng(Var) + Increment\r\n If nVar >= CLng(ToVar) Then\r\n Var = nVar\r\n DecTo = True\r\n End If\r\nEnd Function\r\nQuellcode 18\r\nPrivate Declare Function InterlockedExchange Lib _ \"kernel32\" (lpVar1 As Long, ByVal Var2 As Long) _ As Long\r\nPublic Sub Swap(Var1 As Variant, Var2 As Variant)\r\n Dim nVar As Variant\r\n If IsObject(Var1) And IsObject(Var2) Then\r\n Set nVar = Var1\r\n Set Var1 = Var2\r\n Set Var2 = nVar\r\n ElseIf IsObject(Var1) Then\r\n Set nVar = Var1\r\n Var1 = Var2\r\n Set Var2 = nVar\r\n ElseIf IsObject(Var2) Then\r\n nVar = Var1\r\n Set Var1 = Var2\r\n Var2 = nVar\r\n Else\r\n nVar = Var1\r\n Var1 = Var2\r\n Var2 = nVar\r\n End If\r\nEnd Sub\r\nQuellcode 19<\/pre>\nSo können Sie mit IncTo beispielsweise den Ausgangswert 2 in einer Do…Loop-Schleife um 5 erhöhen, bis die Obergrenze von 30 erreicht wird. So lange eine Inkrementierung erfolgt, gibt die Funktion IncTo den Rückgabewert True zurück. Bei der letzten Inkrementierung beim Stand von 27 würde der Grenzwert 30 überschritten – der Wert wird nun nicht mehr erhöht und die Funktion gibt den Wert False zurück, sodass die Schleife verlassen wird:<\/p>\n
Dim A As Integer\r\nA = 2\r\nDo While IncTo(A, 30, 5)\r\n ''...\r\nLoop<\/pre>\nDie Funktionen IncTo und deren Varianten finden Sie in Quellcode 17, die Funktion DecTo in Quellcode 18. Die datentypspezifischen Varianten der Funktion DecTo lassen sich leicht anhand der entsprechenden Varianten der Funktion IncTo ableiten.<\/p>\n
ähnlich wie Inc und Dec kapseln die Prozeduren zum Vertauschen der Inhalte zweier Variablen die umständliche VBA-Syntax (nur beim Datentyp Long wird die schnellere API-Funktion InterlockedExchange verwendet). Bei der allgemeinen Variante wird sogar berücksichtigt, dass einer der beiden Werte oder beide Werte Objekte sein können, bei denen die Zuweisungen mit der Set-Anweisung erfolgen müssen. Ebenso kommt dementsprechend die spezialisierte Variante SwapObj dazu. Und für Datumswerte gibt es schließlich noch die Variante SwapDate. In den folgenden Prozeduren setzen Sie statt <Tausch-Algoritmus> jeweils die drei folgenden Zeilen ein:<\/p>\n
nVar = Var1\r\nVar1 = Var2\r\nVar2 = nVar\r\nPublic Sub SwapI(Var1 As Integer, _ Var2 As Integer)\r\n Dim nVar As Integer\r\n <Tausch-Algoritmus>\r\nEnd Sub\r\nPublic Sub SwapL(Var1 As Long, _ Var2 As Long)\r\n Var2 = InterlockedExchange(Var1, _ Var2)\r\nEnd Sub\r\nPublic Sub SwapS(Var1 As Single, _ Var2 As Single)\r\n Dim nVar As Single\r\n <Tausch-Algoritmus>\r\nEnd Sub\r\nPublic Sub SwapD(Var1 As Double, _ Var2 As Double)\r\n Dim nVar As Double\r\n <Tausch-Algoritmus>\r\nEnd Sub\r\nPublic Sub SwapDate(Var1 As Date, _ Var2 As Date)\r\n Dim nVar As Date\r\n <Tausch-Algoritmus>\r\nEnd Sub<\/pre>\nDa es keine Funktion gibt, die den Nachkomma-Anteil einer Zahl zurückgibt, können Sie diesen auf einem kleinen Umweg erhalten. Sie subtrahieren einfach den ganzzahligen Anteil von der Zahl. Den ganzzahligen Anteil erhalten Sie über die relativ unbekannte VBA-Funktion Fix. Die Funktion Fix schneidet tatsächlich nur den Nachkommaanteil ab, im Gegensatz zu Funktionen wie Int, CInt oder CLng, die stattdessen automatisch runden.<\/p>\n
Decimals = Number - Fix(Number)<\/pre>\nEine weitere Möglichkeit besteht mit den praktischen datentypspezifischen Hilfsfunktionen (Double als Standard-Ausführung):<\/p>\n
Public Function GetDecimals(ByVal _ Number As Double) As Double\r\n GetDecimals = Number - Fix(Number)\r\nEnd Function\r\nPublic Function GetDecimalsS(ByVal _ Number As Single) As Single\r\n GetDecimalsS = Number - Fix(Number)\r\nEnd Function\r\nPublic Function GetDecimalsC(ByVal _ Number As Currency) As Currency\r\n GetDecimalsC = Number - Fix(Number)\r\nEnd Function<\/pre>\nIn den Umgebungsvariablen ist eine einfache Möglichkeit verborgen, die aktuelle Windows-Version zu ermitteln. Unter Windows NT und Windows 2000 enthält die Umgebungsvariable OS die Kennung Windows_NT, während diese Umgebungsvariable unter Windows 9x unbekannt ist. Zur weiteren Unterscheidung zwischen Windows NT und Windows 2000 können Sie die Umgebungsvariable PROGRAMFILES heranziehen, die wiederum unter Windows NT unbekannt ist, während sie unter Windows 2000 den Pfad des Programm-Ordners liefert.<\/p>\n
Public Enum WinVersionConstants\r\n wvWin9x\r\n wvWinNT\r\n wvWin2000\r\nEnd Enum\r\nPublic Function WindowsVersion() _ As WinVersionConstants\r\n Select Case True\r\n Case Len(Environ$(\"OS\")) = 0\r\n WindowsVersion = wvWin9x\r\n Case Len(Environ$ _ (\"PROGRAMFILES\")) = 0\r\n WindowsVersion = wvWinNT\r\n Case Else\r\n WindowsVersion = wvWin2000\r\n End Select\r\nEnd Function<\/pre>\nDer interne Zufallszahlengenerator in Visual Basic, der über die Funktion Rnd Zufallszahlen liefern soll, ist eigentlich gar keiner. Er geht bei der Generierung von Zufallszahlen immer vom gleichen Ursprung aus und liefert immer wieder die gleiche Zahlenfolge.<\/p>\n
Zufall kommt erst dann ins Spiel, wenn Sie mindestens vor dem ersten Aufruf der Rnd-Funktion zusätzlich noch die Funktion Randomize aufrufen. Ihr können Sie einen beliebigen Initialisierungswert als Parameter übergeben.<\/p>\n
Um dem Zufall einigermaßen auf die Sprünge zu helfen, sollte dieser Wert auch möglichst zufällig sein, etwa der aktuelle Wert, den die Timer-Funktion zurückgibt (z. B. die Anzahl der seit Mitternacht vergangenen Sekunden).<\/p>\n
Eine ganzzahlige Zufallszahl innerhalb eines gegebenen Zahlenbereichs erhalten Sie über die Rnd-Funktion nach folgender Formel:<\/p>\n
Zahl = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)<\/pre>\nDie folgende Funktion RndNum liefert nach dieser Formel und optionaler Initialisierung der Zufallsbasis eine ganze Zahl innerhalb der Grenzen von LBnd und UBnd:<\/p>\n
Public Function RndNum(ByVal LBnd As _ Long, ByVal UBnd As Long, Optional _ ByVal DoRandomize As Boolean) As Long\r\n If DoRandomize Then\r\n Randomize Timer\r\n End If\r\n RndNum = Int((UBnd - LBnd + 1) * _ Rnd + LBnd)\r\nEnd Function<\/pre>\nFalls Sie gleich mehrere Zufallszahlen aus einem Zahlenbereich benötigen, können Sie die Funktion RndSet verwenden. Sie geben die gewünschte Anzahl an und bekommen die Zahlen wahlweise in einer Collection (Voreinstellung) oder als Array geliefert.<\/p>\n
Public Function RndSet(ByVal Count As _ Long, ByVal LBnd As Long, ByVal _ Ubnd As Long, Optional ByVal _ DoRandomize As Boolean = True, _\r\n Optional ByVal AsArray As Boolean) _ As Variant\r\n Dim nNumbers As Collection\r\n Dim nRnd, nRndTest As Long\r\n Dim nRndSetArray() As Long\r\n Dim l As Long\r\n If DoRandomize Then\r\n Randomize Timer\r\n End If\r\n Set nNumbers = New Collection\r\n With nNumbers\r\n On Error Resume Next\r\n Do\r\n nRnd = RndNum(LBnd, UBnd)\r\n nRndTest = _ nNumbers(CStr(nRnd))\r\n If Err.Number Then\r\n Err.Clear\r\n .Add nRnd, CStr(nRnd)\r\n End If\r\n Loop Until .Count = Count\r\n End With\r\n If AsArray Then\r\n ReDim nRndSetArray(1 To Count)\r\n For l = 1 To Count\r\n nRndSetArray(l) = nNumbers(l)\r\n Next\r\n RndSet = nRndSetArray\r\n Else\r\n Set RndSet = nNumbers\r\n End If\r\nEnd Function<\/pre>\nZahlengruppen nach dem Muster 6 aus 49 für Ihren Lottoschein ermitteln Sie beispielsweise folgendermaßen:<\/p>\n
Dim nLotto As Collection\r\nDim i As Integer\r\nSet nLotto = RndSet(6, 1, 49)\r\nFor i = 1 To 6\r\n Debug.Print nLotto(i)\r\nNext ''i\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Diese Zusammenstellung von Tipps und Tricks behandelt die folgenden Themen:
\n– Bildschirm nach Maß
\n– Löschen, aber nicht richtig
\n– Disketten mit Format
\n– Ordner mit System
\n– Wechselspiel
\n– Nachzügler getrennt
\n– Blick über den Tellerrand<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662001,66072001,44000004],"tags":[],"class_list":["post-55000045","post","type-post","status-publish","format-standard","hentry","category-662001","category-66072001","category-Tipps_und_Tricks"],"yoast_head":"\nTipps und Tricks 7\/2001 - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Tipps und Tricks 7\/2001\" \/>\n<meta property=\"og:description\" content=\"Diese Zusammenstellung von Tipps und Tricks behandelt die folgenden Themen: - Bildschirm nach Maß - Löschen, aber nicht richtig - Disketten mit Format - Ordner mit System - Wechselspiel - Nachzügler getrennt - Blick über den Tellerrand\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-10T20:00:17+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"23\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Tipps und Tricks 7\\\/2001\",\"datePublished\":\"2021-02-10T20:00:17+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/\"},\"wordCount\":2879,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5b5745ab55004dd1be12ea78c2a9f153\",\"articleSection\":[\"2001\",\"7\\\/2001\",\"Tipps und Tricks\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/\",\"name\":\"Tipps und Tricks 7\\\/2001 - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5b5745ab55004dd1be12ea78c2a9f153\",\"datePublished\":\"2021-02-10T20:00:17+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5b5745ab55004dd1be12ea78c2a9f153\",\"contentUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5b5745ab55004dd1be12ea78c2a9f153\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_72001\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Tipps und Tricks 7\\\/2001\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Tipps und Tricks 7\/2001 - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/","og_locale":"de_DE","og_type":"article","og_title":"Tipps und Tricks 7\/2001","og_description":"Diese Zusammenstellung von Tipps und Tricks behandelt die folgenden Themen: - Bildschirm nach Maß - Löschen, aber nicht richtig - Disketten mit Format - Ordner mit System - Wechselspiel - Nachzügler getrennt - Blick über den Tellerrand","og_url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-10T20:00:17+00:00","og_image":[{"url":"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"23\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Tipps und Tricks 7\/2001","datePublished":"2021-02-10T20:00:17+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/"},"wordCount":2879,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153","articleSection":["2001","7\/2001","Tipps und Tricks"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/","url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/","name":"Tipps und Tricks 7\/2001 - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153","datePublished":"2021-02-10T20:00:17+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#primaryimage","url":"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153","contentUrl":"http:\/\/vg01.met.vgwort.de\/na\/5b5745ab55004dd1be12ea78c2a9f153"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_72001\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Tipps und Tricks 7\/2001"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000045","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000045"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000045\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000045"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000045"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000045"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}