Variable, Konstante

Variable, Konstante

Variablen sind Platzhalter auf denen man Inhalte speichern und verändern kann.

Diese gibt es in unterschiedlichen Datentypen. Ich empfehle jede Variable vor Verwendung zu deklarieren. Dabei wird der Datentyp festgelegt.

Konstanten verhalten sich wie Variablen, jedoch kann der Wert nicht geändert werden.

Deklarieren von Variablen / Konstanten

Dim strVariable As String   'Textvariable wurde deklariert
strVariable = "Text"        'der Textvariable wurde "Text" zugewiesen

Dim intVariable As Integer  'Integervariable (ganzzahlig) wurde deklariert
intVariable = 123           'der Inegervariable wurde 123 zugewiesen

Const cstrVariable As String = "Text" 'Textkonstante wurde deklariert und "Text" zugewiesen
Const cintVariable As Integer = 123   'Integerkonstante (ganzzahlig) wurde deklariert und 123 zugewiesen
                                      'c steht hierbei fuer Constant

Kürzel, Variablennamen

Variablennamen sollten kurz aber sprechend sein. Ich verwende hier gern deutsche Begriffe da diese nicht mich den englischen Befehlen kollidieren. Problematisch ist dies nur, wenn man sich in einer Entwicklungsgemeinschaft mit englisch Sprachigen Personen befindet.

Damit man gleich erkennt welcher Typ einer Variablen zugewiesen wurde, macht es Sinn diesen dem Variablennamen voran zu stellen. Diese Liste ist eine Möglichkeit speziell für VBA. Da es keinen Standard gibt der sich durchgesetzt, wäre dies eine Möglichkeit.

Microsoft Typzeichen

Globale Konstante

Eine globale Konstante ist eine Konstante die im gesamten Projekt Gültigkeit hat. Sie wird in Deklarationsbereich eines Moduls deklariert.

Option Explicit

Public Const gboolDebugg As Boolean = True  'Konstante vom Typ Boolean wird erzeugt

Public Sub Ausgabe()
  MsgBox "Inhalt der globalen Variable: " & CStr(gboolDebugg)  'Inhalt der Konstante wird ausgegeben
End Sub

Globale Array Konstante

Eigentlich gibt es dies so nicht. Man kann jedoch diese über einen Trick erzeugen.

Option Explicit

Public Const gstrKonstante As String = "1,2,a,b"  'Textkonstante wird erzeugt

Public Sub Ausgabe()
  Dim i As Integer
  Dim strKonstante() As String                    'Textvariable wird deklariert
  strKonstante = Split(strKonstante, ",")         'Konstante wird als Arry auf eine Variable geschrieben
                                                  'das Komma ist dabei das Trennzeichen der Elemente

  For i = 0 To 1
    Debug.Print strKonstante(i)                   'Inhalt wird im Debugfenster ausgegeben
  Next i                                          'Ausgabe => 1 2 a und b
End Sub

Array

Ein Arry ist eine Variable die mehrere Werte in eine Matrix aufnehmen kann

VBA Excel spezifisch

Formelfehler finden

Dim oFind As Range

'Formelfehler finden und auf Variable schreiben
'Fehlermeldung unterdrücken wenn keiner gefunden wurde
On Error Resume Next
Set oFind = Cells.SpecialCells(xlFormulas, xlErrors)
err.Clear
On Error GoTo 0

'Wenn Formelfehler gefunden wurde
If Not oFind Is Nothing Then

  'Formelfehler durchgehen
  For Each oZelle In oFind

    'Die einzelnen Fehler unterschiedlich behandeln
    Select Case UCase(oZelle.Text)
      Case "#WERT!", "#ZAHL!"
        oZelle = 0
      Case "#NV", "#BEZUG!", "#DIV/0!", "#NAME?", "#NULL!"
        oZelle = ""
      Case Else
        oZelle = "???"
    End Select
  Next oZelle
End If