hi all :-)

ein beispiel als makro,formeln kommen bestimmt noch von anderen netten usern :-))

gruss nighty

einzufuegen
alt+f11/projektexplorer/Tabelle1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Dim suche As Range
With Worksheets(2)
Set suche = .Range("A:A").Find(Worksheets(1).Cells(Target.Row, 1))
If Not suche Is Nothing Then
Worksheets(1).Cells(Target.Row, 2) = .Cells(suche.Row, 2)
Else
MsgBox ("Es wurde keine Identiche Nummer gefunden" & vbOK)
End If
End With
End If
Application.EnableEvents = True
End Sub

Schonmal danke, leider schaffe ich es irgendwie nicht das makro auszuführen. ich verstehe das nicht, normalerweise müsste es doch gehen spätestens wenn man das dokument nach dem speichern neu öffnet müsste er fragen.

Gruß

hi all :-)

das ist ein automatismus auf spalte a bezogen,einzufuegen wie oben beschrieben

nach eingabe in spalte a wird b befuellt bei fund

gruss nighty

hi all :-)

nochmals

druecke alt+f11
nun ist der vbeditor offen
clicke nun das icon projektexplorer an,es oeffnet sich ein kleines fenster,in diesem werden deine tabellen angezeigt
doppelclick auf tabelle1
dort den code einfuegen
vbeditor schliessen
fertig

gruss nighty

Leider befüllt er mir da gar nichts...

ich habe 11.000 datensätze untereinander

Gruß

Ich bin normalerweise kein völliger noob ( lern it-systemkaufmann) aber es geht def. nicht bei mir. (sitz an der arbeit)

hi all :-)

beispiel mappe :-)

http://www.netupload.de/detail.php?img=8f463486c4d4171cfc55e47c9d96...

gruss nighty

hi all :-)

nochmal linkk ging nicht :-(

gruss nighty

http://www.netupload.de/detail.php?img=c0dbbd2498ae9a20b364a0f92012...

Ihr seit genial :)
EIN SUPER FETTES DANKEEEEE

Ich habe alle 10.000 material nr. mit STRG V eingefügt
jetzt muss ich in Zell A1 klicken danach zeigt er mir den dazugehörigen lieferant in B1 ein

danach A2 , A3, A4 etc.

das dauert nur ewig mit 10.000 Lieferanten in jede zelle einmal zu klicken und zu bestätigen

hi all :-)

zum ergaenzen das makro :-)

gruss nighty

Option Explicit
Sub ergaenzen()
Dim suche As Range
Dim zaehler As Long
With Worksheets(2)
For zaehler = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set suche = .Range("A:A").Find(Worksheets(1).Cells(zaehler, 1))
If Not suche Is Nothing Then
Worksheets(1).Cells(zaehler, 2) = .Cells(suche.Row, 2)
End If
Next zaehler
End With
End Sub

Alle probleme gelöst, bis auf das ich immernoch jede einzelne zelle mit einem doppelklick anklicken muss damit in B"x" die nr. des lieferanten eingetragen wird :(

Alle probleme gelöst, bis auf das ich immernoch jede einzelne zelle mit einem doppelklick anklicken muss damit in B die nr. des lieferanten eingetragen wird :(

Probieren geht über studieren..

hier meine möglichkeit

=SVERWEIS(A2;Tabelle2!$A$1:$B$11617;2;FALSCH)


trotzdem vielen dank an alle ...

hi all :-)

dafuer war das 2 makro gedacht :-)

gruss nighty

testen sollte man schon

Hallo nighty,

Deine Antwort und das Macro ist klasse.
Ich hatte genau das Gleiche Problem ich benötige aber noch eine "Erweiterung". Bei mir handelt es sich um mehrere Tabellen die ich aber nacheinander zusammenführen könnte. Allerdings stehen die Werte die Verglichen werden sollen nicht in der Spalte A einer jeden Tabelle sodern z.B. in Spalte E bei Tabelle 1 und in Spalte H bei Tabelle 2.
Außerdem muss ich dann nicht nur das unmittlebar angrenzende Feld von einer in die andere Tabelle kopieren sondern eigentlich die komplette Zeile dazu.
Ist das Macro so erweiterbar oder wird das zu komplex?

Schno mal vielen Dank im vorraus

Gruß

Uwe

Sorry, noch etwas habe ich vergessen. Die Werte in einer Spalte die ich vergleichen will sind nicht immer nur Zahlen sondern auch Texte und sie kommen stellenweise als Ergebnisse aus Formeln.
Konkret ist das so, dass ich eine Liste (Tabelle) mit Personen habe und eine Zuordnung zur Abteilung, zur Kostenstelle, .... In einer Anderen Tabelle habe ich dann die Telefonnummern zum Namen und in einer dritten dann wieder die Telefonkosten zur Telefonnummer.

ICh muss nun eine Zuordnung schaffen in der ich sehen kann wer in welcher Abteilung für das Telefonieren wieviel bezahlen muss.

noch einmal herzlichen Dank

Uwe