ich stehe vor einem Problem bei dem ihr mir hoffentlich auf die Sprünge helfen könnt.
Ich möchte von einem Workbook Daten in ein anderes Kopieren, hierbei kommt im Quellworkbook auch eine Userform zum Einsatz aus der die Daten zweier Textboxen in eine Zelle des Zielworkbooks kopiert werden sollen.
In den zwei fett makierten Zeilen schaffe ich es nicht VBA zu sagen das er die Daten aus dem Quellworkbook (Userform) entnehmen soll.
Es wäre toll wenn ihr mir helfen könntet.
If WTD.Value = True Then
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei As String ' die zu beschreibende Datei
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "C:\Users\tim.gaertner\Desktop\S1.1\ToolTP1\Verknüfungen\"
sDatei = "WTD.xlsm"
'Application.ScreenUpdating = False
If Dir(sPfad & sDatei) "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Datenbank")
Set WkSh_Z = Workbooks(sDatei).Worksheets("S6.4")
WkSh_Z.Activate
letzteZeile = ActiveSheet.Cells(Rows.count, 3).End(xlUp).Row + 5
WkSh_Q.Cells.Range("A45:AT50").Copy Destination:=WkSh_Z.Range("C" & letzteZeile)
WkSh_Z.Activate
last = ActiveSheet.Cells(Rows.count, 3).End(xlUp).Row
ActiveSheet.Cells(last, 3).Value = meinFormular11.Text_Name.Value
ActiveSheet.Cells(last, 4).Value = meinFormular11.Kategorie.Value
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End If