Ich benötige einmal mehr Euch es Wissen
Auf einer Tabelle2 (Einstellungen) sind ID, Name, .... & Pfad angegeben. Diese Daten werden in einer Listbox (UserForm1) eingelesen und können in einer weitern Userform2 bearbeitet werden.
Diese Mappe ist angedacht, dass es aus diversen anderen Mappen Daten kopiert, das habe ich auch hinbekommen.
Nun wäre es aber sehr schön, wenn ich den Pfad als Variable in der Userform2 verwenden könnte, um meinen Import zu starten:
Der "sPfad" und "PR_1" müssen variabel werden, diese Daten sind auf der Tabelle2(Einstellungen)
__________________________________________________________________________________
Mein Code für den Import (immer auf eine bestimmte Zelle fixiert)
Private Sub CommandButton6_Click()
'Projekt 1 (PR1) Realisierung
Dim wbQuelle As Workbook
'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Dateipfad der Quelldatei
sPfad = ActiveWorkbook.Worksheets("Einstellungen").Range("B3").Value
'Prüfen, ob ein Pfad hinhterlegt ist, in Tabelle Einstellungen
If Worksheets("Einstellungen").Range("B3").Value = "" Then
MsgBox "PR1 Realisierung - kein Pfad vorhanden!", vbSystemModal + 16
Exit Sub
End If
'Prüfen, ob Datei existiert
If Dir(sPfad) > "" Then
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren und einfügen
wbQuelle.Worksheets(3).Range("A1:CB20").Copy
Dim ws As Worksheet
On Error Resume Next
Set ws = ThisWorkbook.Worksheets("PR1_R")
On Error GoTo 0
If ws Is Nothing Then
MsgBox "Tabelle PR1_R nicht vorhanden!", vbSystemModal + 16
wbQuelle.Close SaveChanges:=False
Exit Sub
End If
'hier gehts weiter, falls die Tabelle existiert!
ThisWorkbook.Worksheets("PR1_R").Range("A1").PasteSpecial (xlPasteValues)
Set ws = Nothing
'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False
End If
Worksheets("cruising_speed").Activate
'ScreenUpdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
__________________________________________________________________________________
Wie kann ich diese Variable in einen Code einsetzten, resp. den Pfad (Spalte F) und die Tabelle (Spalte E) aus der ausgewählten Zeile verwenden?
(resp. der oben aufgeführte Code, in der UserForm2 (Bearbeitung) einfügen)
_______________________________________________________________________________
Private Sub CommandButton2_Click()
sPfad = .Cells(p_aktuelleZeile, 6).Value
Workbooks.Open (sPfad)
End Sub
____________________________________________________________
Ich habe schon vieles versucht, jedoch kommt immer eine Fehlermeldung.
Ich wäre Euch sehr dankbar, für eine Hilfestellung.
Lg Ralf