HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
SVERWEIS mittel Makro
Ludicla

Hallo Profis,
ich mit dem Recorder folgendes aufgezeichnet:
Private Sub CheckBox2_Click()
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],'[Bad 2010 sieht gut aus.xls]Hallenbad SW'!R70C1:R90C46,46,FALSE)"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C23"), Type:=xlFillDefault
Range("C3:C23").Select
Range("O1").Select
End Sub
Es wird dabei ein SVERWEIS in der Spalte C erzeugt den ich mit den gleichen Verweiskriterien
auch in der Spalte D und weiter Spalten generieren lassen will.
Wie müßte ich den Code modifizieren, also Range C3 usw variabel gestalten das C3 über die
aktive Zelle gesteuert und der Kopierbereich angepasst wird?
Ich hoffe auf eure Hilfe - Danke.
Gruss Ludicla.

AW: SVERWEIS mittel Makro
Oberschlumpf

Hi
Und wie is mit ner Antwort in diesem Thread?
https://www.herber.de/forum/messages/1118053.html
Ciao
Thorsten
AW: SVERWEIS mittel Makro
Ludicla

Hallo Profis,
sollte ich in den letzten Tagen - Anrede oder Gruss vergessen
haben bitte ich tausendmal um Entschuldigung.
Könntet ihr mir helfen.
Gruss Ludicla.
ich weiß leider nix, deswegen weiter offen..owT
Oberschlumpf

AW: ich weiß leider nix, deswegen weiter offen..owT
Ludicla

Hallo Profis
ok - tut mir leid.
Gruss Ludicla.
Hey!! :-)
Oberschlumpf

Hi Ludi...
Nur, weil ich nix weiß (das kommt oft vor ;-) ), musste nich gleich die Flinte ins Korn werfen. :-)
Hab n bisschen Geduld. Die "Wissenden" müssen ja erst mal testen, ausprobieren, ob sie wirklich etwas wissen ;-)
Ciao
Thorsten
p.s...heisst du wirklich Ludicla?
AW: Hey!! :-)
Ludicla

Hallo Thorsten,
danke für Deine Aufmunterung.
Servus aus Bayern - Ludcila.
p.s. ich heisse nicht ganz so nur zum Teil, aber Du nennst Dich
ja auch Oberschlumpf ?
AW: Hey!! :-)
Oberschlumpf

Hi
Im Nick nenn ich mich Oberschlumpf.
Aber spätestens nach Ende meiner Frage/Antwort heiße ich...du weißt es ja schon...Thorsten.
Ciao
Thorsten
...n kleiner Tipp:
Wenn ein Problem noch nicht gelöst ist (und das ist ja hier der Fall), dann solltest du immer den Haken setzen für "Frage noch offen".
So haben dann alle ein paar Tage mehr Zeit, vielleicht eine Lösung zu finden.
AW: Hey!! :-)
Ludicla

Hi
ok Thorsten im Nick bin ich "Ludicla"
ansonsten Ludwig und in Bayern Lugge.
Servus
Lugge
AW: Hey!! :-)
Ludicla

Hallo Helfer,
ich bin erst morgen wieder da.
Gruss Ludicla.
AW: Hey!! :-)
IngGi

Hallo Ludicla,
nachfolgender Code orientiert sich an der aktiven Zelle:
Private Sub CheckBox2_Click()
ActiveCell.FormulaR1C1 = _
  "=VLOOKUP(RC[" & 1 - ActiveCell.Column & "],'[Bad 2010 sieht gut aus.xls]" & _
  "Hallenbad SW'!R70C1:R90C46,46,FALSE)"
ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(20, 0)), _
  Type:=xlFillDefault
End Sub
Code eingefügt mit VBA in HTML 2.0.0.3
Gruß Ingolf