Diego Ms Help / 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?

What the macro doas: It lists all files in the chosen filesystem. in range A it writes the addres, in range B it writes the filename What i need to be added: in range C it writes the last changedate the matching command must be: ".DateLastModified " i have tried again and again but keep getting error messages-.-
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich

Ja aber das modifizieren war nicht so tragisch. Hab ja nur 2 Zeilen eingefügt bzw 2 mal kopiert und 3 Worte und 2 Zahlen geändert.

WOW, du hast sogar die gleiche variable wie ich benutzt . Im Grunde ist es einläuchtend, was du gemacht hast und ich habe genau das gleich versucht und zwar ca. 1,5 Stunden am Stück, warum das jetzt auf einmal läuft und vorher nicht ist mir ein Rätsel, den Goldenen Stern hast du dir verdient

ich hätte das DH mehrfach vergeben. aber schau Dir trotzdem die beiden Links an, probiere die integrierte Eigenschaft mit Nummer auch mit anderen Nummern aus oder such sonst im Netz was dazu.

Ich weiß nicht wie ich dazu gekommen bin das jetzt auf englisch zu schreiben, also hier nochmal in deutsch:
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified

Da ich lange nichts mehr mit VBA gemacht habe und da nur in Word, kann ich dir da leider nicht weiterhelfen, aber ich verweise dich da gerne auf das Forum von Microsoft.
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community

i've found sth similar in :
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there

machst du dich über mein Englisch lustig? o.o

lustig macht er sich nicht, aber perfekt ist es auch nicht.

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?