AW: Formel kürzen ?
21.07.2007 12:03:00
ingUR
Nein, @ZekA,
kürzen kann ich Dir die Zellenformel nicht. es sei denn Du würdest eine benutzerdefinierte Funktion einbinden.
Allerdings, vermag ich ide Bedeuteung der Teile & "" nicht zu erkennen. So, wie sie nun dastehen, können sie entfallen.
Um nun mit einer Zellenformel ohne VBA Einbindung Leerzellen zu bei der aneinanderkettung zu überspringen, kpnnte der erste Teil der Formel so aussehen:
|
| |
| | A | B | C | D | E | F | | 1 | 12:00 | | | | | 12:00 13:00 15:00 | | 2 | | 13:00 | | | | | | 3 | | | | | | | | 4 | | | | 15:00 | | | | Formeln der Tabelle | F1 : =WENN(ISTLEER(A1);"";TEXT(A1;"hh:mm "))&WENN(ISTLEER(B2);"";TEXT(B2;"hh:mm "))&WENN(ISTLEER(C3);"";TEXT(C3;"hh:mm "))&WENN(ISTLEER(D4);"";TEXT(D4;"hh:mm "))
|
|
| |
Eine benutzerdefinierte Funktion, als Standardmodul eingefügt, kann so geschreiben werden:
Function VerketteDiagonaleintraege() As String
Dim c As Long, strInfo As String
For c = 1 To 26
If Not IsEmpty(Cells(c, c)) Then
If c > 1 Then strInfo = strInfo & " "
strInfo = strInfo & Format(Cells(c, c), "hh:mm")
End If
Next c
VerketteDiagonaleintraege = strInfo
End Function
In AA1 ist die Zellenformel
=VerketteDiagonaleintraege()
einzutragen. Ihre Neuberechnung ist jedoch so durch die erneute Bestetätigung der Formel in der Zelle zu erzwingen.
Automatisieren könnte man die Aktualisierung, wenn man die Funktion in eine SUB-Prozedur umschreibt, die dann durch ein geeignetes Ereignis (Schaltflächebetätigung, Makro-Aufruf, Worsheet_Chance) aufgerufen und ausgeführt wird.
Gruß,
Uwe