MakroDaten-vorhandene ANHÄNGEN-NICHT überschreiben
10.05.2006 11:36:35
Mikel
ich habe gerade ein Makro (UM)geschrieben (und es funkt sogar :-) ). Allerdings wollte ich die Zelle "I22" nicht mit den Daten überschreiben - sondern nur am vorhandenen Text anhängen! Vielleicht könnt ihr mir hierbei helfen.
MEIN MAKRO:
Sub Tabellenblattkopieren()
Dim nam As String
Sheets("Berechnung").Activate
[g91].Value = [g91].Value + 1
nam = Sheets("Berechnung").Range("F1") & Sheets("Berechnung").Range("G91")
Sheets("Berechnung").Copy After:=Sheets(15)
Sheets("Berechnung (2)").Name = nam
Range("I22").Select
ActiveCell.FormulaR1C1 = "Berechnung vom: " & Format(Now, " dddd dd.mm.yyyy ") & Format(Now, " hh:mm ") & "Uhr"
Sheets("Berechnung").Select
Range("D8").Select
End Sub
DIE MAKROFUNKTION (entspricht nicht ganz der Reihenfolge im Makro - aber stimmt im Ergebnis):
1. Beim Start der Arbeitmappe wird die Zelle "G91" erhält die "fortlaufende" Nummer +1 *
2. Das BERECHNUNG-Tabellenblatt (innerhalb einer Arbeitsmappe!) wird an die 15 Stelle kopiert (bzw. angehängt).
3. Das kopierte Tabellenblatt erhält den Namen aus der Zelle "F1".
4. An das kopierte Tabellenblatt kommt hinter dem Namen die Nummer aus der Zelle "G91".
5. In die Zelle "I22" kommt das Datum und die Uhrzeit.
6. Der Cursor springt zurück auf das BERECHNUNG-Tabellenblatt in die Zelle "D8"
*Diese Zelle ("G91") wird bei jedem Programmstart der Arbeitsmappe mittels eines Makros "ausgenullt"
MEIN VORSTELLUNG:
Die Daten, die mit dem Makroabschnitt: " ActiveCell.FormulaR1C1 = "Berechnung vom: " & Format(Now, " dddd dd.mm.yyyy ") & Format(Now, " hh:mm ") & "Uhr" " ausgelöst werden - NICHT die aktive Zelle "I22" überschreiben zu lassen - sondern am vorhandenen Text anzuhängen.
Gibt es hier eine Lösung?
Danke im vorab und Gruß
Mikel
Anzeige