derzeit versuche ich die Eingabe von Profilpunkten über eine andere Arbeitsmappe zu realisieren. Dazu sollen folgende Schritte gemacht werden:
1. Über einen Button in einer Userform Arbeitsmappe für die Profilpunkte öffnen
2. Dort können dann entsprechende eingaben gemacht werden
3. Über Button in der Profilpunktarbeitsmappe einige Zellen kopieren und Arbeitsmappe ungespeichert schließen
4. Zurück in der Userform sein
An sich funktioniert das Kopieren (1. bis 3.) auch schon. Leider nur, wenn ich die Arbeitsmappe (Profilpunkte) nicht über die Userform öffne. Ich habe das Gefühl, dass Excel keine 2 Makros gleichzeitig ausführen kann? Was gibt es da denn für Lösungen?
Hier der Code aus der Userform zum öffnen der Excel Arbeitsmappe:
Private Sub CommandButton_Profil_hinzufügen_Click()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Visible = True
objExcel.Application.Workbooks.Open Filename:="C:\******************\Neue Profildaten hinzufü _
gen.xlsm"
End Sub
Und hier der Code aus der Profilpunkt Arbeitsmappe:
Sub Schaltfläche1_Klicken()
Dim wbQuelle As Workbook, wksQuelle As Worksheet
Dim wbZiel As Workbook, wksZiel As Worksheet
Dim strZiel As String
Dim Zeile_Z As Long
Set wbQuelle = Workbooks("Neue Profildaten hinzufügen.xlsm")
Set wksQuelle = wbQuelle.Worksheets("Profildaten hinzufügen")
strPfadZiel = "C:\************\Parametereingabe"
strZiel = "Parametersteuerung.xlsm"
Set wbZiel = Workbooks(strZiel)
Set wksZiel = wbZiel.Worksheets("Profildaten")
Zeile_Z = wksZiel.Cells(Rows.Count, "A").End(xlUp).Row + 1
wksQuelle.Range("D3").Copy
wksZiel.Cells(Zeile_Z, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=False
wksQuelle.Range("C6:C105").Copy
wksZiel.Cells(Zeile_Z, 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
wksQuelle.Range("D6:D105").Copy
wksZiel.Cells(Zeile_Z, 102).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Workbooks("Neue Profildaten hinzufügen.xlsm").Close SaveChanges:=False
End Sub
Vielen Dank für eure Hilfe:)
Grüße
Joe