Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
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
Schaltfläche Positionieren
29.09.2008 20:12:00
Werner
Hallo,
das Nachstehende Makro ist eine möglichkeit eine Schaltfläche zu Positionieren (ausschnitt aus einen längeren Makro) das so gut funktioniert. Meine Frage ist : kann ich die Schaltfläche auch genau Positionieren z.B Positionieren auf Zelle C5. Wie müßte ein Makro aussehen?
ActiveSheet.Shapes("CommandButton3").Select ' Schaltfläche Positionieren
Selection.ShapeRange.IncrementLeft -668.25
Das gesamte Makoro:

Private Sub CommandButton2_Click()
Dim vLinks, ii As Integer, strB As String
ChDir _
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008\Mitarbeiterablage.xls"
Windows("Kalkulation-Kostenrechnung Römerbad 25.08.2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
strB = ActiveSheet.Cells(2, 2)                ' Blatt umbenennen
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
"' war bereits vorhanden.", vbExclamation, "weise hin..."
ActiveSheet.Shapes("CommandButton3").Select   ' Schaltfläche Positionieren
Selection.ShapeRange.IncrementLeft -668.25
ActiveWorkbook.Save                           ' Mitarbeiterablage speichern + schließen
ActiveWindow.Close
Else
ActiveSheet.Name = strB
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub


Gruß Werner

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

Betreff
Datum
Anwender
Anzeige
Schaltfläche Positionieren auf C5
29.09.2008 20:33:00
Matthias
Hallo
evtl. so:

Sub TopLeft()
ActiveSheet.Shapes("CommandButton1").Left = Range("C5").Left
ActiveSheet.Shapes("CommandButton1").Top = Range("C5").Top
End Sub


Gruß Matthias

AW: Schaltfläche Positionieren auf C5
29.09.2008 22:05:00
Werner
Hallo Matthias,
das klappt :-)
Danke :-)
Gruß Werner
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige