Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon achim115 vom 28.10.2021, 20:01 Options

Makro Problem

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

Antwort schreiben

Antwort 1 von Saarbauer vom 28.10.2021, 20:17 Options

Hallo,

woher kommen den die Namen? Eingabe oder was?

Nicht ganz klar ist diese Aussage:

Zitat:
..... 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

Antwort 2 von nighty vom 28.10.2021, 20:28 Options

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

Antwort 3 von achim115 vom 28.10.2021, 20:54 Options

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

Antwort 4 von achim115 vom 28.10.2021, 21:29 Options

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

Antwort 5 von Saarbauer vom 29.10.2021, 09:48 Options

Hallo,

seh dir mal das an

http://www.supportnet.de/t/2266546

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

Gruß

Helmut

Antwort 6 von achim115 vom 29.10.2021, 20:04 Options

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

Antwort 7 von Saarbauer vom 29.10.2021, 21:30 Options

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

Antwort 8 von malSchauen vom 29.10.2021, 22:39 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..