DatenbankManufaktur

Anwendungen so individuell wie Ihr Unternehmen   –   Office- und VBA-Erfahrung seit 1995

(k)ein fehler im system

Nachdem ich Eugen Gomringers konkrete Poesie im Museum Weserburg gesehen habe, fragte ich mich spontan, ob man das Gedicht "kein fehler im system (1)" nicht auch in Excel schreiben könnte. Herausgekommen ist diese konkrete Formel:

=TEIL(TEIL("keinehlerimsystem";1;WENN(ZEILE(A1)<15;ZEILE(A1)+3;
ZEILE(A1)-15))&"f"&TEIL("keinehlerimsystem";WENN(ZEILE(A1)<15;
ZEILE(A1)+4;ZEILE(A1)-14);17);1;4) & " " & TEIL(TEIL(
"keinehlerimsystem";1;WENN(ZEILE(A1)<15;ZEILE(A1)+3;ZEILE(A1)-
15))&"f"&TEIL("keinehlerimsystem";WENN(ZEILE(A1)<15;ZEILE(A1)
+4;ZEILE(A1)-14);17);5;6) &" " & TEIL(TEIL("keinehlerimsystem";1;
WENN(ZEILE(A1)<15;ZEILE(A1)+3;ZEILE(A1)-15))&"f"&TEIL(
"keinehlerimsystem";WENN(ZEILE(A1)<15;ZEILE(A1)+4;ZEILE(A1)-
14);17);11;2) & " " & TEIL(TEIL("keinehlerimsystem";1;WENN(ZEILE(
A1)<15;ZEILE(A1)+3;ZEILE(A1)-15))&"f"&TEIL("keinehlerimsystem";
WENN(ZEILE(A1)<15;ZEILE(A1)+4;ZEILE(A1)-14);17);13;6)

In eine Zelle kopieren, diese dann mit dem Ausfüllkästchen noch weitere 18 Zeilen nach unten ziehen und Excel wird gewissermaßen zum "Konkreten Dichter":

kein fehler im system
kein efhler im system
kein ehfler im system
kein ehlfer im system
kein ehlefr im system
kein ehlerf im system
kein ehleri fm system
kein ehleri mf system
kein ehleri ms fystem
kein ehleri ms yfstem
kein ehleri ms ysftem
kein ehleri ms ystfem
kein ehleri ms ystefm
kein ehleri ms ystemf
fkei nehler im system
kfei nehler im system
kefi nehler im system
keif nehler im system
kein fehler im system

Gibt es womöglich eine kürzere Formel?

Mit ein wenig VBA wird es auf alle Fälle kürzer:

Public Function kfis(row As Integer) As String
'=====================================================================================
' Eine benutzerdefinierte Funktion aus Raphael Heins Da|ten|bank|Ma|nu|fak|tur
' Gedicht:      (k)ein fehler im system
' Autor:        Eugen Gomringer
'=====================================================================================
   kfis = Format(Mid("keinehlerimsystem", 1, Iif(row < 15, row + 3, row - 15)) _
                 & "f" _
                 & Mid("keinehlerimsystem", Iif(row < 15, row + 4, row - 14), 17 _
                 ), "@@@@ @@@@@@ @@ @@@@@")
End Function

Diese UDF in ein Modul kopiert und mit dieser Formel aufrufen:

=kfis(ZEILE(A1))

[ Download ]  [ nach oben ]


Auch – oder gerade – als ITler habe ich über Eugen Gomringer die Konkrete Poesie für mich entdeckt.