Office: Zellen/Formeln kopieren bei variabler Sheetauswahl über Combobox

Hallo,
ich benötige mal wieder Hilfe und hoffe das ihr so geduldigt seid und mir nocheinmal auf die Sprünge helft...

Folgendes:
Ich habe eine Excel-Datei mit einer Eingabe-Seite und diversen Tabellen.
Die Eingabe trägt verschiedene Daten in entsprechende Sheets ein, welche über eine Combobox ausgewählt werden...

MIt eurer Hilfe und ein wenig "rumgebastel" läuft das auch gut.

Nun hab ich allerdings das Problem das ich gerne zusätzlich Formeln kopieren möchte...

In Basic sieht das so aus:

MIt dem Teil "Formel nachtragen" hab ich das Problem...
Excel/Basic möchte das nicht in der Ausgewählten Sheet machen....
Das was ich hinbekomme ist das nachtragen im "Eingabe-Sheet" (wenn ich den Punkt wechlasse), aber das erfüllt nunmal nicht den Sinn :p...
Auch habe ich es über verschiedene Varianten versucht... (Formel eintragen, ganze Zeile verschieben...), stoße aber immer wieder auf das Problem mit dem "Punkt" ...

Verständlich? Ich hoffe schon, hänge aber auch nochmal meine Datei an...

Zur Datei (noch leicht unübersichtlich und erst halbfertig):
Unter Eingabe auf "Werte eintragen" klicken (Werte und Auswahl etc stehn schon drin bzw ist getroffen)...
Nun soll, unter Berücksichtigung der Comboboxauswahl (hier Beienrode), die Formel von X12 in X11 kopiert werden (also hier dann auch in Sheet Beienrode) - aber will nicht....

Wer kann mir erklären warum dies so ist und eine Hilfe anbieten?

 

Hab mein Problem inzwischen anders gelöst - indem ich ne Zusätzliche Zelle in der Eingabe eingefügt habe und diese mit in den Passeneden Sheet kopiere... In dem Basiccode ist das Formelkopieren dadurch überflüssig geworden.
Wen es interessiert - Bsp. liegt im Anhang.

Dennoch bin ich weiterhin wissbegierig und hoffe auf ne Eingebung (evt. von euch ) zu dem "Variablen-Sheet-Formel-Kopier-Problem", einfach damit ich für die Zukunft gewappnet bin bzw. nur halb so dumm sterbe wie ich es jetzt noch bin...

Nun wünsch ich euch das was ihr euch auch wünscht plus 50 Euronen extra die Woche.
N8 erstma.

 

Hallo,

wenn Du statt der folgenden Code-Passage

Code:

'Formel nachtragen (I)
 .Range("I12").Select
 Selection.Copy
 .Range("I11").Select
 ActiveSheet.Paste

folgenden VBA-Code verwendest:

Code:

'Formel nachtragen (I)
.Range("I12").Copy Destination:=.Range("I11")

müsste es klappen.

Anmerkung: Das Problem bei Deinem Code besteht darin, dass Du die Paste-Methode auf das ActiveSheet-Objekt anwenden wolltest. Der Zellbereich, der mittels Selection.Copy in die Zwischenablage kopiert wurde, gehört jedoch zum Arbeitsblatt wksTab und nicht zu ActiveSheet. Ebenso gehört die Kopierzielangabe .Range("I11").Select zum Arbeitsblatt wksTab und nicht zu ActiveSheet. Und somit kennt ActiveSheet keinen Zielbereich, in den seine Methode Paste die Daten der Zwischenablage einfügen könnte. Statt ActiveSheet.Paste wäre somit Selection.Paste besser gewesen - aber man sollte, wo es nur geht, die Abfolge ...Select/Selection... vermeiden, da sie langsam ist und außerdem ein Flackern des Bildschirms (wegen des auftretenden Refreshings) verursacht.

 

Danke für die Antwort.
Wieder was gelernt...
Werd ich doch gleich mal ausprobieren...
MfG,
Lars