Ich stehe gerade vor einem Problem wo ich nicht mehr weiter komme.
In meiner Exceldatei Datei auslesen.xlsm lese ich aus einem Windowsordner alle Dateien aus.
Mit einem Doppelklick auf die entsprechende Datei öffne ich die Datei (outlook) und verschiebe sie in einen neuen Ordner.
Das klappt alles soweit. hier der Teil des Codes der für nachfolgendes Problem interessant ist:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zellinhalt As String
Dim Anzahl As Long
Dim Bereich As Range
Dim BisBereich As Long
Set Bereich = Range("A5:A50")
Anzahl = WorksheetFunction.CountA(Bereich)
BisBereich = Anzahl + 4
If Intersect(Target, Range("A5:A" & BisBereich)) Is Nothing Then Exit Sub
zellinhalt = Range(ActiveCell.Address).Value
pfadalt = "T:\..."
pfadneu = "T:\..."
pfadaltunddatei = pfadalt & zellinhalt
Pfadneuunddatei = pfadneu & zellinhalt
' MsgBox "Die Datei " & zellinhalt & " wird in den Ordner '" & pfadneu & "' verschoben"
Name pfadaltunddatei As Pfadneuunddatei
Call msgDateiÖffnen(Pfadneuunddatei)
' MsgBox ("Bitte Datei auswählen")
End Sub
Nun möchte ich aber zusätzlich eine neue Exceldatei Adressen3.xlsm öffnen und den Inhalt der variable pfadneuunddatei übergeben. Anschliessend sollte die Datei auslesen.xlsm geschlossen werden und Adressen3.xlsm aktiv sein.
Wie muss ich meinen Code ergänzen damit dies klappt?
Bin für jede Hilfe dankbar bin aber nicht der VBA Crack....
Liebe Grüsse und schönes Wochenende
Rolf