Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Syntax einer Zellformel
Normale Version: Syntax einer Zellformel
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

sharky51

12.10.2015, 19:48
Hallo zusammen,

ich versuche gerade eine Zellformel über eine Abfrage zusammen zu basteln.

Die Syntax der Formel die funktioniert sieht folgendermaßen aus:
ActiveCell.FormulaLocal = "=Personl.XLS!Farbwert(A1)"

Wenn ich jetzt über diverse Abfragen die Zeilen - und Spaltennummer erhalte, tage ich diese in meine Formel so ein:
ActiveCell.FormulaLocal = "=Personl.XLS!Farbwert(col & Nr)"    ......das funktioniert natürlich nicht!

Leider weiß ich nicht wie ich jetzt wieder auf die "A1"-Syntax usw. komme.

Kann mir dabei bitte jemand auf die Sprünge helfen?

Vielen Dank!

RPP63

12.10.2015, 21:05
Hallo!
Wenn Du unbedingt bei Deiner .Formula-Schreibweise bleiben möchtest, musst Du den Integer der Spaltennummer wieder in einen String umwandeln.
Wenn es kleine Spaltennummern sind, kann man ja wie ein Grundschüler das ABC durchgehen und per Finger zählen ...  :05:
Aber wer weiß schon, welche Buchstaben die Spalte 11111 hat, nämlich PKI?
Dies macht meine kleine UDF:

Function ColumnAsLetter(Spalte As Integer) As String

ColumnAsLetter = Cells(1, Spalte).Address(0, 0)

ColumnAsLetter = Left(ColumnAsLetter, Len(ColumnAsLetter) - 1)

End Function

Heißt für Dein Beispiel:

Sub HauRein()

Dim col As Integer, Nr As Long

col = 11111

Nr = 9876

ActiveCell.FormulaLocal = "=Personl.XLS!Farbwert(" & ColumnAsLetter(col) & Nr & ")"

End Sub

Ergibt (bei mir natürlich mit Fehler #NAME?, weil ich die Funktion nicht habe):

RPP63

12.10.2015, 21:11
Da momentan die nachträgliche Deaktivierung der Smilies nicht funktioniert, der letzte Code in Code-Tags:
Code:
Sub HauRein()
Dim col As Integer, Nr As Long
col = 11111
Nr = 9876
ActiveCell.FormulaLocal = "=Personl.XLS!Farbwert(" & ColumnAsLetter(col) & Nr & ")"
End Sub

sharky51

12.10.2015, 21:44
Super,

vielen Dank...so funktioniert es.

Kuwer

12.10.2015, 23:31
Hallo Ralf,

und warum nicht gleich direkt so? Wink

Sub HauRein()

 Dim col As Integer, Nr As Long

 col = 11111

 Nr = 9876

 ActiveCell.FormulaLocal = "=Personl.XLS!Farbwert(" & Cells(Nr, col).Address(0, 0) & ")"

End Sub

Gruß Uwe

RPP63

13.10.2015, 06:45
Ist ja viel zu einfach, Uwe!  :19:
Hast natürlich Recht! Blush

Gruß Ralf

snb

13.10.2015, 09:08
Dann wäre.....

Code:
Sub HauRein()
ActiveCell = "=Personl.XLS!Farbwert(" & [address(11111,9876)] & ")"
End Sub

sharky51

13.10.2015, 21:40
Danke Euch allen...hat mir sehr weiter geholfen.
Clever-Excel-Forum > Office-Anwendungen > Excel > Syntax einer Zellformel