Ich nochmal :)
Private Sub Button_Obsolete_Click()
'Variablen deklarieren
Dim rngBereich As Range
Dim sWert As String
Dim wb As Workbook
Dim wbZwei As Workbook
Dim ws As Worksheet
Dim wsZwei As Worksheet
Set wb = ThisWorkbook 'Workbook setzen
Set ws = wb.Sheets("Preisliste") 'Worksheet setzen
lSpalte = 1 'Spalte angeben, wo in Preisliste zu suchen ist
strFile = Application.GetOpenFilename 'Dateidialog
Set wbZwei = Workbooks.Open(Filename:=strFile) 'ausgewählte Datei öffnen
Set wsZwei = wbZwei.Sheets("OBSO") 'Worksheet setzen
wsZwei.Select
Ich muss diesen Code umschreiben, denn ich möchte keine neue Datei öffnen, sondern meine bereits geöffnete Datei nehmen.
Diese ist geöffnet, weil sie in einem Makro, welches zuvor ausgeführt wird, verwendet wurde.
Mit meinem neuen Makro muss ich weitere Änderungen durchführen.
Der Name von der Datei kann sich verändern, deswegen kann ich nicht mir Windows(xxx.xls).Activate verwenden.
Ich brauche einen Code, der mir sagt nimm von der bereits geöffneten Datei die Daten.
|