Zellenformat dynamisch übernehmen
Dom
ich habe mit Excel und Vba eine Mappe erstellt, in der ich per VBA-Makro neue Tabellenblätter erstelle. Diese enthalten alles was ich benötige um den Preis eines Produktes zu berechnen. Ein weiteres VBA-Makro erstellt mir eine Tabelle die aus den vorherigen Tabellen ein Angebot erstellt. (Alle Makros hab ich zu Fuß und nicht mit Makrorecorder gemacht).
Das funtioniert auch alles sehr gut. Mein Problem ist jetzt nur, ich habe eine Zelle (immer feste Position) auf jedem Kalkulationsblatt das die Lieferzeit beinhaltet. Diesen Zelleninhalt ziehe ich auch ins Angebot.
Da oft Angebote überarbeitet werden müssen, muss sich auch der Zelleninhalt dynamisch verändern. Das ist auch kein Problem. Jedoch kommt es regelmäßig vor, das aus einer Kalenderwochenangabe (Lieferzeitraum z.B. Lieferzeit/-termin: 10-12KW) ein festes Lieferdatum wird (Lieferzeit/-termin: 25.12.2011). Das gibt im Angebot natürlich eine nicht gerade sinnvolle Formatierung. Aus 10-12KW wird dann nicht 25.12.2011 sondern 40902.
Daher habe ich versucht analog zum Zelleninhalt auch das Zellenformat dynamisch zu übernehmen. Würde ich die Angebot Tabelle bei jeder Änderung löschen und neu erstellen würde es die Formatierung mit übernehmen, das reicht mir aber nicht. Ich möchte gern, dass sie sich wie der Zelleninhalt dynamisch verändert.
Meine Lösung zur Erstellung des Angebots:
Modul: AngebotErstellen
Kopf und Fusszeile erstellen (in Abhängigkeit der GesamtPositionszahl (16 Pos/Seite danach neue Seite)
Schleife1 Anfang: (Läuft von 1 bis Sheets.Count -1)
---Angebot erstellen (je Schleifendurchlauf eine Position, jede Position entnimmt dabei die Daten aus dem dazugehörigen KalkulationsTabellenBlatt)
Schleife1 Ende
Kurzer Text mit Lieferbedingungen
Dabei wird der Zellenihalt folgendermaßen übertragen (Verkürzt, geht hier ja nur ums Verständnis)
Range().Select
With Selection
.Formula = "=" & iAktuellePosition & "!r3c21"
End With
Hierbei ist iAktuellePosition die Nummer der aktuellen Tabelle/Position, die gleichzeitig der Name der Tabelle ist.
Gibt es hierzu eine Möglichkeit?
Danke schonmal im Vorraus.
Dom