HILFE
11.09.2008 14:01:00
Merle
Also ich habe ein Excel-Formular das eine Liste enthält. Hier Beispiel:
https://www.herber.de/bbs/user/55297.xls
1.Ich hätte ich gerne, dass in der Zelle D99 alle Kostenstellen, durch jeweils ein Komma getrennt, erscheinen, die eingeblendet sind, wenn ich einen bestimmten Lieferanten auswähle.Die Kostenstellen stehen in der Liste D17:D1000. Zur Zeit wird leider immer nur die letzte Kostenstelle des jeweils ausgewählten Lieferanten in die Zella D99 übertragen.
2.Ich würde gerne in Tabelle2 eine Liste erstellen in der die Ausgaben in H17:H1000(Tabelle1) additiert werden. Dies jedoch nach folgenden Kreterien:
- Lieferant Lieferdatum auf dem Jahr 2007
-Lieferant Lieferdatum aus dem Jahr 2008
So, dass ich in Tabelle2 eine Übersicht, über die Jahres Ausgaben jedes einzelnen Lieferanten habe.
3. Ist mein wichtigstes Anliegen. Mir wurde gestern schon erfolgreich geholfen, jedoch hat mein Chef einen speziellen Wunsch. Er würde gerne in Tabelle3 in Zelle C3 ein Wort oder eine Zahl eingeben können, dass dann in der kompletten Liste A17:H1000 in Tabelle1 gesucht wird.
Ganz lieben Dank schonmal im Voraus. Bin sehr dankbar für eure Hilfe.
Gruß Merle
Leider funktioniert Ansatz 3. so noch nicht ganz:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Set wk1 = Worksheets("Tabelle1")
With wk1
Set Erg = .Cells.Find(What:=Range("C3"), After:=.Range("A17"), LookIn:=xlValues, LookAt: _
_
_
_
=xlPart)
If Not Intersect(Erg, .Range("A17:H1000")) Is Nothing Then
Range("C4") = Erg.Address(0, 0)
Else
Range("C4") = "Nicht gefunden"
End If
End With
End If
End Sub
DIE BEIDEN ANDEREN FRAGEN SIND NOCH OFFEN. Kann mir jemand helfen?