Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range auf Basis eine Zelle kopieren

Range auf Basis eine Zelle kopieren
22.07.2014 19:22:45
Sendor
Hallo Forum-Anwender,
über
CopyandPastetoPPT "Report001", Range("Vorgabe").Offset(1, 0).Value, ScaleFactor, ScaleFactor
kopiere ich den Bereich "Report001" aus meiner Excel "Vorgabe" via VBA nach PowerPoint.
Das funktioniert auch super!
Nun möchte ich aber, dass der Bereich welcher nach PowerPoint kopiert werden soll "dynamisch" (exakt Zellbezogen) angegeben werden kann.
Dazu habe ich in dem Excel-Worksheet "Vorgabe" in Zelle "C1" einen Wert. In Zelle "B1" habe ich mir eine Art Checkbox gebastelt. Wird nun diese Checkbox geklickt, wandert der Wert aus "C1" in die Zelle "A1".
Nun soll der VBA-Code immer nur dann die Excel Rage kopieren, wenn die Zelle "A1" über die Checkbox gefüllt wurde - also selbiges wie in "C1" in "A1" enthalten ist.
Ist in "A1" kein Wert, dann soll eben genau diese Rage nicht kopiert werden.
Ich habe 

CopyandPastetoPPT "Report001", Range("Vorgabe:A6").Offset(1, 0).Value, ScaleFactor, ScaleFactor

probiert.
Leider ohne den gewünschten Erfolgt.
Auch 

CopyandPastetoPPT "A6", Range("Vorgabe").Offset(1, 0).Value, ScaleFactor, ScaleFactor

bringt nicht den gewünschten Effekt.
Könnt Ihr mir dies bitte "Beibiegen"?
Vielen lieben Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range auf Basis eine Zelle kopieren
23.07.2014 11:07:19
fcs
Hallo Sendor,
damit kopiert wird oder nicht musst du die Anweisung in eine If-Prüfung einbauen.
Aus deinen Versuchen zu Anpassung der Code-Zeile kann ich dir aber keinen korrekten Vorschlag machen.
Was ist "Vorgabe" ? Variable mit einer Zelladresse, Name eines Zellbereichs? Was steht in Vorgabe? 
If Range("A1") = Rang("C1") Then ' oder evtl. If Range("A1") "" Then
CopyandPastetoPPT "Report001", Range(Vorgabe & ":A6").Offset(1, 0).Value, _
ScaleFactor, ScaleFactor  'Vorgabe ist eine Variable
'oder evtl. auch
CopyandPastetoPPT "Report001", Range(Range("Vorgabe") & ":A6").Offset(1, 0).Value, _
ScaleFactor, ScaleFactor 'Vorgabe ist der Name einer Zelle mit einer Zelladresse.
end if

Gruß
Franz

Anzeige
AW: Range auf Basis eine Zelle kopieren
23.07.2014 12:38:06
Sendor
Hallo Franz,
vielen lieben Dank!
Ich habe es leider nicht geschafft mit deinen Codefragmenten zum Ziel zu kommen :-(
"Vorgabe" ist ein Excel-Sheet wo in Zelle A6 ein Wert (der Name eines anderen Sheets) hinterlegt ist.
Auf dem Excel-Sheet "Report001" gibt es eine Range mit eben jenem Namen der in Zelle A6 des Sheets "Vorlage" steht. Sofern nun Zelle A6 gefüllt ist, soll die definierte Range ("Report001") nach PowerPoint kopiert werden. Wenn Zelle A6 nicht gefüllt ist, dann weiter bis zum nächsten Eintrag der den Kopiervorgang für eine andere Range aufruft.
Ich hoffe ich habe es nun so beschrieben, dass es verständlich ist...

Anzeige
AW: Range auf Basis eine Zelle kopieren
23.07.2014 13:23:19
fcs
Hallo Sendor,
verständlich klingt anders.
Entscheident ist: Welche Parameter verlangt das Makro "CopyandPastetoPPT"?
Da du die Parameter-Variablen nicht mit angibst musst du auch die Reihenfolge der Parameter beachten.
Nachfolgend ein Versuch deine Beschreibung umzusetzen.
Gruß
Franz 
With Worksheets("Vorlage")
If .Range("A6")  "" Then
CopyandPastetoPPT "Report001", .Range("A6").Value, _
ScaleFactor, ScaleFactor
End If
End With

301 Forumthreads zu ähnlichen Themen

kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
1
2
2
3
6
3
8
1
3
3
2
4
2
3
8
2
9
3
1
2
1
20
8