Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.07.2025 18:55:34
Bedingte Formatierung: wenn 2 Zellen gefüllt, dann einfärben
16.07.2025 16:49:43
Füllung nach Datum
16.07.2025 16:28:01
Großes Problem
16.07.2025 15:14:00
Cursor positionieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage

Forumthread: Abfrage

Abfrage
02.10.2003 15:16:12
Michael
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?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Datenabfrage
Tags
#abfrage #datenverarbeitung #verpackungen
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Abfrage
02.10.2003 15:38:56
Lutz
Hier der Vorschlag von Mac noch etwas präzisiert:

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

Gruß
Lutz
Anzeige
AW: Abfrage
02.10.2003 15:47:19
Michael
Jungs ihr seid grosse Klasse-
Vielen Dank
AW: Abfrage
02.10.2003 16:11:16
Beni
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige