|
Hallo Zusammen,
ich möchte mir das Leben auf der Arbeit ein wenig leichter gestalten und das mit Hilfe von VBA. Leider stoße ich gerade an meine Grenzen und bitte daher euch um Hilfe.
Der nachstehende Excelausschnitt zeigt was ich gerne machen möchte (Leider ohne Farben). Also A1-A3 sollen fixe Felder bleiben, hinterlegt sind einmal der Name "Paket 1" sowie eine Farbe bspw. rot bei Paket 1 und bei Paket 2 bspw. grün. (Nachstehendes hab ich schon im VBA geschrieben) Der Suchwert wird eingegeben, daraufhin wird bei einem Treffer (also die eingegebene zahl wurde gefunden) diese Zelle farbig markiert. Leider kann ich das nur mit einer Farbe machen, daher auch die Felder A1-3. Mit diesem Feldern will ich eine Zuordnung machen, also ist bspw. ein Paket voll gepackt möchte ich gerne per klick auf "Paket 2" mit einer anderen Farbe weiter arbeiten.
Zu dem wäre es genial wenn wie in Spalte C-E mir die entsprechenden Nummern angezeigt werden würden. Gesamtposition ist komplett fortlaufend. Position im Paket wäre bei Klick auf "Paket 2" soll von 1 wieder angefangen werden und Paket# soll immer die jeweilige Paket# hinter die entsprechende Zeile schreiben!
Wäre sowas möglich?
|
Paket 1 |
|
|
|
|
|
Paket 2 |
|
|
|
|
|
Paket 3 |
|
|
|
|
|
|
Suchwert |
|
|
|
|
|
5002554033 |
Gesamtposition |
Position im Paket |
Paket# |
|
|
5002554033 |
1 |
1 |
1 |
|
|
5002554034 |
|
|
|
|
|
5002554035 |
|
|
|
|
|
5002554036 |
|
|
|
|
|
5002554037 |
|
|
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
Dim rngSuchen As Range
Set rngSuchen = Range("B6:H500"). _
Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByColumns)
If rngSuchen Is Nothing Then
Target.Select
MsgBox ("Nicht gefunden")
Exit Sub
End If
rngSuchen.Interior.ColorIndex = 6
Target.Select
'rngSuchen.Select
End If
End Sub
.
Vielen Dank für eure Hilfe!
VG Markus
|