Makro Problem

Question

Hallo,

ich habe ein Makro aufgzeichnet was auch so weit funktioniert, nur müsste man da noch was ändern und zwar die Zeilen die Unterstrichen ( Dateiname " test1.xls" und "Neu-test.xls" ) sind ändern sich immer, ich müsste also irgend wie die Dateinamen immer wieder neu auslesen weiß aber nicht wie ich das in dem Makro einbauen soll, muß.
Das Makro wird in der Datei "Neu-test.xls gestartet.

Sub übertragen()
'
' übertragen Makro
'
Windows("test1 .xls").Activate
Range("C4:H20").Select
Selection.Copy
Windows("Neu-test.xls").Activate
Range("C4").Select
ActiveSheet.Paste
Range("D4").Select
End Sub

grüße
Achim

Answer 1

Hallo,

woher kommen den die Namen? Eingabe oder was?

Nicht ganz klar ist diese Aussage:

..... nur müsste man da noch was ändern und zwar die Zeilen die Unterstrichen ( Dateiname " test1.xls" und "Neu-test.xls" ) sind ändern sich immer ............................

Das Makro wird in der Datei "Neu-test.xls gestartet

Wenn immer aus "Neu-test.xls" gestartet wird, wohin erfolgt die Abspeicherung?

Gruß

Helmut

Answer 2

hi achim ^^

ersetze die namen durch den index

statt "test1 .xls" eine 1 z.b. naechste eine 2 usw.

dann versuche mal die selectionen zu verbannen :-))

der index hat allerdings den nachteil das bei mehr als 2 differenzierter vorgegangen werden sollte

gruss nighty

Answer 3

Hallo Helmut,

es geht darum ich bekomme von verschiedene Mitarbeitern eine Exceltabelle mit einer Mappe ( januar ) und die nennen die Datei eben jeden Monat anders.
Die Daten werden dann in die Datei Neu-test.xls ( dieser Name ändert sich auch jeden Monat ) an einer bestimmten stelle kopiert.

Wenn du die datei brauchst kann ich sie dir gerne zusenden, ich möchte sie jetzt nur nicht der Allgemeinheit zukommen lassen.

Grüße
Achim

Answer 4

Hallo nighty,

also wenn ich die Dateinamen durch eine 1 und 2 ersetze, wird zwar die 2 Tabelle geöffnet und auch Makiert es wird aber nichts in die 1 Tabelle kopiert.
Es wäre nett wenn du mir dabei helfen würdest.

Grüße
Achim

Answer 5

Hallo,

seh dir mal das an

www.supportnet.de/t/2266546

das könnte ein Ansatz in die von dir beschriebene Richtung sein.

Gruß

Helmut

Answer 6

Hallo Helmut,

danke für den Tip, funktioniert fast so wie ich ihn haben möchte, was geändert werden müsste wäre beim Start des Makro müsste eine Abfrage kommen wo die Datei steht und dann müsste nur von dieser einer Datei die Daten und das Format mit übertragen werden.


Grüße
Achim

Answer 7

Hallo,

da ich nicht weiss wie gut du mit Makros umgehenkannst, nur als Hinweis.

Das mit dem Standort der Datei wäre vielleicht mit einer Inputbox zu lösen.

Gruß

Helmut

Answer 8

Hi,

Man könnte auch die GetOpenFilename-Methode nutzen. Für die Auswahl eines einzelnen ExcelFiles ginge das z.B. wie folgt:

Dim strDatei As String
strDatei = Application. _
GetOpenFilename("Excel-Mappen (*.xls*),*.xls*", 1, _
"QuellMappe auswählen", , False)

If strDatei = "Falsch" Then
'Code bei Abbruch
MsgBox "Auswahl abgebrochen!"
Exit Sub
Else
'Code bei einer gültigen Auswahl
MsgBox "Es wurde die Datei" & vbCrLf & vbCrLf & _
strDatei & vbCrLf & vbCrLf & _
"zur Weiterverarbeitung ausgewählt!"
End If

bye
malSchauen