Automatische Datenübernahme (VERWEIS)

Forumthread: Automatische Datenübernahme (VERWEIS)

09.03.2004 00:05:31

CharlyS.

Hallo!
Ich möchte mich wieder einmal mit einer Frage an euch wenden.
Ich habe ein 2-seitiges Arbeitsblatt einer Excel-Mappe.
Arbeitsblatt1 = VK-Preise
Arbeitsblatt2 = Auftrag
Arbeitsblatt1 besteht aus 6 Spalten, wobei die Spalten so ausehen:
A_________B_______C________D_______E_________F
Art.-Nr.___Preis____Art.-Nr.___Preis_____Art.-Nr.____Preis
1005 ....... 24,50 ........ 1230 ......... 8,90 ........ 1500 .......... 12,50
Arbeitsblatt2 (Auftrag), siehts so aus: Kunde bestellt ....
A_________B_______C________D
Menge___Art.-Nr.___Preis____Summe
2 Stk. ....... 1230 ............................ =C2*A2
5 Stk. ....... 1005 ............................ =C3*A3
Ich möchte in Spalte C, Arbeitsblatt2 die Preise aus dem Arbeitsblatt1, jeweils die rechte Spalte der jeweiligen Art.-Nr. (Zelle mit dem Preis) übertragen haben. Sodass Excel die vorgegebene Art.-Nr. in Spalte B(Arbeitsblatt2) aus dem gesamten Arbeitsblatt2 sucht und den Wert (Preis)der rechts davon befindlichen Zelle in Arbeitsblatt2 Spalte C überträgt. Die Werte der Spalten A und B werden manuell, lt. Auftrag eingegeben!
Ich hoffe, ich habe mich einigermaßen klar ausgedrückt. Sollte das funktionieren.. Vielen Dank im Voraus!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatische Datenübernahme (VERWEIS)

09.03.2004 01:29:26

Franz
Funktioniert das auch mit einer Formel ?

09.03.2004 08:36:10

CharlyS.

AW: Automatische Datenübernahme (VERWEIS)

09.03.2004 01:29:26

Franz

Hi,
Habe zwar selbst erst mit VBA begonnen aber das sollte eigentlich funktionieren.
Öffne den VBA Editor, dann Einfügen,Modul dort setzt du dieses Makro ein.


Sub Verweis()
Dim I As Integer
Dim Z As Integer
Dim S As Integer
For I = 2 To 10 'Länge des Auftrages bisher nur bis Zeile10
For Z = 2 To 10 'Länge der Datenbank bisher nur bis Zeile10
For S = 1 To 6 Step 2 'Breite der Datenbang bisher nur bis Spalte F
If Worksheets("Tabelle2").Cells(I, 2) = Worksheets("Tabelle1").Cells(Z, S) Then
Worksheets("Tabelle2").Cells(I, 3) = Worksheets("Tabelle1").Cells(Z, S + 1)
'Tabelle1 ist die Datenbank und Tabelle2 der Auftrag
End If
Next
Next
Next
End Sub

Gruß Franz

Funktioniert das auch mit einer Formel ?

09.03.2004 08:36:10

CharlyS.

Hallo!
Es wäre mir sehr geholfen, wenn mein Problem mit einer Formel funktioniert.
Habe noch nie mit VBA was gemacht.
Bitte ...Bitte ..Bitte

Beliebteste Forumthreads (12 Monate)

Automatische Datenübernahme (VERWEIS)

Forumthread: Automatische Datenübernahme (VERWEIS)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread