Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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

Betreff
Datum
Anwender
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige