Lesen&Schreiben mit Workbook.Open
04.03.2021 12:25:18
Lizzel
ich möchte über eine UserForm eine Mappe öffnen, einen Wert auslesen, in die Mappe schreiben und diese dann speichern&schließen.
Mappe Öffnen&Lesen&Schreiben&Schließen klappt auch ganz gut, außer ich will die Mappe im Hintergrund haben, dann klappt das Lesen nicht mehr (Schreiben hab ich noch nicht getestet).
Sobald ich "ActiveWindow.Visible = False" aktiviere kann er in der Mappe nicht mehr lesen, ohne klappt alles wunderbar.
Jemand einen Tipp, wieso das so ist? Bzw einen Verbesserungsvorschlag?
Gruß Lars
Sub NMSuch()
Dim rng, rngStart, rngEnd As Long
Dim wb1 As Workbook
Dim wb1pfad As String
Dim wb1name As String
Dim wb1ws1 As Worksheet
Dim bwbopen As Boolean
Dim lastrow As Long
Dim test As String
Dim FreieNR As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
wb1pfad = "L:\XX\XX\XX\" ' _
Datenarbeitsmappepfad
wb1name = "XXX.xlsx" ' Datenarbeitsmappename
Set wb1 = Workbooks.Open(wb1pfad & wb1name) 'Workbooks(wb1name)
Set wb1ws1 = wb1.Worksheets("Nummernkreis")
'ActiveWindow.Visible = False
rngStart = 2
rngEnd = 41
'test = "TEST"
With wb1ws1
lastrow = Cells(rngStart, "E").End(xlDown).Row
If lastrow