Hallo,
in dem Sheet "Worksheet" wird ein Schlüsselbegriff(in der Zelle "C2") generiert. Dieser Schlüsselbegriff existiert im Sheet "Inventory" irgendwo in Spalte C entweder genau 1 mal oder gar nicht.
Klickt man nun auf CommandButton1 so soll Excel suchen, ob der Schlüsselbegriff irgendwo in Spalte C vorhanden ist. Falls vorhanden, soll der untere Code ausgeführt werden. Falls nicht, soll eine Meldung ausgeworfen werden, dass der Code in Spalte C im Sheet "Inventory" nicht existiert.
Private Sub CommandButton1_Click()
Dim i As Long
Dim pnsn_lagerbestand As String
Dim pnsn_einlagern_auslagern As String
Dim Datum As Date
Dim Ende As Long
Ende = Sheets("Inventory").Cells(Rows.Count, 1).End(xlUp).Row
pnsn_einlagern_auslagern = Sheets("Worksheet").Range("C2")
Datum = Sheets("Worksheet").Range("D2")
'Bereich kopieren
Sheets("Worksheet").Range("A2:D2").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("History").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Inventory").Select
Range("C1").Select
For i = 1 To Ende
If pnsn_einlagern_auslagern = Sheets("Inventory").Range("C" & i) Then
'Sheets("Lagerbestand").Range("E" & i) = Datum
Sheets("Inventory").Range("A" & i).Select
Selection.ClearContents
Sheets("Inventory").Range("B" & i).Select
Selection.ClearContents
Sheets("Inventory").Range("C" & i).Select
Selection.ClearContents
Sheets("Inventory").Range("D" & i).Select
Selection.ClearContents
End If
Next i
'Lagerbestand sortieren
ActiveWorkbook.Worksheets("Inventory").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Inventory").AutoFilter.Sort.SortFields.Add Key _
:=Range("A1:A359"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Inventory").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'lza liste aktualisieren
Sheets("LZA").Select
ende3 = Sheets("LZA").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A2:D" & ende3).Select
Application.CutCopyMode = False
Selection.ClearContents
ende4 = Sheets("Inventory").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Inventory").Activate
Sheets("Inventory").Columns("D:F").Select
Selection.EntireColumn.Hidden = False
Sheets("Inventory").Range("A2:B" & ende4).Copy
Sheets("LZA").Range("A2").PasteSpecial xlPasteValues
Sheets("Inventory").Range("D2:E" & ende4).Copy
Sheets("LZA").Range("C2").PasteSpecial xlPasteValues
Sheets("Inventory").Columns("E:E").Select
Selection.EntireColumn.Hidden = True
'LZA Remove until sortieren
Sheets("LZA").AutoFilter.Sort.SortFields.Clear
Sheets("LZA").AutoFilter.Sort.SortFields.Add Key:=Range( _
"E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Sheets("LZA").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Worksheet").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Range("A2:B2").Select
Selection.ClearContents
TextBox1.Text = ""
Application.CutCopyMode = False
Unload UserForm3
End If
End Sub
Hoffe jemand kann mir weiterhelfen. Ich bin am verzweifeln |