Schaltfläche Positionieren
29.09.2008 20:12:00
Werner
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
Anzeige