Marko verändern (vlookup)
27.06.2008 09:45:25
Tobi
ich möchte gerne mit Hilfe eines VLOOKUP (SVERWEIS) Makros Daten von einer Exceldatei in eine andere kopieren. Ich habe dazu ein Makro, welches gut funktioniert. Jetzt habe ich allerdings ein Problem:
Meine Exceltabelle besteht aus der Spalte B (Abteilungsbeschreibung) und Spalte I (Mitarbeiteranzahl bzw. Personalkosten:
Spalte B Spalte I
Vertrieb 6
Personalabteilung 4
Produktion 30
Controlling 3
Vertrieb 40000,-
Personalabteilung 30000,-
Produktion 25000,-
Controlling 35000,-
Diese möchte ich per vlookup (sverweis) in eine andere Exceldatei spielen. Mein Makro sieht im Moment so aus (die fettgedruckten Zeilen sind das Problem):
ChDrive "I"
ChDir "I:\B Beteiligungscontrolling\F_Team BTC\Diplomanden\Leyhr\20 Diplomarbeit\50 Planungstool\aktuell"
filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If filetoopen "False" And filetoopen "Falsch" And filetoopen "" Then
Workbooks.Open filetoopen
With ActiveWorkbook
'Personal
Set Pers = ThisWorkbook.Sheets("Pers")
.Sheets("Pers").Range("A19:A200").Copy Destination:=Pers.Range("A36:A200")
.Sheets("Pers").Range("B19:B200").Copy Destination:=Pers.Range("B36:B200")
.Sheets("Pers").Range("C19:C72").Copy
Pers.Range("C36:C200").PasteSpecial Paste:=xlPasteValues
Pers.Range("BF27").FormulaR1C1 = "=VLOOKUP(R[0]C2,'[" & .Name & "]Pers'!C2:C9,8,FALSE)"
Pers.Range("BG27").FormulaR1C1 = "=VLOOKUP(R[0]C2,'[" & .Name & "]Pers'!C2:C9,8,FALSE)"
In BF27 soll die Mitarbeiteranzahl eingespielt werden und in BG27 sollen die Personalkosten eingespielt werden. In der Spalte B stehen die ja zwei mal diegleichen Abteilungsbeschreibungen (siehe oben). Wenn ich das Makro so laufen lassen, kopiert es mir sowohl in BF27 und BG27 die Mitarbeiteranzahl. (wahrscheinlich weil die zahlen weiter oben stehen, weiss es aber nicht)
Was muss ich am Makro verändern, dass es mir in BG27 die Personalkosten einspielt und nicht die Personalanzahl?
Vielen Dank für Euere Hilfe im Voraus. Hab schon alles probiert, aber leider kenne ich mich mit VBA nicht aus :-(
Viele Grüße
tobi