Zellen vergleichen und Text schreiben

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Ich mal wieder!

Folgende Tabellen

Sheet 1 enthält:

Quelle–Startzeit—Endzeit—Menge—Dauer—Prozessnr—Prozessbez.
Tank—13.11.07–14.11.07-----30kg—0:10:20—333—(soll aus Sheet 2 kommen)

Sheet 2
Nummer-----Bezeichnung-----Bezeichn2-----Einheit
50121------Testlauf--------100’----------n
50333------Durchgang-------589’----------n

Folgendes: die Prozessnummer aus Sheet1 ist die Nummer aus Sheet 2 - Nummer. In Sheet 2 steht nur eine 3 stellige Zeichenfolge vorweg, die letzten 3 Zahlen sind aber immer die Prozessnummern aus Sheet 1.
Jetzt möchte ich gerne die Prozessnr aus Sheet 1 mit den Nummern aus Sheet 2 vergleichen, enthält Nummer aus Sheet 2, die Zahlenfolge aus Prozessnr. soll die Bezeichnung aus Sheet 2 in Prozessbez von Sheet 1 geschrieben werden.

Ich hoffe das ist verständlich und ihr könnt mir wieder einmal helfen.

#2

Hallo,

  1. Das müsste eigentlich auch ohne VBA gehen, mit

VERWEIS(Suchkriterium;Vergleichsvektor;Ergebnisvektor)
z.B.: =VERWEIS(A1;Tabelle2!A1:A10;Tabelle2!B1:B10)

und

RECHTS(Wert,Länge)
in deinem Fall z.B.: =RECHTS(A1;3)

  1. Per gehts VBA auch nicht schwer:

Alle verwendeten (siehe der Thread über deinem) Reihen mit For i = … und Next i durchgehen, in der Schleife prüfen ob Sheets(1).Cells(QuellZeile,QuellSpalte) = Right(Sheets(2).Cells(i,SuchSpalte),3), wenn ja dann Sheets(1).Cells(QuellZeile,ErgebnisSpalte) = Sheets(2).Cells(i,NamensSpalte) und Exit Sub.

Hoffe du hast schon ausreichende Kenntnisse um mein Antwort umsetzen zu können, sonst einfach noch mal nachfragen.

Gruß Phil