Zellinformationen per Funktion auslesen

Diese Funktion liest verschiedene Zellinformationen aus und zeigt diese an.

Erfassen Sie den Code in einem Code-Modul

Public Function zellinfo(zelle As Range, i As Integer)
Select Case i
Case 1
zellinfo = zelle.Address
Case 2
zellinfo = zelle.Value
Case 3
zellinfo = zelle.FormulaLocal
Case 4
if zelle.HasFormula = True 
Then
zellinfo = "Formel"
ElseIf IsNumeric(zelle) Then
      zellinfo = "Zahl"
   Else: zellinfo = "Text"
End If
Case Else
  zellinfo = "nicht vergeben"
End Select
End Function

Die Funktion rufen Sie wie folgt auf:

 

=zellinfo(zelle;paramter)

Folgende Parameter zum Auslesen von Zellinhalten stehen zur Verfügung:

1. Adresse der Zelle

1. Wert der Zelle
2. Wenn eine Formel enthalten ist, wird diese ausgelesen
3. Mit dem Parameter 4 können sie sich anzeigen lassen, ob in der Zelle Text, eine Zahl oder eine Formel enthalten ist.

Möchten Sie bspw. wissen, welche Formel in der Zelle B4 steht, so können Sie diese wie folgt auslesen:

=zellinfo(B4;3)