- Startseite
- Neuigkeiten
- Über mich
- Referenzen
- Beispiele
- Artikel
- Vorträge
- Tools
- Access-Tipps
- Excel-Tipps
- Spielereien
- Kontakt
- Impressum
- Datenschutz
Meine Projekte:


(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))
Auch – oder gerade – als ITler habe ich über Eugen Gomringer die Konkrete Poesie
für mich entdeckt.
Download
kein fehler im system (1) für Excel 2007 (und neuer)
(Datei: kein fehler im system.zip, ca. 16 KB)