Herbers Excel-Forum - das Archiv

Abfrage

    Bild

    Betrifft: Abfrage
    von: Michael
    Geschrieben am: 02.10.2003 15:16:12
    Hallo zusammen
    folgendes Problem habe ich:
    Tabelle 1 - Spalte A Feld 1 -Eingabe eines Wertes z.B. A426C
    Tabelle 1 - Spalte B Feld 1 -Eingabe eines Wertes z.B. Karton
    nun soll in Tabelle 1 in Spalte C Feld 1 die Länge des Kartons
    erscheinen, die steht in-
    Tabelle "Verpackungen" und zwar:
    Spalte A Name Kunden - siehe A426C
    Spalte B Verpackung - siehe Karton
    Spalte C steht die Länge = 100 (in cm)
    die Tabelle "Verpackungen" enthält den Kunden mehrmals mit jeweils
    einer anderen Verpackung und den jeweiligen Abmessungen.
    wie geht`s?

    Bild

    Betrifft: AW: Abfrage
    von: Mac4
    Geschrieben am: 02.10.2003 15:27:30
    Hallo Michael,

    schau mal hier:

    https://www.herber.de/bbs/user/1242.xls

    Marc
    Bild

    Betrifft: AW: Abfrage
    von: Lutz
    Geschrieben am: 02.10.2003 15:38:56
    Hier der Vorschlag von Mac noch etwas präzisiert:

    https://www.herber.de/bbs/user/1244.xls

    Gruß
    Lutz
    Bild

    Betrifft: AW: Abfrage
    von: Michael
    Geschrieben am: 02.10.2003 15:47:19
    Jungs ihr seid grosse Klasse-
    Vielen Dank
    Bild

    Betrifft: AW: Abfrage
    von: Beni
    Geschrieben am: 02.10.2003 16:11:16
    Hallo Michael,
    kopiere diesen Code in das Modul der der Tabelle1,
    was ich nicht verstehe ("Spalte A Name Kunden - siehe A426C"), wichtig ist, in welcher Spalte steht z.B. A426C, das ist Suchschlüssel.
    Gruss Beni

    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Column = 1 Then
    Wert = Target
    With Worksheets("Verpackungen").Columns("A")
    Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
    If C Is Nothing Then
    MsgBox "Artikel-Nr nicht vorhanden"
    Exit Sub
    End If
    End With
    Cells(Target.Row, 3) = C(1, 2) ' Spalte 2
    End If
    End Sub
    
    

     Bild
    Excel-Beispiele zum Thema " Abfrage"
    Unterdrückung von Sicherheitsabfragen Arbeitsmappe-Schließen-Abfrage abfangen
    Name der aufrufenden Schaltfläche abfragen Abfrage der markierten Spalten
    Anzahl der einzufügenden Zeilen abfragen Programmabbruch bei Überspeichernabfrage verhindern
    Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Web-Abfrage ohne *.iqy-Datei
    Web-Aktienkursabfrage bei YAHOO Start- und Enddatum abfragen und markieren