Supportnet / Forum / Tabellenkalkulation
Bin ratlos beim Tabellen vergleichen...HILFE
Frage
Hallo!
Ich habe eine (für mich) schwierige Aufgabe. Möchte sie unbedingt per vba lösen. Schließlich muss ich das ja auch mal lernen...
Also, ich habe 2 Arbeitsblätter
"Tabelle 1" & "Tabelle 2".
In Tabelle 1, Spalte B stehen Abkürzungen.
In Tabelle 2, Spalte A steht die Abkürzung, in Spalte B die Übersetzung.
Ich möchte jetzt jedes Mal, wenn die Abkürzung in Tabelle 1 gefunden wird, die Übersetzung in Tabelle 1, Spalte D eintragen lassen.
Ich probiere seit einer Woche und bekomme es nicht hin.
Bin für Lösungen mega-dankbar!!!!
Antwort 1 von nighty
hi sveninho
ein beispiel :-)
gruss nighty
Sub test()
Dim suche As Range
Dim zaehler As Long
Do
zaehler = zaehler + 1
Set suche = Sheets(2).Range("A:A").Find(Sheets(1).Cells(zaehler, 2))
If Not suche Is Nothing Then
Sheets(1).Cells(zaehler, 4) = Sheets(2).Cells(suche.Row, 2)
End If
Loop While Not zaehler > Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
End Sub
ein beispiel :-)
gruss nighty
Sub test()
Dim suche As Range
Dim zaehler As Long
Do
zaehler = zaehler + 1
Set suche = Sheets(2).Range("A:A").Find(Sheets(1).Cells(zaehler, 2))
If Not suche Is Nothing Then
Sheets(1).Cells(zaehler, 4) = Sheets(2).Cells(suche.Row, 2)
End If
Loop While Not zaehler > Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
End Sub
Antwort 2 von sveninho
Hallo nightly!
Wie beunruhigend...Ich rätsele eine Woche und
von Dir bekomme ich die perfekte Antwort nach einer halben Stunde :-)
Muss dringend einen vba-Kurs belegen.
Vielen Dank!!!!!
Wie beunruhigend...Ich rätsele eine Woche und
von Dir bekomme ich die perfekte Antwort nach einer halben Stunde :-)
Muss dringend einen vba-Kurs belegen.
Vielen Dank!!!!!