Wert suchen nach Bedingung die 2.

08/10/2008 - 21:24 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002.
Habe schon alles versucht (was ich weiß) und auch schon gesucht, finde
nichts und geht auch nicht.

Im aktiven Blatt in Spalte A stehen "Artikelnummern", im Blatt "Bauteile"
stehen in Spalte B die Artikelnummern (sortiert) und in Spalte G die
einzelnen Bauteile.
Es soll jetzt folgendes passieren:
Wird im aktiven Blatt auf eine "Artikelnummer" geklickt (Zelle ausgewàhlt)
soll im Blatt "Bauteile" nach der Artikelnummer gesucht werden und die
einzelnen Bauteile im aktiven Blatt ab der aktuellen Zeile in Spalte F
eingetragen werden.
Die Anzahl der einzelnen Bauteile kann variieren.
Wird irgendwo anders als in Spalte A geklickt, soll nichts passieren.

Bitte dringend um Hilfe, bin hier am verzweifeln.
MfG
Peter
 

Lesen sie die antworten

#1 Claus Busch
08/10/2008 - 21:55 | Warnen spam
Hallo PEter,

Am Wed, 8 Oct 2008 21:24:21 +0200 schrieb Peter Schürer:

Im aktiven Blatt in Spalte A stehen "Artikelnummern", im Blatt "Bauteile"
stehen in Spalte B die Artikelnummern (sortiert) und in Spalte G die
einzelnen Bauteile.
Es soll jetzt folgendes passieren:
Wird im aktiven Blatt auf eine "Artikelnummer" geklickt (Zelle ausgewàhlt)
soll im Blatt "Bauteile" nach der Artikelnummer gesucht werden und die
einzelnen Bauteile im aktiven Blatt ab der aktuellen Zeile in Spalte F
eingetragen werden.
Die Anzahl der einzelnen Bauteile kann variieren.
Wird irgendwo anders als in Spalte A geklickt, soll nichts passieren.



ich hoffe, dass ich dich richtig verstanden habe ;-)
Teste mal folgenden Code im Codemodul des aktiven Blattes:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is _
Nothing Then Exit Sub

Dim rngZelle As Range
Dim n As Long
Dim LRow As Long

n = 6
With Sheets("Bauteile")
LRow = .Range("B" & Rows.Count).End(xlUp).Row
For Each rngZelle In .Range("B1:B" & LRow)
If rngZelle.Value = Target.Value Then
Cells(Target.Row, n) = rngZelle.Offset(0, 5)
n = n + 1
End If
Next
End With
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen