Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1008to1012
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
Inhaltsverzeichnis

Zelle per VBA auswählen

Zelle per VBA auswählen
19.09.2008 14:03:40
Peter
Hallo zusammen,
ich habe folgende Problem:
ich möchte per Makro eine Route kopieren. Das klappt auch soweit schon. Nun geht es um die Stelle, an der die Kopie eingefügt wird. Ich möchte, dass wenn in einem bestimmten Bereich meines Arbeitsblattes, nennen wir ihn B6:D8 eine Zelle markiert ist, die Raute dorthin kopiert wird. Wenn eine Zelle außerhalb des Bereiches markiert ist, soll die Raute an eine bestimmte Stelle kopiert werden, sagen wir E10.
Ich brauche also VBA-Code, der in etwa folgendes aussagt:
Wenn im Bereich(B6:D8) eine Zelle markiert ist, kopiere die Raute an diese Stelle, sonst kopiere sie an E10.
Noch ein Zusatz: momentan gebe ich eine Zelle vor. Die Raute erscheint allerdings leicht versetzt. Hat vermutlich was damit zu tun, welche Stelle der Raute auf die Zelle gesetzt wird. Kann ich vorgeben, dass die Mitte der Raute auf die Mitte der Zelle gesetzt wird?
Freu mich auf Eure Lüsungsvorschläge!
Schöne Grüße und besten Dank im Voraus!
Peter
.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle per VBA auswählen
19.09.2008 16:13:19
fcs
Hallo Peter,
hier mein Vorschlag zum Zentrieren der Raute in der Zielzelle.
Gruß
Franz

Sub RauteKopieren()
Dim objShape As Shape, Zelle As Range
Dim ZelleZiel As Range
Set Zelle = ActiveCell
Set objShape = ActiveSheet.Shapes("Raute01") 'zu kopierendes Objekt(Shape)
If Intersect(Zelle, Range("B6:D8")) Is Nothing Then
'aktive Zelle ist nicht im Auswahlbereich
Set ZelleZiel = Range("E10")
Else
Set ZelleZiel = Zelle
End If
objShape.Copy
ActiveSheet.Paste
'Zuletzt eingefügte Raute als Objekt zuordnen
Set objShape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
'Shape in Zielzelle zentrieren
With objShape
.Left = ZelleZiel.Left + ZelleZiel.Width * 0.5 - .Width * 0.5
.Top = ZelleZiel.Top + ZelleZiel.Height * 0.5 - .Height * 0.5
End With
ZelleZiel.Select
End Sub


Anzeige
AW: Zelle per VBA auswählen
22.09.2008 10:49:29
Peter
Hallo fcs,
klappt wunderbar und genauso wie gewünscht! Danke für Deine Hilfe!
Schöne Grüße
Peter

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige