Makro Dateiname variabel
19.07.2006 10:06:48
Claus
ich habe 2 Datein. Zur zeit habe ich ein Makro erstellt, dass Felder von einer Datei zur anderen kopiert. Das Problem das jetzt auftaucht, ist das die 2 Datein vor den kopieren mit einem anderen Name gespeichert werden. Deshalb möchte ich das der Name der kopier Datei, sowie der Name der einfügen Datei von einem spezifischen Feld abhängen.
Zur Zeit sieht so der Makro aus (unter dem Makro weitere Infos):
Sub Makro1_12()
' Makro1_12 Makro
' 1. Abnahmestelle, 12 Monate
Rows("18:19").Select
Selection.Copy
Sheets("Aufschlag").Select
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Sheets("Kunde").Select
Range("A1:H15").Select
Selection.Copy
Windows("Angebot für Kunde NEU.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Angebot Neu.xls").Activate
Range("J7:M10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Angebot für Kunde NEU.xls").Activate
Range("J7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Angebot Neu.xls").Activate
Rows("20:40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Angebot für Kunde NEU.xls").Activate
Rows("19:39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Angebot Neu.xls").Activate
Rows("46:49").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Angebot für Kunde NEU.xls").Activate
Rows("45:48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Angebot Neu.xls").Activate
Application.CutCopyMode = False
Sheets("Intern").Select
Range("B2").Select
End Sub
Jetzt würde ich gerne, dass anstatt "Angebot Neu.xls" (das schon geöffnet ist)folgendes steht:
"Worksheets("Intern").Cells(1, 2).Text & Format(Date, " dd.MM.YYYY") & "_Intern.xls"
und anstatt "Angebot für Kunde NEU.xls" folgendes steht:
Worksheets("Abn1").Cells(150, 2).Text & Format(Date, " dd.MM.YYYY") & "_Kunde.xls"
Ich habe es versucht sie einfach so zu ersetzen, funktionierte aber leider nicht
Vielen Dank im Voraus!!