Private Sub Button_Obsolete_Click()
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
Set ws = wb.Sheets("Preisliste")
lSpalte = 1
strFile = Application.GetOpenFilename
Set wbZwei = Workbooks.Open(Filename:=strFile)
Set wsZwei = wbZwei.Sheets("OBSO")
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.