Was ist in dem folgenden Quellcode falsch?
Das PasteSpecial funktioniert nicht.
Ab ... Destination:=WkSh_Z ... stimmt etwas nicht
Ich möchte aus der Quelldatei, Tabelle1, C4:C45 Werte in die Zieldatei, Tabelle1 übertragen.
Dabei soll in der Zieldatei über in der Spalte A die erste leere Zelle gefunden werden und die Werte anschließend ab dort horizontal transponiert übertragen werden.
Eigentlich doch nicht so schwer ... aber funzt einfach nicht.
Hier der Code:
Public Sub Schreiben()
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:\Testumgebung\"
sDatei = "Zieldatei.xlsx"
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("Tabelle1")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle1")
WkSh_Q.Cells.Range("C4:C45").Copy Destination:=WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Offset( _
1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=true
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub
Vielen Dank für jeden Tipp!VG
Dietmar