Hallo zusammen
Ich verstehe das Forum und die Archivierung nicht ganz, der alte Beitrag war "Hilfe: Variabler Pfad, aus einer Listbox" das ist aber gelöst.

Nun würde ich gerne die Tabelle nicht über die Architektur (3) sondern den CodeName ansprechen, in meinem Beispiel handelt es sich um:

wbQuelle.Worksheets(3).Range("A1:CB20").Copy --> WorkSheets(3). --> sollte den CodeName "shAuswertung" ansprechen auf der andern Mappe.


Ich hoffe ich habe es verständlich zusammengefasst und Ihr könnt mir nochmals helfen.

Besten Dank im Voraus.
Lg Ralf

der original Code lautet:
______________________________________________________________

Sub Import_Realisation()
Dim sPfad As String
Dim sDatei As String
Dim sDateiName As String
Dim sWSName As String
Dim wsZiel As Worksheet
Dim wbQuelle As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Prüfen, ob PR1_A vorhanden ist
sWSName = Tabelle2.Cells(p_aktuelleZeile, 8).Value '7te Zelle in einer Zeile ist in Spalte H
Set wsZiel = Ws_holen(sWSName)
If wsZiel Is Nothing Then
MsgBox "Tabelle """ & sWSName & """ nicht vorhanden!", vbCritical
Exit Sub
End If

'Prüfen, ob ein Pfad hinhterlegt ist, in Tabelle Einstellungen
sPfad = Tabelle2.Cells(p_aktuelleZeile, 9) '9te Zelle in einer Zeile ist in Spalte I
If sPfad = "" Then
MsgBox "PR1 Realisation - kein Pfad vorhanden!", vbCritical
Exit Sub
End If

'Prüfen, ob eine Datei hinhterlegt ist, in Tabelle Einstellungen
sDatei = Tabelle2.Cells(p_aktuelleZeile, 10) '10te Zelle in einer Zeile ist in Spalte J
If sDatei = "" Then
MsgBox "PR1 Realisation - kein Datei angegeben!", vbCritical
End If

sDateiName = sPfad & "\" & sDatei

'Prüfen, ob Datei existiert
If Dir(sDateiName) = "" Then
MsgBox "Datei" & vbCr & """" & sDatei & """" & vbCr & "scheint nicht vorhanden zu sein!", vbCritical
Exit Sub
End If


'wenn alles passt, dann machen

Set wbQuelle = Workbooks.Open(sDateiName)
wbQuelle.Worksheets(3).Range("A1:CB20").Copy
wsZiel.Range("A1").PasteSpecial (xlPasteValues)
wbQuelle.Close SaveChanges:=False

Worksheets("cruising_speed").Activate

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub