Kategorie: VBA Excel

Wenn man Makros geschrieben hat, die nicht nur in einer Arbeitsmappe zur Verfügung stehen sollen, bietet Excel 2010 für PCunter Windows 7 folgenden Funktion an: Man legt eine Datei namens PERSONAL.XLSB. C:\Users\IhrWindowsName\AppData\Roaming\Microsoft\Excel\XLSTART an und bringt dort seine Makros unter, die bei jedem Excel Start geladen werden sollen. Es öffnet sich dann immer gleichzeitig zwei Dateien…

Bei den Betriebssystem MAC OS und Windows gibt es kleine aber feine Unterschiede, die bei der Programmierung beachtet werden müssen. Mit der folgenden Funktion kann Unterschieden werden zwischen beiden: Function isMac() As Boolean isMac = False If InStr(Application.OperatingSystem, „Macintosh“) Then         isMac = True     End If End Function Unterschied 1: Zeilenumbrüche entfernen If (isMac())…

Bei einer Fehlermeldung wie: Das Makro ‚foo.xls!makro1‘ kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbietsmappe nicht verfügbar, oder alle Makros wurden deaktiviert. Sollte man erst die Sicherheitseinstellungen bezüglich Makros checken und danach überprüfen, ob das Makro auch in einem separaten Modul gespeichert ist und nicht in der Arbeitsmappe. Vielleicht auch interessant für…

Zum dynamischen Erzeugen von Diagrammen, muss man manchmal dynamischen Ranges aufbauen, wenn z.B: Zeilen ausgelassen werden sollen, weil diese einen Nullwert oder sonstiges enthalten. Dann kann mit der folgenden Funktion die XValues-Range erzeugt werden aus den zuvor bestimmten Zeilennummern: Function getRange(ByVal spaltenBuchstabe, ByVal zeilenNummern, ByVal anzahlDaten) As String     getRange = „=“     For i…

Ein Beispiel Skript für das Umwandeln von Excel Tabellen nach csv-Dateien: Sub csvToExcelTabelle() ExcSheetName = „yyy.xls“ Csvsheet = „xxx.csv“ Dim excl As Worksheet Dim csv As Worksheet Set csv = Workbooks(Csvsheet).Worksheets(1) j = 1 ‚csv leeren csv.Cells.Clear For Each excl In Workbooks(ExcSheetName).Worksheets     zeilen = excl.UsedRange.Rows.Count     For i = 3 To zeilen         ‚Zahlenformate…