Clever-Excel-Forum › Office-Anwendungen › Excel v
Syntax einer Zellformel

Thema geschlossen 
Baumstrukturmodus
Syntax einer Zellformel
sharky51 Offline
pausiert
Registriert seit: 09.05.2015
Version(en): 2013, Office 365
#1
12.10.2015, 20: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!
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#2
12.10.2015, 22:05 (Dieser Beitrag wurde zuletzt bearbeitet: 13.10.2015, 04:13 von WillWissen. Bearbeitungsgrund: Smilie abgeschaltet )
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):

Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#3
12.10.2015, 22: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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • sharky51
Suchen
Top
sharky51 Offline
pausiert
ThreadStarter
Registriert seit: 09.05.2015
Version(en): 2013, Office 365
#4
12.10.2015, 22:44
Super,

vielen Dank...so funktioniert es.
Suchen
Top
Kuwer Offline
Excelanwender mit VBA
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
#5
13.10.2015, 00: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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • sharky51
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#6
13.10.2015, 07:45
Ist ja viel zu einfach, Uwe!  :19:
Hast natürlich Recht! Blush

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Suchen
Top
snb Offline
Benutzer
Registriert seit: 29.09.2015
Version(en): 2030,5
#7
13.10.2015, 10:08
Dann wäre.....

Code:
Sub HauRein()
ActiveCell = "=Personl.XLS!Farbwert(" & [address(11111,9876)] & ")"
End Sub
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • sharky51
Homepage Suchen
Top
sharky51 Offline
pausiert
ThreadStarter
Registriert seit: 09.05.2015
Version(en): 2013, Office 365
#8
13.10.2015, 22:40
Danke Euch allen...hat mir sehr weiter geholfen.
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste