ich versuche aus eine fremde Tabelle (Tabelle1 - Quelle) 6 Spalten in ("Chord - Arpeggio - Ziel) zu kopieren.
Habe folgende Code hier im Forum gefunde, nach meine Bedurfnisse angepasst, aber es geschiet nichts.
Sub AkkordenLaden()
Application.ScreenUpdating = False
Dim wb1 As Workbook
Dim wb1pfad As String
Dim wb1name As String
Dim wb2 As Workbook
Dim wb2pfad As String
Dim wb2name As String
Dim wb1ws1 As Worksheet
Dim wb2ws1 As Worksheet
Dim bwbopen As Boolean
On Error GoTo Weiter
wb1pfad = wb2ws1("Chord - Arpeggio").Range("DB2").Value ' Datenarbeitsmappepfad
wb1name = wb2ws1("Chord - Arpeggio").Range("DB3" & "DB5").Value '& wb2ws1("Chord - _
Arpeggio").Range("DB5").Value ' Datenarbeitsmappename
wb2pfad = "C:\Users\a.mazza\Desktop\PS\" ' Zielarbeitsmappepfad
wb2name = "GUITAR MAP 1.xlsm" ' Zielarbeitsmappename
bwbopen = WorkbookIsOpen(wb1name)
If bwbopen = False Then
Workbooks.Open (wb1pfad & wb1name)
Else
End If
Set wb1 = Workbooks(wb1name)
Set wb2 = Workbooks(wb2name)
Set wb1ws1 = wb1ws1("Tabelle1") ' Datenarbeitsmappentabelle
Set wb2ws1 = wb2ws1("Chord - Arpeggio") ' Zielarbeitsmappentabelle
wb2ws1("Chord - Arpeggio").Range("Z1:AE").ClearContents
wb1ws1("Tabelle1").UsedRange.Copy wb2ws1("Chord - Arpeggio").Range(" _
Z1")
' wb2ws1.Cells.PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
If bwbopen = False Then
wb1.Activate
ActiveWorkbook.Close
Else
End If
Range("A1").Select
Weiter:
On Error Resume Next
bwbopen = WorkbookIsOpen(wb1name)
If bwbopen = True Then
wb1.Activate
ActiveWorkbook.Close
Else
End If
Application.ScreenUpdating = False
' ### Hier kommt dein weiterführender Code
End Sub
Function WorkbookIsOpen(WBName As String) As Boolean
On Error Resume Next
WorkbookIsOpen = Not Workbooks(WBName) Is Nothing
End Function
Habe den Code oft kontrolliert finde aber nichts ungewohnliches.Vielleicht ist jergendwo ein Fehler den ich nicht merke.
Ich bitte um ein wenig Hilfe.
Vielen Dank im Voraus
Antonio