Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Datenübernahme (VERWEIS)

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
Anzeige
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
Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige