Beiträge

Veröffentlicht am

VBA – Suchen und Ersetzen in Strings

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"

Veröffentlicht am

VBA – Selektion Speichern und wieder aufrufen

Manchmal schreibt man Informationen in eine Tabelle oder führt interaktiv Änderungen an den Daten aus. Dabei ändert sich oft der Fokus der Tabelle.
Damit der Benutzer jedoch nicht ständig wieder an seine Position scrollen und klicken muss, gibt es einfach die Möglichkeit, den aktiven Focus in Excel zwischen zu speichern und wieder abzurufen:

    ' Speichern der aktuellen Selektion
    Dim selectionValue As Variant
    selectionValue = Selection.Address

    ' Do Anythin - Tu was Du tun musst ;-)

    ' Zurücksetzen auf alte Selektion
     Range(selectionValue).Select

Veröffentlicht am

VBA – Zeilenumbruch in String einbauen

Manchmal schreibt man einen Header für eine Tabelle, wo die Spalten möglichst schmal sein müssen. Dafür ist es von Vorteil, wenn in dem Header Wörter untereinander stehen. Das lässt sich ganz einfach umsetzen:

dim ueberschrift as String
ueberschrift = "PAL " & vbCrLf & " Anzahl"

Zeilenumbruch in Excel über Formel einbauen

Einen Zeilenumbruch innerhalb einer Excelformel lässt sich einfach einrichten

ZEICHEN(10)

Veröffentlicht am

VBA – Verschiedene Grundlagen

Datumsfunktionen

Man kommt um die Verwendung eines Datums in der Programmierung nicht drumrum – da ich normalerweise Java programmiere, muss ich in VBA oft die einfachsten Syntaxfragen recherchieren. Diese möchte ich unter anderem in diesem Beitrag dokumentieren, um sie beim „nächsten Mal“ einfach nachschlagen zu könen 🙂

Datum deklarieren

Die Deklaration eines Datums ist denkbar einfach – man deklariert es so wie man es in Excel in eine Zelle eingeben würde:

dim myDate as Date
myDate = „17.01.2019“

RANGE & Co

Von einer Range auf die Spaltennummer konvertieren

dim spaltennr as integer
spaltennr = Columns(„AB“).Column

Zulässige Werte einer Zelle einschränken (Datenschutz)

Um mit VBA zulässige Werte einzuschränken, bedient man sich idealerweise der nachfolgenden Einstellungen:

'Festlegen, dass nur E und T zulässige Eingabewerte sind.
    Range(Cells(x, EMAIL_TELEFON_SPALTE).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="E,T"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With