Diego Ms / RR:Suche

Ich will mir eine Symbolleiste mit den Features, die ich am meisten benutze, erstellen. Darunter fallen "hochstellen" und "tiefstellen". Ich finde diese Schaltflächen in keiner der Kategorien unter Optionen für Symbolleisten -> Schaltflächen hinzufügen oder entfernen -> Anpassen -> Befehle. Kann mir jemand helfen?

Das sind Word-Buttons. gibts in xls nicht vorgefertigt. Du kannst folgendes machen: füge in xls in eine Deiner Leisten zwei benutzerdefinierte Knöpfe ein.
Öffne Word. suche dort die Knöpfe unter Format. Kopiere einen Knopf. Wechsle zu xls unf füge das in einen der beiden benutzerdefinierten Knöpfe ein. Jetzt hast Du aber erst das Aussehen, noch nicht die Funktion.
Du musst jetzt festlegen: willst Du eine ganze Zelle hochstellen oder `=>einen Buchstaben im Text. Erstelle eine Zelle mit Text
Zeichne ein Makro auf, indem Du zb einen Buchstaben des Textes hochstellst. Beende die Aufzeichnung und benenne das Makri eindeutig, zB Zeichen_hochstellen
Geh zurück in Deine xl-Zelle. Prüfe, ob das Makro tut. Weise nun das Makro dem Knopf zu.
Vergewissere Dich vor einem Neustart, dass Du die xlb nicht aus einem anderen Startverzeichnis holst. Suche ggf die die zuletzt geänderte *.xlb und verschiebe sie in Dein Startverzeichnis.
Wiederhole das mit dem zweiten Knopf.
Habe mal vor sehr langer Zeit ein Makro erstellt, das automatisch chemische Indices erkennt, tiefsetzt und nach Wahl auf lesbare Größe bringt. Ist lang her und funktioniert nur mit einer selbstgestrickten Element- und Gruppentabelle, tat aber zufriedenstellend. Hat nebenbei auch noch MG ausgerechnet zB auch von so konplizierten Formeln wie K22CNSO4)2 x 12 H2O, sogar.*12aq. Ist aber ziemlich umfangreich und vielleicht nicht ganz einfach nachzuvollziehen. Bei Interesse kann ich Dir das an eine Mail anhängen und schicken

Erstmal für die gute Antwort. Ich verstehe aber nicht, wie ich das Makro so programmieren kann, dass es nur den markierten Text hoch-/tiefstellt. Bei mir sieht das Marko im Moment so aus:
Sub Zeichen_Hochstellen()
'
' Zeichen_Hochstellen Makro
' Makro am 04.02.2011 von * aufgezeichnet
'
'Range("B11").Select ActiveCell.FormulaR1C1 = "sdfggfsdfg" With ActiveCell.Characters.Font.Name = "Arial".FontStyle = "Standard".Size = 10.Strikethrough = False.Superscript = True.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic End With With ActiveCell.Characters.Font.Name = "Arial".FontStyle = "Standard".Size = 10.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic End With Range("F24").Select End Sub
Habe auch leider im Internet nichts gefunden.

Du hast recht, der innerhalb einer Zelle markierte Text ist auch für mich mit VBA nicht herauslesbar. Es wäre nun nötig zu wissen, ob es Kriterien für die Indexierung gibt: Ich habe seinerzeitnur Atome und speziell abgekürzte Molekülgruppen als Text gehabt, samt Klammern. Musste viele Fälle einzeln berücksichtigen und konnte vieles ausschließen, so dass sich dann der Rest zum Tiefsetzen über ein Ausschlussverfahren ergab.
Wie ist das bei Dir: musst Du nur Ziffern hoch-/tiefsetzen oder auch Buchstaben? Musst Du in einer Zelle sowohl hoch-/ als auch tiefsetzen oder nur eines von beiden?
Habe keine Vorstellung von Deiner genauen Aufgabenstellung

Was genau ich machen will, ist ganz unterschiedlich - mal eine ganze Zelle, mal nur einige Zeichen
Im aktuellen Fall wollte ich die Variable x mit einem Indice versehen.

während eine Zelle geöffnet ist, lässt sich prinzipiell kein Makro aufrufen, hab ich grad festgestellt. Lösungen auf Umwegen sind aber sicher aufwendiger als das Markieren und Aufrufen der Zellformatierung Strg+1, Alt+t oder.Alt+o. Ist ja auch schon was

wenn Du in einer geöffneten Zelle einen Text markiert hast, ist Alt+t, z, Alt+o oder.Alt+t sogar noch schneller

Hallo zusammen Ich benötige ein Makro für zwei Drucke - Der eine farbig normal, der andere schwarz weiss. Hab bis anhin dies geschafft: Sub DruckEineSeiteFarbeZweiteFarbeSchwarzWeis() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .BlackAndWhite = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With End Sub Doch wie bringe ich den "Aktionsbutton/Commandbutton" weg?

Hallo
Habe meinen Computer neu aufgesetzt, aber die alten Dateien behalten. Wenn ich nun versuche, z.B. Excel zu starten, kommt eine Fehlermeldung; Ihr Betriebssystem ist Momentan nicht für die Ausführung konfiguriert. Wie kann ich das konfigurieren? Wollte zuerst bei Microsoft nachfragen, allerdings finde ich dort nicht. Und support ist auch ziemlich komisch, da fallen kosten von 300Euro an!

Hast du MS Office neu installiert? Wenn du versuchst eine vorher installierte Version von Office zu starten funktioniert das natürlich nicht, da MS Office mehr Datein zur Ausführung benötigt als die Dateien im Programmordner.

Leider hab ich die CD nicht . Gibt es sonst eine Möglichkeit das zu installieren? Oder kann ich eine Demo davon downloaden und den Key eingeben?

Wenn du einen gültigen und legalen Lizenzkey hast kannst du Office einfach bei Microsoft herunterladen und dann aktivieren.

Mhm, bei Microsoft gibt es scheinbar nur noch die 2010er Version zum Download. Und Links zu halblegalen Angeboten werde hier natürlich nciht posten
Ohne dir zu Nahe treten zu wollen, vermute ich aber ohnehin dass du eine Raubkopie benutzt hast
Überlege dir eventuell Office zu kaufen: http://www20.buyoffice.microsoft.com/emea1/product.aspx?sku=10234531&cache=997125349&action=buy&culture=de-DE
Ansonsten gibt es ja Alternativen wie OpenOffice

LEGAL! Wirklich
Ist leider eben schon ein bisschen älter.

welches Betriebssystem hast du installiert? Auch MS-Office oder Excel installiert?

Ich habe die unten stehende Anweisung mit einiger Hilfe aus dem Netz erstellt, die eine Suchfunktion über alle Arbeitsblätter bereitstellt und bisher genau meinen Vorstellungen entspricht. Als weitere Feinheit möchte ich, dass die Zelle, deren Inhalt den Suchkriterien entspricht, farblich hervorgehoben wird, um den entsprechenden Eintrag schneller zu visualisieren. Natürlich soll die Zelle nach Verlassen der Suchfunktion wieder ihre ursprüngliche Formatierung erhalten. Da ich ein absoluter Neuling auf diesem Gebiet bin, benötige! Micky
Hier der Code:
Public Sub SearchAllTables()Dim ws As Worksheet Dim c Dim firstAddress As String Dim secAddress Dim GFound As Boolean Dim GWeiter As Boolean GWeiter = False GFound = False anf:
SSearch = InputBox("Bitte geben Sie einen Suchbegriff ein" & vbCrLf & ":", "automatische Suche Telefonverzeichnis Kronshagen", SSearch)
If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets 'ws.Select With ws.Cells Set c =.Find If Not c Is Nothing Then GFound = True ws.Select c.Select firstAddress = c.Address If MsgBox("Möchten Sie weitersuchen?" & vbCrLf & "'Nein' führt zurück zum Hauptmenü", vbQuestion + vbYesNoc"Möchten Sie weitersuchen?" & vbCrLf & "'Nein' führt zurück zum Hauptmenü", vbQuestion + vbYesNo"Kein Eintrag! Neue Suche?", vbInformation + vbYesNo"Sie haben alle Verzeichnisse durchsucht! Möchten Sie eine neue Suche starten?", vbInformation + vbYesNo"Deckblatt").Select End Sub

wills versuchen:
oben:
Dim Zellfarbe 'ich spare mir üblicherweise das As long etc, ausser bei As Range, xl macht das selbst ausreichend gut.
. Nach ".Then GFound = True ws.Select c.Select"
Zellfarbe = c.interior.colorindex 'der color-index von Zelle c wird erfasst
c.interior.colorindex = 6 'die Zelle wird jetzt gelb gefärbt
nach Do :
c.interior.colorindex = Zellfarbe 'stellt die alter Zellfarbe der vorherigen Zelle wieder her.
Wenn aber ALLE Findezellen markiert BLEIBEN sollen, diese Zeile weglassen, allerdings hinterlässt dann die Suche Farbspuren, die manuell beseitigt werden müssen
Nach "Set c =.FindNext" wieder
Zellfarbe = c.interior.colorindex 'die Zelle bleibt bis nach der Fragebox und weiter bis an den Anfang der nächsten Schleife gefärbt, dann kommt die nächste dran.
Vor Goto Ende nochmals eine Rückstellung:
c.interior.colorindex = Zellfarbe
desgl. auch jeweils vor beiden Goto anf:, damit vor einem neuen Durchlauf alles wieder beim alten ist. Ausserdem noch, falls alles andere übersprungen wurde, vor next ws dasselbe und vorsichtshalber auch noch 2x jeweils vor goto ende, sozusagen jeden Ausgang absichern
Ich hoffe, ich habe bei dieser Trockenübung die Schleifenstruktur richtig erfasst (mir fehlen Dim SSearch, die Zeile ende: , auch vbCrLf kenne ich noch nicht: es scheint sich in den letzten Jahren wieder einiges getan zu haben in VBA.
Hoffe, Du kommst damit zurecht.

für den *, Du konntest doch so schnell gar nicht überprüfen, obs funktioniert?

Nein, aber mittlerweile habe ich es ausprobiert und bekomme leider immer den Laufzeitfehler 1004 genau in der Zeile c.interior.colorindex = 6. Da ich keinen Plan davon habe, werde ich mit einigem Versuchen hoffentlich den Fehler beheben können. "Learning by doing"
Der * ist allein schon dafür, dass Du Dich überhaupt so intensiv damit beschäftigt hast. Ich hatte die Hoffnung bereits aufgegeben.

versuch in der Do-Schleife mal nach
secAddress = c.Address
Range.interior.colorindex =6
evtl sogar
Range.Cells.interior.colorindex =6
Das sollte auch funktionieren. Möglicherweise ist c in der Schleife oder in Kombination mit find nicht als Objekt frei handlebar.

ach ja, und nach
firstAddress = c.Address
natürlich noch
Range.
Übrigens würde ich nicht ws.select nehmen sondern ws.activate
Dann bleibt die vorhandene Auswahl im ws erhalten Kann stören oder hilfreich sein, solltest nur wissen, warum du was machst.

Zunächst nochmals "". Mittlerweile läuft das Script fehlerfrei, aber die Zellfarbe ändert sich nicht wirklich. Habe allerlei ausprobiert., alles läuft, aber es ändert sich einfach die Farbe nicht. Endlich mal ein fehlerfreies Programm ohne Funktion

Die Formatdetails einer Zelle sind sehr zahlreich , deshalb ist es sinnvoll, sich auf interior.colorindex zu beschränken
Du musst also erst den Colorindex einer gefundenen Zelle in einer Variablen festhalten, dann den Colorindex der Zelle auf die gewünschte Markierfarbe setzen und am Ende wieder rückwärts (muss im selben Makro geschehen, da die Variable wieder gelöscht wird.
Rufst Du per Makro ein anderes auf und soll die Var dort verfügbar sein, musst Du sie im Modulkopf als Public deklarieren.
Zellfarbe = Activecell.interior.colorindex 'auslesen
Activecell.interior.colorindex = 6 'gelb
. Activecell.interior.colorindex = Zellfarbe 'zurückstellen
Man kann das genausogut per RGB-Fkt machen, das ist etwas kürzer, aber die Zahl unanschaulicher:
Zellfarbe = Activecell.interior.color 'usw.

für die Antwort, ich hatte die Hoffnung bereits aufgegeben. Ich kann mit Office eigentlich sehr gut umgehen, aber von VBA / Makros habe ich überhaupt keinen Plan und hoffe nun, dass Du mir beim Einbau in das vorhandene Script helfen kannst?

Hallo,
ich habe eine Powerpoint Präsentation erstellt, die ich in MS 2003 abspeichern muss!
Dies geht auch, jedoch wenn ich das Programm mit meinem Open Office starte, öffnet er auch alle Texte/ Bilder und auch die meisten Animationen.
Doch dort liegt mein Ärger, die meisten Animationen! Ich habe in meiner Präsentation Animationspfade erstellt, die perfekt in MS 2010 angezeigt wurden, jedoch in Open Office nur teilweise bzw. falsch dargestellt werden. Ich habe auch bereits versucht, die Animationen komplett in Open Office neu zu machen, jedoch wenn ich die Präsentaion danach wieder speichere und öffne passiert der selbe Fehler noch mal, also speichert er die Animationspfade nicht richtig!
Kann mir jemand helfen?
Noch einen schönen Abend.

Gammablitz

Das liegt wohl daran das die effekte nur in MS Powerpoint vorhanden sind egal ob 2003 oder 2010. In OpenOffice existieren diese effekte einfach nicht.
Kannst es nicht einfach in MS Powerpoint lassen, warum der Quark mit Open Office?

Bist du dir den zu 100 % sicher das wenn ich die 2010 Präsentation in 2003 speichere auch alle Animationen komplett und richtig in 2003 angezeigt werden?

Hab noch nix gegenteiliges festgestellt, zumindest wenn es um die einigermaßen Standardmäßigen Animationen geht. Wenn die in 2010 komplexer sind, mmh möcht ich meine Hand net ins für ins Feuer legen.

offensichtlich liegt das problem beim abspeichern, denn oo sagt ja, wenn der dateityp festgelegt wurde, es kann sein, dass einige aktionen, die mit oo.eingestellt wurden, nicht genau übernommen werden. bei mir speichert er unter microsoft power point 97/2000/xp ab, da übernimmt er die komplette präsentation. ansonsten bei ms 2000 lassen.m.