Office: Vergleichen 2 spalten wenn wert übereinstimmt dann..

mensch du bist ja da ^^

jetzt nimmt er die Daten nicht mehr mit rüber ( Tabelle2 spalte A wird nicht mehr mit übertragen)

 

Moin Ron
Wo sind denn die Leerzeichen im Suchtext oder im gefundenen Text?
Hast du mal eine Bsp.-Mappe mit zwei / drei realen Beispielen. Meine Teststrings sehen bestimmt anders aus.
gruss hary

 

so an bei die beiden Tabellen

Tabelle2 = Artikel
Tabelle1 = Bestellung

 

Hallo Ron
Erst heute nachmittag. Da hab ich Ruhe.
gruss hary

 

kein streß bin für jede Hilfe dankbar

 

Hi Hary

Hab jetzt beide suche as string mit reingenommen
dann funktioniert es das die Spalte A mit übernommen wird

so reicht es mir eigentlich es sei den du hast noch ne bessere Variante oder
an den beiden Suche as String könnten noch fehler auftreten.

gruß
Ron

 

Hallo Ron
Mir kam, nur mit dem Code, keine Idee.
Aber was haelst du von einem Userform?
Beim klicken in SpalteE erschein das Form. Cbo wird aufgeklappt. Wortauswahl wird vervollstaendigt. Uebernahme mit Entertaste. Lfd.-Nr. wird automatisch gesetzt.
gruss hary

 

Na
die komplette Datei arbeitet schon mit Userformen ^^

also was mir aufgefallen ist

das Sheet Bestellung nur mit dem Leerzeichen replace arbeitet

also werden halt nur die Artikelnummer übernommen die im Artikel sheet
genauso sind (9 zeichen) wie im Bestellungs Sheet

kann man diese Leerzeichen geschichte nicht auch auf die Artikel Sheet suche mit einbinden dann sollte es funktionieren


Also mechanik

die Daten werden nach eingabe in Userform in die Bestellung eingetragen dann kommt dein Code mit dem Suche Vergleich Sub rueber() ^^

also wenn z.b. Delix 5mg übertragen wird klappt der übertrag der Artikelnummer
wenn aber Delix 5 mg übertragen wird funktioniert es nicht mit dem Artikelübertrag

Gruß
Ron

 

Hallo Ron
Da faellt mir nur ein was mit zwei schleifen. Entfernt aus beiden die Leerzeichen und sucht mit Instr.
Code:

gruss hary
Variable umbennen bekommst du ja hin. i und ii ist nicht schoen.
gruss hary

 

Fein

funktioniert

danke Dir
Hary

Gruß
Ron

 

Hab den Fehler gefunden *Smilie ... jetzt muss ich nur noch (als Neuling) rausfinden, wie ich diesen Beitrag löschen kann

 

Hallo zusammen,

ich habe mal eine Frage zu dem ursprünglichen Code

##################################
Sub rueber()
Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.Count, 2).End(xlUp).Row
For i = 1 To letzte
a = Application.Match(wksZ.Cells(i, 2), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 1).Value = wksQ.Cells(a, 1).Value
Else
MsgBox "nicht vorhanden"
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub
#################################

Ich habe versucht den Code so anzupassen das zeilenweise in Spalte A und B von Tabelle1 mit zeilenweise Spalte A und B von Tabelle 2 verglichen werden. Wenn sie übereinstimmen soll Spalte C von Tabelle2 zu Tabelle1 kopiert werden.
Dazu habe ich versucht über
a = Application.Match(wksZ.Cells(i, 2), wksQ.Columns(2), 0)
die Werte anzugleichen, aber ich bekomme es nicht hin:
a = Application.Match(wksZ.Cells(i, 1),Cells(i,2)), wksQ.Columns(1),Columns(2), 0) -> funktioniert nicht - Range-Methode *mad.gif*

Könnt ihr mir helfen?

 

Hallo zusammen,

ich habe mal eine Frage zu dem ursprünglichen Code

PHP:

         Sub rueber()
Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.Count, 2).End(xlUp).Row
For i = 1 To letzte
a = Application.Match(wksZ.Cells(i, 2), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 1).Value = wksQ.Cells(a, 1).Value
Else
MsgBox "nicht vorhanden"
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub