|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Per VBA prüfen, ob Wert in anderem Blatt vorhanden |
08.03.2018 15:42:59 |
Olchibert |
|
|
|
08.03.2018 15:43:54 |
Olchibert |
|
|
|
08.03.2018 15:45:59 |
Gast74427 |
|
|
|
08.03.2018 16:13:33 |
Olchibert |
|
|
|
08.03.2018 16:24:24 |
Gast39334 |
|
|
|
08.03.2018 16:43:05 |
Gast22618 |
|
|
Von:
Olchibert |
Datum:
08.03.2018 15:42:59 |
Views:
1558 |
Rating:
|
Antwort:
|
Thema:
Per VBA prüfen, ob Wert in anderem Blatt vorhanden |
|
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Per VBA prüfen, ob Wert in anderem Blatt vorhanden |
08.03.2018 15:42:59 |
Olchibert |
|
|
|
08.03.2018 15:43:54 |
Olchibert |
|
|
|
08.03.2018 15:45:59 |
Gast74427 |
|
|
|
08.03.2018 16:13:33 |
Olchibert |
|
|
|
08.03.2018 16:24:24 |
Gast39334 |
|
|
|
08.03.2018 16:43:05 |
Gast22618 |
|
|