Diskussionsgruppe: Tabellenkalkulation
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!!!!
Von: sveninho Datum: 20.01.2007, 17:20
Antwort 1
von nighty vom 20.01.2007, 17:59
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
Antwort 2
von sveninho vom 20.01.2007, 18:55
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!!!!!
|
07101
07102
07103
07104
07105
07106
07107
|
