Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:00:48
Datum als Datum sehen
18.04.2024 14:36:42
Texte Zählen bzw. Anzahl zusammenzählen
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

shape verschieben und an Zellen ausrichten

shape verschieben und an Zellen ausrichten
17.06.2006 07:57:36
Emil
Hallo,
ich habe per Hand ein shape (eine vertikale Linie) erzeugt und dabei durch Drücken der alt-Taste an den Zellecken ausgerichtet.
Wie kann ich diese Linie per vba um genau zwei Zellen nach links verschieben und dabei wieder genau an den Zellecken ausrichten.
Gruß Emil

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: shape verschieben und an Zellen ausrichten
17.06.2006 10:28:26
Daniel
Hallo
Linke obere Ecke ausrichten
ActiveSheet.Shapes("ShapeName").Top = Range("gewünschte Zelle).top
ActiveSheet.Shapes("ShapeName").Left = Range("gewünschte Zelle).left
Länge Ausrichten:
ActiveSheet.Shapes("ShapeName").width = Range("gewünschte Zelle).width
Alternativ, wenn du nicht genau weißt, welche zu welcher Zelle die Linie verschoben werden soll, dann so
ActiveSheet.Shapes("ShapeName").IncrementTop -2*("gewünschte Zelle).heigth
Gruß, Daniel Eisert
AW: shape verschieben und an Zellen ausrichten
17.06.2006 10:28:39
Josef
Hallo Emil!
Vom Prinzip her, geht das so.
Sub verschiebeLinie()
Dim objLine As Shape
Dim rng As Range

Set objLine = ActiveSheet.Shapes("Linie 1") 'Name der Linie! - anpassen!
Set rng = objLine.TopLeftCell

If rng.Column >= 2 Then
  With objLine
    .Left = rng.Offset(0, -2).Left
    .Top = rng.Offset(0, -2).Top
    .Height = rng.Offset(0, -2).Height
  End With
End If

Set objLine = Nothing
Set rng = Nothing

End Sub


Gruß Sepp

Anzeige
AW: shape verschieben und an Zellen ausrichten
17.06.2006 19:53:53
Emil
Hallo Daniel und Sepp,
vielen Dank für eure Antworten. Gibt es auch eine Lösung, wenn ich den Namen der Linie nicht kenne, sondern nur weiß wo genau sie sich auf dem Arbeitsblatt befindet? Ich hatte es bisher so versucht, dass ich den umgebenden Bereich (und damit auch die Linie) ausgeschnitten und woanders hin kopiert habe, das macht aber Problem mit der Formatierung.
Gruß Emil
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:09:31
Josef
Hallo Emil!
Wozu soll den das ganze gut sein?
Das hat imho nichts mehr mit Tabellenkalkulation zu tun.
Ist nur eine Linie auf dem Blatt oder mehrere?
Gruß Sepp

Anzeige
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:20:28
Emil
Hallo Sepp,
Hintergrund ist folgender: Ich mache ein Makro für einen häufig benötigten Nachweis bei einer technischen Berechnung. Zu diesem Nachweis gehört auch eine Skizze. Die Skizze will ich in Abhängigkeit von bestimmten Eingabe anpassen. Dazu muss ich eine Linie in der Skizze verschieben.
Der ganze Nachweis liegt als Vorlage auf einem seperaten Blatt und wird bei Bedarf per vba in das aktuelle Tabellenblatt hineinkopiert, eventuell auch mehrmals hintereinander. Daher kenne ich dann auch nicht den Namen der Linie.
Gruß Emil
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:27:35
Josef
Hallo Emil!
Und wie kann man ermitteln welche Linie verschoben werden soll?
Gruß Sepp

Anzeige
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:38:15
Emil
Hallo Sepp,
es handelt sich immer um eine bestimmte Linie in der Skizze. Diese Linie befindet sich immer auf dem senkrechten Rand einer Zelle. Die Position dieser Zelle kann ich anhand einer Beschriftung der Skizze ermitteln. Wenn ich diese Beschriftung in der Skizze ändere soll auch die Linie entsprechend verschoben werden. Es gibt also immer einen Zusammenhang zwischen Beschriftung und Lage der Linie.
Gruß Emil
AW: shape verschieben und an Zellen ausrichten
17.06.2006 21:05:26
Josef
Hallo Emil!
Wie es vom Prinzip her funktioniert, hat Daniel schon beschrieben.
Wenn du damit nicht klar kommst, dann lade am besten ein Beispiel mit der Skizze hoch(mit Beschreibung).
Gruß Sepp

Anzeige
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:48:07
Daniel
Hallo
wenn er ,wie er schreibt, genau weiss, wo die Linie ist (also die Zelle kennt, in der sie sich befindet), dann könnte man mit
For Each shapeVariable in Sheet(xx).shapes
if shapeVariable.TopLeftCell.Address = Range(...).address then
....
end if
Next
die entsprechende Linie schon herausfinden und verschieben.
Es werden halt alle Grafik-Objekte verschoben, die ihre linke obere Ecke in der benannten Zelle haben.
gruß, Daniel
AW: shape verschieben und an Zellen ausrichten
17.06.2006 20:48:08
Daniel
Hallo
wenn er ,wie er schreibt, genau weiss, wo die Linie ist (also die Zelle kennt, in der sie sich befindet), dann könnte man mit
For Each shapeVariable in Sheet(xx).shapes
if shapeVariable.TopLeftCell.Address = Range(...).address then
....
end if
Next
die entsprechende Linie schon herausfinden und verschieben.
Es werden halt alle Grafik-Objekte verschoben, die ihre linke obere Ecke in der benannten Zelle haben.
gruß, Daniel
Anzeige
AW: shape verschieben und an Zellen ausrichten
18.06.2006 10:07:29
Emil
Hallo Daniel und Sepp,
nochmals vielen Dank für eure Hilfe. Allein hätte ich das nicht geschafft. Ich mache es im Prinzip jetzt so wie Daniel vorgeschlagen hat, indem ich die Eigenschaften top und left aller Linien mit der mir bekannten Zelle vergleiche und dann die richtige Linie entsprechend verschiebe.
Einen schönen Sonntag noch!
Gruß Emil

157 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Wert einer Zelle->Spaltenangabe in einer Formel
Jens

Hallo liebe Mädels und Jungs,
ich möchte gerne eine Zelle von einer anderen abziehen, wobei sich die 2. Zelle um soviel Positionen vor der 1. Zelle befindet, wie eine Variable angibt.
Sicherlich kann man da recht schnell ein Makro schreiben, aber ich möchte gerne ohne Makro das ganze lö...
19.11.2009 14:54:13
Thread-ID: 1118636
11 Beiträge
Anzeige
Formatierung anderer Zelle mittels Formel kopieren
sunny8_de

Hallo.Ich weis absolut nicht, wie ich mittels einer Formel die bereits bestehende Hintergrundfarbe einer Zelle in eine andere kopieren/übernehmen kann.Wer kann mir hierbei behilflich sein.Wünschenswert wäre eine Realierung per Formel (ansonsten halt per Makro).Vielen Dank!!!
11.04.2002 10:41:26
Thread-ID: 112359
4 Beiträge
Bed. Formatierung in Abhängigkeit mehrerer Zellen
Stefan

Hallo zusammen
Ich stehe wieder einmal vor einem Problem, bei welchem ich auf eure Unterstützung angewiesen bin:
Ich bearbeite eine Geschäfts-Pendenzenliste, welche mehr als 3 dedingte Formatierungen beinhaltet. Die Bedingungen sind vom Inhalt mehreren Zellen abhängig. Nun zu meinem Bei...
21.07.2010 19:18:54
Thread-ID: 1168128
3 Beiträge
Formatierung anderer Zelle
ami

Hallo
ich habe Excel 2007 und möchte die Zelle A1 mit einer Farbe füllen, wenn in Zelle B1 "text" steht.
Wenn möglich, soll das über die ganze Spalte möglich sein.
Ich möchte das über die bedingte Formatierung lösen, aber irgendwie gelingt mir das nicht.
in der Formatierung nac...
16.09.2010 16:48:23
Thread-ID: 1178154
3 Beiträge
Zelle durch Anklicken im USerform definieren
Urmila

Hallo zusammen,
ich hoffe ihr könnt mir helfen. Ich bin auf der Suche für folgendes:
Im Excel an sich gibt es ja die Möglichkeit mit dem Assistent Formel zu erstellen. In diesem besteht ja die Möglichkeit einen Bereich aus zuwählen auch obwohl der Assistent zu sehen ist. Markiere ich z....
03.10.2010 16:07:08
Thread-ID: 1180465
9 Beiträge
Formel anhand von Regeln aus fremder Zelle
Regeln

Hallo,
ich muss eine Mappe erstellen, in welcher abhängig von Regeln unterschiedliche Berechnungen getätigt werden. Die Regeln sind so komplex und unterschiedlich, so dass ich sie nicht über einfache Verschachtelungen in der Zellformel definieren kann.
VBA würde relativ einfach gehen, i...
05.11.2010 13:15:29
Thread-ID: 1185361
5 Beiträge

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