Methode ohne Select ausführen
29.03.2020 19:14:02
Tobi
ich möchte folgende Methode ohne Select durchführen (Sub Eingang)
Sub Eingang()
Application.ScreenUpdating = False
Dim ErsteLeereZelle As Range, AufNr As String, c As Range, LagerNr As String
Dim wkbLager As Workbook
Dim wksErfassung As Worksheet, wksLager As Worksheet
Set wksErfassung = Workbooks("Erfassung.xlsm").Worksheets("Eingabe Endkunde")
Set wksLager = Workbooks("Lager.xlsm").Worksheets("Lager")
Set wkbLager = Workbooks("Lager.xlsm")
AufNr = wksErfassung.Range("AufNr")
If AufNr = "" Then Exit Sub
wkbLager.Save
With wksLager.Range("W2:AE41")
Set c = .Find(AufNr, LookIn:=xlValues)
If Not c Is Nothing Then
Exit Sub
End If
End With
With wksLager.Select
'with Sheets("Lager").Select
On Error Resume Next
Set ErsteLeereZelle = Union(Range("Eingang"), Range("Ausgang")).SpecialCells( _
xlCellTypeBlanks)(1)
On Error GoTo 0
If ErsteLeereZelle Is Nothing Then
MsgBox "keine Leerzellen gefunden"
Exit Sub
Else
ErsteLeereZelle.Value = AufNr
ErsteLeereZelle.Activate
LagerNr = Selection.Offset(0, -1)
'ActiveWorkbook.Save
Windows("Erfassung.xlsm").Activate
Sheets("Eingabe Endkunde").Select
Range("Lagerplatz") = LagerNr
End If
End Sub
Wenn man auf Start klickt wird geschaut ob die Auftragsnummer (AufNr) in Zellbereich Eingang und Ausgang vorkommt. Wenn nicht wird die Auftragsnummer in die Erste leere Zelle geschrieben.
Daraufhin wird der Lagerplatz ( links neben dem Eintrag ) in die Zelle "Lagerplatz" in der Datei Erfassung.xlms geschrieben.
Es kommt aber zu einem Fehler
kann mir jemand weiterhelfen?
Anbei die Testdateien
https://www.herber.de/bbs/user/136222.zip
Liebe Grüße
Tobias