Office: (Office 365) Daten Kopieren aus einer zweiten Datei

Ich weiss nicht ob dies Hier schon existiert.
Leider habe ich noch nichts gefunden.
Ich habe eine Excel Datei (Kunden Angaben) und eine zweite Datei (Mappe1).
Wenn beide geöffnet sind kann ich aus den Kunden Angaben die Daten in die Mappe1 Importieren.
Dies Funktioniert so.

Sub Kopieren_einfach()
On Error GoTo Fehler1
'1. Anlagedaten
Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q5").Copy _
Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q5")
Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q7").Copy _
Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q7")
Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q9").Copy _
Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q9")
UserForm2.Show
Exit Sub

Fehler1:
Fehler1.Show
Debug.Print Err.Description, Err.Number, Err.Source
Exit Sub
End Sub

Jetzt würde ich gerne die Datei Kunden Angaben anpassen mit einer Variablen vorneweg.
Dies besteht aus zwei Buchstaben (CA) und sechs Zahlen danach den Fixen Text (_Kunden Angaben).
CA123456_Kunden Angaben

Wie kann ich den Code so anpassen das dies so Funktioniert und ist dies überhaupt möglich?

Danke

 

Hallo,

was meinst du mit "die Datei 'Kunden Angaben' anpassen mit einer Variablen vorneweg"?
Meinst du damit, dass du die Datei im Dateisystem umbenennen willst auf "CA123456_Kunden Angaben.xlsx"?
1) Dann musst du die Datei "Kunden Angaben.xlsx" zuerst schließen, falls sie noch geöffnet ist.
2) Dann das VBA-Statement Name "C:\Pfad\Kunden Angaben.xlsx" As "C:\Pfad\CA123456_Kunden Angaben.xlsx" ausführen, um sie umzubenennen.
3) Die Datei mit neuem Namen eventuell wieder öffnen, falls nötig.

Anmerkung: Obiges Makro kann man vereinfachen zu:

Code:

Sub Kopieren_einfach()
   Dim WsZiel As Worksheet
 
   On Error GoTo Fehler1
   '1. Anlagedaten
   Set WsZiel = Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben")
   With Workbooks("Kunden Angaben").Worksheets("Kunden Angaben")
      .Range("Q5").Copy WsZiel.Range("Q5")
      .Range("Q7").Copy WsZiel.Range("Q7")
      .Range("Q9").Copy WsZiel.Range("Q9")
   End With
  
   UserForm2.Show
  
   Exit Sub
  
Fehler1:
   Fehler1.Show
   Debug.Print Err.Description, Err.Number, Err.Source

End Sub

 

Hi Danke.
Ja das ist klar ich habe von verschiedenen Projekten die Kunden angaben und möchte jetzt die Projekt Nummer vorne hin schreiben. Dies ist nicht das Problem.
Aber wenn ich die Datei mit dem neuen Name wider öffne (CA123456_Kunden Angaben.xls) dann funktioniert dies nicht mehr (ist ja auch klar da der Code nach Kunden Angabe sucht und nicht nach z.B. CA123456_Kunden Angaben).

Ich möchte auch nicht den Code jedes mal für einen Kunden umschreiben.

ich suche nach einer Möglichkeit wie z.B. ????????_Kunden Angaben.xls (?= Variable zahlen und/oder Buchstaben)

wie kann ich dies umsetzen.
Die vorneweg gegebene Nummer besteht immer aus ersten zwei Buchstaben und danach sechs Zahlen.

Kannst du mir da auch weiter helfen?

Gruss
Pascal

 

Hallo,

dann statt einer Stringkonstanten "CA123456_Kunden Angaben.xls" einzelne Teile in Stringvariablen speichern und diese dann mit "&" verketten, zB.:
Dim strPrefix As String, strProjNr As String, strDateiKunde As String
strPrefix = "CA": strProjNr = "123456"
Daraus wird dann durch
strPrefix & strProjNr & "_Kunden Angaben.xls"
ein Ausdruck, der den Stringwert "CA123456_Kunden Angaben.xls" enthält. Er kann einer weiteren Variablen zugewiesen werden, zB.:
strDateiKunde = strPrefix & strProjNr & "_Kunden Angaben.xls"
und die Stringvariable strDateiKunde kann dann anstelle der Stringkonstante eingesetzt werden.

Die Namen und die Typen der Stringvariablen sollten vorher in einer DIM/PUBLIC/PRIVATE-Deklaration festgelegt werden !!!

Siehe dazu eine Einführungsserie in die VBA-Programmierung:
(1708) Better VBA - YouTube

 

Danke für die angaben.
Kannst du mir ein Beispiel machen?
mit dem code?
Danke Gruss
Pascal

 

Hallo,

das übersteigt leider meine (Er)kenntnis. Ich weiß nämlich immer noch nicht, für was ich VBA-Code schreiben soll. Für den irgendwie vermuteten Zweck habe ich Code-Vorschläge abgegeben. Vielleicht weiß jemand andere(r), was da an VBA-Code erwartet wird.