IT-Know How und mehr
Ein benutzerdefiniertes Zellenformat lässt sich mittels VBA einfach einrichten:
dim zahl as double
zahl = 4,356
' Darstellung z.B. als Gewicht in Tonnen
cells(1,1) = Format(zahl, "0.0 t")Wenn gezielt Zahlen formatiert werden sollen, verwende ich NumberFormat:
With Range(Cells(3, lkw.GW_SOLL_SPALTE), Cells(x, lkw.GW_IST_SPALTE))
.Font.Size = 10
.Font.Bold = True
.HorizontalAlignment = xlRight
.NumberFormat = "0.00 ""t"""
End With
Funktionen geben in VBA immer einen Wert zurück. Soll dieser Wert ein Objekt sein, so muss man wissen, wie man ein Objekt in einer Funktion zurückgibt.
Die Vorgehensweise ist identisch mit der Zuweisung einer Objekt-Variable. Zum Vergleich zuerst das Vorgehen bei normalen Datentypen:
Function addiere(a as Integer, b as Integer) as Integer
addiere = a + b
End Function
Bei Objekten muss vor der Angabe des Funktionsname einfach ein „SET“ gesetzt werden:
Function getAuto() as Object
dim myAuto as Auto
set myAuto = new Auto
myAuto.farbe = "blau"
myAuto.kennzeichen = "L-RB 2245"
' Zurückgeben des Wertes
SET getAuto = myAuti
End Function
Andernfalls bringt er die nachfolgende Fehlermeldung:
Das Suchen und Ersetzen in String ist in VBA (Excel & Co) erwartungsgemäß ganz einfach und mit der folgenden Zeile Quelltext erledigt:
Dim textZumErsetzen, neuerText as String
textZumErsetzen = "1456,32"
neuerText = replace(textZumErsetzen, ",",".")
' Neuer Wert: "1456.32"