Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Copy/Paste/Delete Shapes

VBA Copy/Paste/Delete Shapes
02.03.2021 15:40:40
Dome
Hi,
Siehe Beispieldatei: (Spielkarten, welche auf dem Spieltisch platziert werden sollen)
Wie kann man mit Klick auf ein Shape eine Kopie davon an einem anderen Ort platzieren (und wieder entfernen)?
Herzlichen Dank für Eure Ideen.
https://www.herber.de/bbs/user/144382.xlsx
Beste Grüsse
Dome

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Copy/Paste/Delete Shapes
02.03.2021 15:58:36
Daniel
Hi
wann soll den eine Karte vom Spieltisch entfernt werden?
wenn du auf die Karte auf dem Spieltisch klickst oder wenn du auf die gleiche Karte im Stock klickst?
Gruß Daniel

AW: VBA Copy/Paste/Delete Shapes
02.03.2021 16:02:38
Dome
Hi Daniel,
Das spielt eigentlich keine Rolle.
Vermutlich ist es Code-technisch allerdings einfacher wenn der Click_Event auf der Stock-Karte wieder rückgängig gemacht wird.
Damit man die Karte nicht im Stock suchen muss, wäre aber ein Klick auf die Tisch-Karte sexier.
Beste Grüsse
Dome

AW: VBA Copy/Paste/Delete Shapes
02.03.2021 16:42:07
Daniel
nö, ist anders rum.
angeklickte Karte löschen ist einfacher.
ich brauche ja nur prüfen, ob sich die angelickte Karte links oder rechts der Spalte L befindet.
ist sie links davon, kopiere ich sie auf den Tisch, ist sie rechts davon, wird sie gelöscht.
im Prinzip reicht dieses Makro, dass du allen karten auf dem Stock über das Kontextmenü zuweist:
Public Zähler As Long
Sub Klicken()
Dim K As Shape
Set K = ActiveSheet.Shapes(Application.Caller)
Debug.Print K.Name
If K.TopLeftCell.Column > 13 Then
K.Delete
Else
K.Copy
ActiveSheet.Paste
With Selection
.Top = 190
.Left = 1059 + Zähler * 60
Zähler = Zähler + 1
End With
End If
End Sub
das funktioniert hervorragend bei EinzelShapes (also wenn du als Karten eine einfaches Textfeld mit Symbol und Wert als Zeichen des gleichen Textes verwendest) bei deinen aus mehren Shapes zusammengesetzten Karten wird bei Klick nur das einzelne Shape angezogen und nicht die ganze Gruppe.
Wie man jetzt vom Einzelshape auf die gesamte Gruppe schließt, weiß ich grad nicht.
Gruß Daniel

Anzeige
AW: VBA Copy/Paste/Delete Shapes
02.03.2021 17:00:59
Dome
Hi Daniel,
Das sieht ja schon mal nicht schlecht aus. Coole Sache!
Lassen wir das Thema gruppierte Shapes mal beiseite..
Jetzt wäre es natürlich toll wenn die Karten bei der korrekten Position eingefügt würden. Ist es nicht möglich, dass man die kopierten Stock-Karten auf die Tisch-Shapes "drüberkopiert"? (in der Art copy/select/paste)
LG
Dome

AW: VBA Copy/Paste/Delete Shapes
02.03.2021 17:05:26
Daniel
du kannst statt der fixen Positionen auch die Positionen von bekannten Shapes auslesen, z.B. von deinen Stock-Rahmen:
Selection.Top = activeSheet.Shapes("wie immer das Shape heißt").Top
Selection.Left = activeSheet.Shapes("wie immer das Shape heißt").left
Gruß Daniel

Anzeige
AW: VBA Copy/Paste/Delete Shapes
02.03.2021 17:32:06
Dome
Hi,
Preisfrage: Sagen wir alle Positionen auf dem Tisch sind durch Karten besetzt, sowohl die Hand-, als auch die Boardkarten. Wenn ich nun die Hand-Karten anpassen möchte und z.B. die zweite Karte durch eine andere ersetzen möchte entsteht eine Lücke auf dem Tisch. Wie kann man nun immer die "erste freie Position" mit einer neuen Karte belegen?
Anders formuliert: Die Positionen sind durchnummeriert von 1-7 und ich möchte Position 2 ändern.
LG
Dome

AW: VBA Copy/Paste/Delete Shapes
02.03.2021 17:41:06
Daniel
wird mit Shapes schwierig.
da müsstest du dir in Variablen oder einem Array merken, welche AblageFelder frei sind und welche belegt sind.
also ziemlich aufwendig zu programmieren.
ich glaube, dass das mit Text in Zellen einfacher zu realisiern ist als mit Shapes.
wie man die Karten als Text darstellen kann, habe ich dir gezeigt.
Gruß Daniel

Anzeige
AW: VBA Copy/Paste/Delete Shapes
02.03.2021 16:58:02
Daniel
du kannst dir auch die Karten in einer Zelle oder Textfeld als normalen Text anzeigen lassen.
das geht über den entsprechenden unicode-Zeichensatz.
https://de.wikipedia.org/wiki/Unicodeblock_Spielkarten
in Excel über die Funktion: 
=UNIZEICHEN(127136)

damit könntest du die Spielkarten als One-Piece-Shape erstellen, was das kopieren und einfügen leichter macht weil du keine Gruppen brauchst.
oder du könntest komplett auf Grafik verzichten und das ganze über Text in Zellen abbilden, was das ganze noch einfacher macht.
gruß Daniel

Anzeige
AW: VBA Copy/Paste/Delete Shapes
02.03.2021 17:02:04
Dome
Hi,
Das schaue ich mir heute Abend mal an, vielen Dank für die Tipps!
LG
Dome

AW: VBA Copy/Paste/Delete Shapes
02.03.2021 19:36:24
Daniel
Kleines Beispiel auf die Schnelle erstellt.
Doppelklick auf die Karten verschiebt diese aufs Spieldeck.
nochmaliger Doppelklick löscht die die Karte im Spieldeck, dabei kann man die Karte im Spieldeck oder im Stock anklicken.
um die Karten im Spiel anders anzuordnen, kann man mit gedrückter STRG-Taste 2 Karten anklicken, dann werden sie getauscht.
https://www.herber.de/bbs/user/144391.xlsm
Gruß Daniel

305 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
SaveCopyAs zerstört Formular?
Olaf Eichstaedt
Ich habe das Gleich gerade unter Windows 95 und mit meinem Excel 97SR2 probiert. Muss ich Euch verraten, dass es dort funktioniert, sprich keine misteriösen Fehlermeldungen produziert werden?
16.04.2002 22:06:23
Thread-ID: 113902
2 Beiträge
Hiiilfeeeee!!! SaveCopyAs - Fehler
Tobias

Hallöchen,
ich habe zwei echt nervende Fehler in meinem Code. habe ein relativ aufwendigen VBA - Code, deswegen kann ich den hier nicht komplett rein stellen. aber zu mindest bis zum ersten Problem kann ich ihn gern posten.
Also das Problem ist folgendes, ich habe eine Arbeitsmappe mit...
17.02.2010 16:24:54
Thread-ID: 1139210
2 Beiträge
Anzeige
SaveAs über VBA macht bei BeforeSave Probleme
norman

Hallo alle,
ich habe ein wirklich kniffeliges Problem, das bereits hier mal angegangen wurde (https://www.herber.de/forum/archiv/1144to1148/t1147360.htm und https://www.herber.de/forum/archiv/1144to1148/t1145651.htm, vielen Dank an dieser Stelle an Tino, entschuldige bitte, dass ich damals...
23.07.2010 17:21:36
Thread-ID: 1168218
11 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
SaveCopyAs-Methode
Iris

Hallo,
ich bräuchte dringend einen Rat. Ich möchte mithilfe eines Makros eine Kopie der aktuellen Datei erstellen. Das tut er auch. Leider funktionieren die Makros in der neu erstellten Datei nicht und die Symbolleiste, die sich sonst immer automatisch mit dem Programm öffnet, wird nicht ang...
12.05.2002 06:58:54
Thread-ID: 120235
2 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
Anzeige

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
10
3
1
1
3
10
6
1
3
4
1
6
3
1
3
5
1
3
4
4
2
2
2
2
6