ich habe hier ein kleines Makro-Problem und hoffe das mir hier geholfen werden kann:
Ich möchte ein (Ursprungs-)Tabellenblatt (Beispielname: Berechnung) in derselben Arbeitsmappe kopieren, und dem neuen Tabellenblatt den Namen, Vornamen aus dem Ursprungs-Tabellenblatt (beides in F1) mit Tagesdatum (TT.MM.JJ) und eine fortlaufende Nummerierung geben.
Nun habe ich nur folgendes VBA-Macrorecorder-Ergebnis:
Sub Tabellenblattkopieren()
' Tabellenblattkopieren Makro
' Makro am 19.12.2005 von ... aufgezeichnet
Sheets("BERECHNUNG").Select
Sheets("BERECHNUNG").Copy After:=Sheets(12)
Sheets("BERECHNUNG (2)").Select
Sheets("BERECHNUNG (2)").Name = "BERECHNUNG_62_SGB (2)"
Range("F1:H1").Select
ActiveCell.FormulaR1C1 = "Pelz, Hasan"
Sheets("BERECHNUNG (2)").Select
Sheets("BERECHNUNG (2)").Name = "Pelz, Hasan"
Range("D8").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("BERECHNUNG").Select
Range("D8").Select
End Sub
...und folgendes Problem:
1. es klappt auch soweit - aber: sobald ich auf dem Ursprungs-Tabellenblatt "in F1" den Name, Vorname (hier: Pelz, Hasan) ändere (z.B. auf Kraus, Wilhelm), nimmt er -bei der Ausführung des Makros- trotzdem den alten Namen (hier: Pelz, Hasan).
2. ...und vergibt -bei wiederholten kopieren- densselben "ursprünglichen" Tabellennamen (hier: BERECHNUNG (2)) - ohne fortlaufende Nummerierung auf z. B.: BERECHNUNG (3) oder weiterlaufende. Hier erscheint auch die Makro-Fehlermeldung zum debuggen.
Fragen:
1. Wie füge ich manuell die Daten von F1 (Name, Vorname aus dem Ursprungs-Tabellenblatt) in das Makro (als neuer Tabellenblatt-Name) ein? "F1"
2. Wie füge ich manuell das aktuelle Tagesdatum (hinter dem Name, Vorname) in das Makro (als neuer Tabellenblatt-Name) ein? "Today()"
3. Wie füge ich manuell eine fortlaufende Nummerierung (hinter das Datum) in das Makro (als neuer Tabellenblatt-Name) ein? (Ähnlich der Nummerierung beim "normalen" kopieren ohne Makro)
Vielen Dank im vorab für die Hilfe
...schöne Grüße
''''''
(o)(o)
--ooo--(__)--ooo--
Gruß Mikel