Thema Datum  Von Nutzer Rating
Antwort
Rot Pfeilerstellung
09.10.2020 01:25:38 Alyssa
NotSolved
09.10.2020 14:07:46 Gast76169
NotSolved
10.10.2020 10:25:20 Gast38569
NotSolved
10.10.2020 12:31:52 Gast14954
NotSolved
10.10.2020 10:20:49 Gast55863
NotSolved
12.10.2020 10:26:24 Gast89237
NotSolved

Ansicht des Beitrags:
Von:
Alyssa
Datum:
09.10.2020 01:25:38
Views:
93
Rating: Antwort:
  Ja
Thema:
Pfeilerstellung

Hallo zusammen,

ich habe mit VBA ein Code erstellt, mit dem sich Pfeile erstellen lassen. 

Dieser sieht verkürzt, für zwei Koordinaten so aus:

ZA = InputBox("Eingabe1")

ZB = InputBox("Eingabe2")

Ax = Range(ZA).Left + Range(ZA).Width / 2

    Ay = Range(ZA).Top + Range(ZA).Height / 2
 
Bx = Range(ZB).Left + Range(ZB).Width / 2
    By = Range(ZB).Top + Range(ZB).Height / 2
 
 ActiveSheet.Shapes.AddLine(Ax, Ay, Bx, By).Select
 
    End With
 
 
 
In die InputBox gibt man jeweils die entsprechende Zelle an, bspw. G13 und G15, so ensteht dann da ein Pfeil.
 
Mein Problem ist, dass sich immer nur jeweils ein Pfeil in der Mitte der Zelle bilden lässt(aufgrund des codes natürlich), wenn ich mehrere in der gleichen Zelle einfüge (wenn ich zmb G13 und G15 ein Pfeil in grün erstelle und einen in blau), wird der vorherige Pfeil überdeckt. Ich bräuchte einen Code mit dem man, bspw. in zwei Farben zwei Pfeile erstellt die von G13 bis G15 gehen, aber nebeneinander sich bilden lassen und keines überdeckt wird. 
 
Habt Ihr da Ideen?
Danke im Voraus für die Hilfe :-)
 
LG Alyssa

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Pfeilerstellung
09.10.2020 01:25:38 Alyssa
NotSolved
09.10.2020 14:07:46 Gast76169
NotSolved
10.10.2020 10:25:20 Gast38569
NotSolved
10.10.2020 12:31:52 Gast14954
NotSolved
10.10.2020 10:20:49 Gast55863
NotSolved
12.10.2020 10:26:24 Gast89237
NotSolved