Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Abfrage
- Abfrage von Michael vom 02.10.2003 15:16:12
- AW: Abfrage - von Mac4 am 02.10.2003 15:27:30
- AW: Abfrage - von Lutz am 02.10.2003 15:38:56
- AW: Abfrage - von Michael am 02.10.2003 15:47:19
- AW: Abfrage - von Michael am 02.10.2003 15:47:19
- AW: Abfrage - von Beni am 02.10.2003 16:11:16
- AW: Abfrage - von Mac4 am 02.10.2003 15:27:30
 |
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?
 |
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
| |
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
| |
Betrifft: AW: Abfrage von: Michael
Geschrieben am: 02.10.2003 15:47:19
Jungs ihr seid grosse Klasse-
Vielen Dank
| |
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
| |