Herbers Excel-Forum - das Archiv

Textfeld in Symbolleiste

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Textfeld in Symbolleiste
von: Lino

Geschrieben am: 18.04.2005 11:32:23
Hallo Excelaner,
hab endlich wieder Zeit mich meinem liebsten Hobby zuzuwenden.
Da ist auch gleich das erste Problem aufgetreten.
Ich brauche eine Symbolleiste mit einem Eingabefeld, ähnlich einem Textfeld.
Dort soll man eine Zahl eintippen und mit Return bestätigen können.
Diese Zahl brauche ich für meinen VBA Code.
Ich hatte es zuerst in einem UF ist aber für meinen Fall nicht sehr gut.
Kann mir jemand helfen!?
Vielen Dank schon mal.
Grüße
LINO
Bild

Betrifft: AW: Textfeld in Symbolleiste
von: Herbert
Geschrieben am: 18.04.2005 13:16:48
Hi,
dafür gibt es das Control msoControlEdit.
mfg Herbert
Bild

Betrifft: AW: Textfeld in Symbolleiste
von: Lino
Geschrieben am: 18.04.2005 13:35:23
Vielen Dank für die Antwort erst mal.
Ist leider sehr knapp.
Gibt's ein kleines Beispiel?
Oder wo kann ich da nachkucken?
Ich hab's auch mit der Online Hilfe probiert, nix drin.
Bild

Betrifft: AW: Textfeld in Symbolleiste
von: Herbert
Geschrieben am: 18.04.2005 13:43:22
Hi,
bei einem Excelprofi mit guten VBA-Kenntnissen setze ich voraus, dass er sich
mithilfe des Objektkatalogs selbst zurchtfindet.
mfg Herbert
Bild

Betrifft: AW: Textfeld in Symbolleiste
von: Lino
Geschrieben am: 18.04.2005 13:54:11
Da bin ich aber nettere Antworten von diesem Forum gewohnt.
Ich werd schon klar kommen,
vielen Dank!
Ich werde beim nächsten Mal den Kenntnisstand auf Laie einstellen.
Vielleicht sollte man sie auch etwas differenzierter einstellen können.
Bild

Betrifft: AW: Textfeld in Symbolleiste
von: LINO

Geschrieben am: 18.04.2005 14:57:03
wie wäre es hiermit gewesen?
Public
Sub CreateCommandBarWithControls()
Dim cbCommandBar As Office.CommandBar
Dim cbCommandBarComboBox As Office.CommandBarComboBox
For Each cbCommandBar In Application.CommandBars
If cbCommandBar.Name = "Controls Demo" Then
cbCommandBar.Delete
End If
Next cbCommandBar
Set cbCommandBar = Application.CommandBars.Add _
("Controls Demo")
With cbCommandBar.Controls
Set cbCommandBarComboBox = .Add(msoControlEdit)
With cbCommandBarComboBox
.Caption = "Search"
.Text = "Type search term"
.TooltipText = "Type the term you want to find."
End With
End With
cbCommandBar.Visible = True
End Sub

Bild

Betrifft: AW: Textfeld in Symbolleiste
von: Herbert

Geschrieben am: 18.04.2005 15:04:40
Hi,
na bitte, geht doch, wieso soll ich dann die Arbeit für dich erledigen?
mfg Herbert
 Bild
Excel-Beispiele zum Thema "Textfeld in Symbolleiste"
Freiraum am linken Rand von MS-FORMS-Textfeldern löschen Datumseingabe in Textfeld erzwingen
Textfelder in UserForm beim Start vorbelegen Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt
Im Textfeld nur Eingabe von 2 Ziffern zulassen, dann zum nächsten Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen Symbolleiste sichern
Symbolleistenschaltfläche hinzufügen Symbolleisten ein-/ausblenden