Excel VBA Codebeispiele

5 Beiträge

Für den Alltag mit VBA-Programmen benötigt man oft Basis-Funktionen, wie das Zählen der beschriebenen Zellen eines Blattes. Solche Codeteile werden in dieser Kategorie vorgestellt.

Zellbereich verketten

Diese Funktion kann in ein beliebiges Modul in VBA eingefügt werden. In der Zelle steht dann z.B. die Formel =verketten2(A1:A100;”,”)

 


Public Function verketten2(ByRef rngBereich As Range, strTrennzeichen As String) As Variant
Dim rng As Range
Dim strTextkette As String

For Each rng In rngBereich
If rng <> "" Then
strTextkette = strTextkette & rng & strTrennzeichen
End If
Next
If Len(strTextkette) > 0 Then
strTextkette = Left(strTextkette, Len(strTextkette) - Len(strTrennzeichen))
Verketten2 = strTextkette
End If

End Function

Excel Funktion: Zahlen aus Zelle extrahieren

Der folgende VBA-Code gibt alle numerischen Zeichen einer Zelle zurück.
Der Code kann in ein beliebiges Modul geschrieben und im Sheet als Zellfunktion aufgerufen werden.
Zellfunktion Beispiel: =getzahl(A1)


Function getzahl(zelle As Range) As String
Text = zelle.Value
Dim zahl As String
zahl = ""
For i = 1 To Len(Text)
 If IsNumeric(Mid(Text, i, 1)) = True Then
  zahl = zahl & Mid(Text, i, 1)
 End If
Next i
getzahl = zahl
End Function