Kopieren, Namen vergeben, Formeln durch Werte erse
09.02.2003 20:10:31
Charly
vieleicht kann mir ja doch jemand helfen?
Folgendes Problem:
In Sheets("EINGABE").Range("P1")
steht die Formel =DATUM(j;m;1)
durch
Private Sub CommandButton1_Click()
soll folgendes passieren:
Der CommandButton befindet sich in Sheets("EINGABE")
1. Es soll geprüft werden ob eine Tabelle mit dem Namen
wie unter Punkt 3. beschrieben existiert.
Wenn Ja, soll diese gelöscht werden.
2. Sheets("AZN") soll kopiert und ans Ende gestellt werden.
3. Als Name soll der Monat und das Jahr aus
Sheets("EINGABE").Range("P1")vergeben werden.
In der Form: 02.03
3. Alle Formeln sollen durch Werte ersetzt werden.
End Sub
Vieleicht kann mir ja jemand helfen?
Ich habs heut Nachmittag schon mal versucht unter
"Code optimieren und zusammenführen" um 15:38
Da Rainer aber schrieb er kann nicht erkennen was ich
machen will, hab ichs mal versucht zu beschreiben.
Danke vorab.
Gruß Charly