Ich hab eine Formel A1 & "" & B2 & "" & C3 & "" & D4 ....
die formel habe ich in AA1 stehen.
Und wie mache ich dass die Leeren zellen in den Spalten nicht mit übertragen werden, also nur wenn eine Uhrzeit drinsteht.
Vielen Dank.
| |||||||||||||||||||||||||||||||||||||
In AA1 ist die Zellenformel
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
Function TextDiagonale(Zellbereich As Range) As String
'Wenn Zelle auf der Diagonale des Zellbereichs nicht leer, dann erfassen
Dim iSpalte%, iZeile%
For iZeile = 1 To Zellbereich.Rows.Count
iSpalte = iZeile
If iSpalte > Zellbereich.Columns.Count Then Exit For
If Zellbereich(iZeile, iSpalte) "" Then
If TextDiagonale = "" Then
TextDiagonale = Zellbereich(iZeile, iSpalte).Text
Else
TextDiagonale = TextDiagonale & " " & Zellbereich(iZeile, iSpalte).Text
End If
End If
Next
End Function
Formel in Zelle:
=TextDiagonale(A1:Z26)