Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld in sheet positionieren

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Set Focus auf msoControlEdit?Position in SubMenü?
Andreas

Hallo Herber Fans,
ich habe ein Problem mit einer msoControlEdit (Textfeld). Ich habe mir in einen Commandbar ein Textfeld eingesetzt, aus dem ich auch den Wert auslesen kann. Wenn dieser Wert eine Zahl ist, ist alles in Ordnung. Aber ich möchte den Wert aus der Textbox auch über IF is num...
18.08.2008 15:46:00
Thread-ID: 1002640
9 Beiträge
Variable Zellposition ausfindig machen
Anett

Hallo zusammen,
ich habe Probleme bei der Generierung des VBA Codes für folgende Situation:
Ich habe eine Tabellenspalte mit 19 Zeilen (Bereich D8:D26). In eine dieser Zeilen der Tabellenspalte wird nur ein Wert eingetragen, jedoch nicht immer in der gleichen Zeile (dass heißt das eine...
18.08.2008 18:53:16
Thread-ID: 1002723
7 Beiträge
Bestimmen von Zellpositionen und -inhalten
Zellpositionen

Guten Abend
Ich habe ein paar Fragen im Zusammenhang mit der Bestimmung des ersten Eintrages in einer Spalte resp. Zelle.
Wenn in Spalte A in Zeile 20 der erste Texteintrag enhalten ist, kann ich die Position wie folgt bestimmen:
=VERGLEICH("*";A:A;0)
Denn Texteintrag kann ich w...
03.09.2008 22:29:00
Thread-ID: 1007246
8 Beiträge
Anzeige
Text in Textbox an Cursorposition einfügen
Peter

Hallo zusammen,
ein Problem mit einer Textbox beschäftigt mich nun schon eine ganze Zeit. Vielleicht habt Ihr ja eine Idee zur Lösung ...
Ich schreibe eine Anwendung mit einer Userform. Auf der Userform ist eine Listbox und eine Textbox. Per Doppelklick auf einen Eintrag in der Listbox...
26.11.2008 15:45:07
Thread-ID: 1028071
3 Beiträge
Grafiken in Excel positionieren
Marcus

Hallo,
habe folgende Frage und Bitte:
'Bezeichnung der Bilder in Tabelle suchen 'und Bild kopieren For Each Zelle In Tabelle.UsedRange Bezeichnung = Zelle.Text If Dic.Exists(Bezeichnung) Then Dic(Bezeichnung).Copy Tabelle.Paste Set Sh = Tabelle.Shapes(Tabelle.Shapes.Count) Sh.Top = Ze...
13.05.2009 06:52:12
Thread-ID: 1074692
4 Beiträge
Anzeige
Grafik einfügen und Position bestimmen
Frank68

Hallo Freunde,
zunächst mein Beileid für alle, die wie ich bei diesem Wetter arbeiten müssen.
Nun zu meiner Frage: Ich möchte in einem Excelblatt per Makro jpg.-Grafiken einfügen. Die Grafik soll etwa ein A4-Blatt im Querformat einnehmen; das Excelblatt nutze ich, um eine Legende unter...
16.08.2009 11:21:23
Thread-ID: 1096218
8 Beiträge
Fenster ab eine Bestimmte Spalte positionieren
Nibio

Hallo Profis,
wie lautet Makro Befehl um das Fenster ab Splate X sichtbar zu machen nach Makro ausführung?
Ich habe versucht mit Range("x1").Select versucht aber funktioniert nicht ,es wird damit nur x1 markiert,
aber das Fenster ist nicht mit X als Anfang positioniert.
Vielen...
18.08.2009 12:18:14
Thread-ID: 1096705
10 Beiträge
Relative Positionierung von Zelleninhalten
Zelleninhalten

Hallo,
folgendes: anhand einer Vorlage habe ich diesen Projektplan erstellt
[img]http://img2.pict.com/df/de/61/1592724/0/800/ganttchart.png[/img]
Die Farben entsprechen Ressourcen und Engpässe im Betrieb können auf diese Weise
schneller erkannt werden.
Der Zeitstrahl in Zei...
09.09.2009 12:34:30
Thread-ID: 1101511
7 Beiträge
Aus Tabelle4 in Tab1 ZeilenPosition finden
Franz

Hallo Excelisten,
Was muss ich hier ändern um den Zeilenwert zu erfahren? Sub Suche_NEW() Dim Zeilenwert As Integer Zeilenwert= iRowValueItem("29437436", 1) MsgBox (Zeilenwert) End Sub
Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer
Dim rng As Range
If...
23.10.2009 21:47:13
Thread-ID: 1111734
3 Beiträge
Pixel Position in einem Diagramm
Andreas

Hallo,
kann mir jemand erklären, wie man die X/Y Position eines Punktes in einem Diagramm rausfinden kann.
also soetwas wie
Sheets("Daten").ChartObjects("Diagramm 1").Chart.SeriesCollection(1).Points(10).X
es hat den hintergrund dass dieses diagramm als Bild in eine Userform lad...
02.01.2010 16:32:28
Thread-ID: 1126734
11 Beiträge
Grafikposition in Diagramm
Matthias

Hallo,
ich importiere ein Logo in ein Diagramm. Nun möchte ich, dass das Logo oben rechts in der Ecke positioniert wird. Wie kann ich das erreichen ?
Vielen Dank.
Matthias
22.01.2010 18:02:12
Thread-ID: 1132145
2 Beiträge
Makro: Cursor unterhalb v. Eingaben positionieren
tuska

Hallo,
ich habe mir mit dem Macrorecorder folgendes Makro aufgezeichnet Sub auto_open() Sheets("Tabelle1").Select Range("A2").Select Selection.End(xlDown).Select Range("A5").Select End Sub
Die Spalte A ist als Datum formatiert. In Zellen A2:A4 wurde jeweils das Datum 06.07.2010 eingeg...
06.07.2010 23:13:38
Thread-ID: 1165836
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige