Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld in sheet positionieren

Textfeld in sheet positionieren
01.11.2005 14:22:04
mar.s
Hallo,
ich will ein Textfeld in einem Arbeitsblatt so positionieren, dass die linke obere Ecke des Textfeldes genau mit der linken oberen Ecke der Zelle C6 übereinstimmt. Die Höhe des Textfeldes soll der der Zelle entsprechen.
Bitte um Hilfe , Wie lautet die Syntax ?
Gruss mar.s

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

Betreff
Datum
Anwender
Anzeige
AW: Textfeld in sheet positionieren
01.11.2005 14:29:01
Ramses
Hallo
Hier ein Beispiel für Checkboxes.
'Start Code Sequenze
Sub Add_Amount_Of_Checkboxes()
    Dim i As Integer, chkC As Integer
    Dim tarC As Range, myChk As OLEObject
    On Error Resume Next
    chkC = Cint(InputBox("Wieviele Checkboxen werden benötigt?", "Checkboxen einfügen", 25))
    If Not IsNumeric(chkC) Or chkC = 0 Or IsEmpty(chkC) Then Exit Sub
    Set tarC = Application.InputBox("Markieren Sie die Zelle, ab der die Checkboxen eingefügt werden soll", "Zielbereich", "B:B", Type:=8)
    If tarC Is Nothing Or tarC.Cells.count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    For i = tarC.Row To chkC
        Set myChk = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1")
        With myChk
            .Height = Cells(i, tarC.Column).Height
            .Width = Cells(i, tarC.Column).Width - 0.5
            .Top = Cells(i, tarC.Column).Top + 0.5
            .Left = Cells(i, tarC.Column).Left + 0.5
            'Linked Cell ist die unter der Checkbox liegende Zelle
            .LinkedCell = .TopLeftCell.Offset(0, 0).Address
            .Object.Value = False
            .Object.FontSize = 8
        End With
    Next i
    Application.ScreenUpdating = True
End Sub
Das kannst du sicher anpassen.
Gruss Rainer
Anzeige
AW: Textfeld in sheet positionieren
01.11.2005 14:35:05
mar.s
Hallo Ramses,
Danke für deine schnelle Antwort,
es funkt.
mar.s

Links zu Excel-Dialogen

CheckBox InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige