Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Ribbon Editbox dynamisch füllen.

648 views
Skip to first unread message

Petra Kessler

unread,
Mar 6, 2009, 1:55:02 PM3/6/09
to
Hallo NGler,

ich habe mir da ein kleines Ribbon gebastelt 1 Editbox und 2 Buttons.
Mit dem ersten Button soll der Inhalt der aktuellen Zelle eingelesen und in
der der Editbox "geparkt" werden.
Mit dem zweiten Button soll der in der Editbox geparkte Text wieder in Excel
eingefügt werden können.

Nun habe ich zwar schon allerlei mir an Informationen zum Programmcode fürs
"dynamische Ribbon" zusammengetragen, aber es will
irgendwie nicht gelingen.

Ich müsste mal eine Beispielsdatei sehen, wo so etwas oder etwas ähnliches
realisiert ist.
Z.B. per VBA einen Labeltext im Ribbon ändern.

Es wäre dann sicherlich leichter nach so einer Vorlage meine Datei
anzupassen.

Weis von Euch zufällig jemand, wo man so etwas downloaden kann?

Vorab besten Dank Petra

Eberhard Funke

unread,
Mar 6, 2009, 2:24:44 PM3/6/09
to
Am Fri, 6 Mar 2009 19:55:02 +0100 schrieb Petra Kessler:

Hallo Petra,

versuch's mal mit dem Suchbegriff: ribbon unter
http://groups.google.com/group/microsoft.public.de.excel/topics
und wenn Du fündig wirst, verrate mir bitte mal, was ein "Ribbon" ist.

--
Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Andreas Killer

unread,
Mar 7, 2009, 2:13:52 AM3/7/09
to
Eberhard Funke schrieb:

> versuch's mal mit dem Suchbegriff: ribbon unter
> http://groups.google.com/group/microsoft.public.de.excel/topics
> und wenn Du fündig wirst, verrate mir bitte mal, was ein "Ribbon" ist.

Kuckst Du hier:

http://spreadsheets.about.com/od/excel101/ss/excel_2007_scre.htm

Und Petra kuckt bitte hier:

http://blogs.msdn.com/excel/archive/2007/08/07/sam-radakovitz-on-dynamic-ribbon-galleries.aspx
Da gibt es:
http://officeblogs.net/excel/Charts_In_Ribbon.zip

Für sowas einfaches wie einen Text aber villeicht eher hier:
http://www.xtremevbtalk.com/showthread.php?t=265636
http://openxmldeveloper.org/articles/CustomUIeditor.aspx

Und für noch mehr hier:
http://msdn.microsoft.com/en-us/aa338202.aspx

Andreas.

Eberhard Funke

unread,
Mar 7, 2009, 3:34:34 AM3/7/09
to
Am Sat, 07 Mar 2009 08:13:52 +0100 schrieb Andreas Killer:

>> und wenn Du fündig wirst, verrate mir bitte mal, was ein "Ribbon" ist.
> Kuckst Du hier:
>
> http://spreadsheets.about.com/od/excel101/ss/excel_2007_scre.htm
>

Die Tage, die ich mit meinem XL 2k hier mitreden kann, sind gezählt :-(

Petra Kessler

unread,
Mar 12, 2009, 2:37:25 PM3/12/09
to
Danke allen,

viel Material. Aber genau das ist mein Problem. Gefunden habe ich auch schon
jede Menge.
Nur klare Beispiele zu meinem Problem sind leider keine dabei.

Da muss ich halt weiter experimentieren.

Gruß Petra

"Eberhard Funke" <nomail@invalid> schrieb im Newsbeitrag
news:5nwpgobusqr5$.z7ndue8wns2l.dlg@40tude.net...

Melanie Breden

unread,
Mar 15, 2009, 11:26:10 AM3/15/09
to
Hallo Petra,

"Petra Kessler" schrieb:

> ich habe mir da ein kleines Ribbon gebastelt 1 Editbox und 2 Buttons.
> Mit dem ersten Button soll der Inhalt der aktuellen Zelle eingelesen und
> in der der Editbox "geparkt" werden.
> Mit dem zweiten Button soll der in der Editbox geparkte Text wieder in
> Excel eingefügt werden können.

probiere mal folgenden xml und VBA-Code, der deine gewünschten
Funktionen erledigt:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="r_onLoad">
<ribbon>
<tabs>
<tab id="tab01" label="Textfeld" insertBeforeMso="TabHome">
<group id="grp01" label="Textfeld">
<editBox id="txt01" getText="txt01_getText"/>
<button id="btn01" label="Kopieren" onAction="btn01_OnAction"/>
<button id="btn02" label="Einfügen" onAction="btn02_OnAction"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

'#################################################
Option Explicit

Dim objRibbon As IRibbonUI
Dim strText As String

Public Sub r_onLoad(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub

Public Sub txt01_getText(control As IRibbonControl, ByRef text)
' Text aus aktiver Zelle zwischenspeichern und in Textbox einfügen
strText = ActiveCell.Value
text = strText
End Sub

' Kopieren
Public Sub btn01_OnAction(control As IRibbonControl)
objRibbon.InvalidateControl "txt01"
End Sub

' Einfügen
Public Sub btn02_OnAction(control As IRibbonControl)
ActiveCell.Value = strText
End Sub


> Weis von Euch zufällig jemand, wo man so etwas downloaden kann?

schau mal in den unteren Link in meiner Signatur ...


Mit freundlichen Grüssen
Melanie Breden

--
- Microsoft MVP für Excel -
www.melanie-breden.de

Ribbon-Programmierung für Office 2007 http://tinyurl.com/59awla

frankarendt-theilen

unread,
Mar 15, 2009, 2:02:43 PM3/15/09
to
Hallo Melanie,
prima Lösung! Ich habe mir erlaubt, das Makro zum Einfügen des
Textes, etwas aufzubohren:

' Einfügen
Public Sub btn02_OnAction(control As IRibbonControl)

If IsDate(strText) Then
With Selection
.Value = CDate(strText)
.NumberFormatLocal = "TT.MM.JJJJ"
End With
Exit Sub
End If
If IsNumeric(strText) Then
With Selection
.Value = CDbl(strText)
.NumberFormat = "hh:mm:ss"
End With
Exit Sub
End If
Selection.Value = strText
End Sub

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

Karin Neugebauer

unread,
Mar 20, 2009, 1:45:22 PM3/20/09
to
Hallo Petra,

schau mal unter http://www.addin.de/
Unter "Beispiele zu Ribbons" kannst Du Dir genau die fertige Datei
downloaden.
EditBox im Ribbon dynamisch mit Wert aus Excelzelle füllen und umgekehrt
Excelzelle mit Wert aus Ribbon EditBox füllen.

Gruß Karin


"Petra Kessler" <Petra-...@gmx.net> schrieb im Newsbeitrag
news:ur%23NQ0on...@TK2MSFTNGP06.phx.gbl...

Kessler

unread,
Mar 22, 2009, 9:16:48 AM3/22/09
to
Danke nochmal allen für die Hilfe.

Es funktioniert !!!


Gruß Petra

"Karin Neugebauer" <KNEU...@gmx.net> schrieb im Newsbeitrag
news:uq6zmOYq...@TK2MSFTNGP06.phx.gbl...

0 new messages