das ganze lässt sich um Transversalen und sonstige Satzmöglichkeiten
erweitern. Ich habe noch ein kleines Testprogram, das mit Strg s gestartet wird.
vielleicht hat jemand noch verbesserungsvorschläge oder konkrete Anwendungen,
da für mich programmieren noch ein relatives Neuland ist, brauchts manchmal etwas länger.
Nachdem es mit dem Anhang offensichtlich nicht klappt, stell ich mal den Quelltext rein, der muß dann
nur in ein Modul reinkopiert werden. Wenn man das direkt ins Workbook reinkopiert startet das Program automatisch.
Hätte fast vergessen, Tabelle1 must in Test umbenannt werden oder Sheets("Test").Activate in Sheets("Tabelle1").Activate. Auch fehlt noch eine Fehlerroutine, da bei Abbruch oder Enter in der Inputbox, es zu einer Fehlermeldung kommt. Anscheinend kann ich hier auch keine rar Dateien ranhängen
Gruss Matthias
Angehängte Dateien
Bearbeitet von Frodo01, 03 February 2009 - 17:35.













