---

Hallo!

Ich möchte folgendes vereinfacht haben.
Wenn ich bestimmte Zeichen in einer Zelle hoch- oder tiefstellen will
muss ich diese markieren und dann im Menü auf Format > Zelle > und dann hoch- oder tiefstellen wählen.

Geht dies nicht einfacher?
Im MS Word konnte ich mir einfach 2 Icons in die Werkzeugleiste ziehen und brauche dies bei markiertem Text nur zu drücken.
VBA-Kenntnisse sind nicht vorhanden.

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefwild,

was du brauchst, in ein VBA-Makro. Geht auch ganz ohne VBA-Kenntnisse, nämlich mit dem Marko-Rekorder.

- Blende dir im Excel die Symbolleiste "Visual Basic" ein
- Klicke auf das Symbol "Marko aufzeichen" (der blaue Punkt)
- Vergib einen (aussagekräftigen, aber dennoch kurzen) Namen für das Makro, z.B. Text_Hochstellen (verwende keine Leer- oder Sonderzeichen im Namen, das könnte evtl. zu Problemen führen)
- Führe jetzt die Schritte aus, die du automatisieren willst. In deinem Fall also Format, Zelle, hochstellen.
Achte darauf, dass du wirklich nur diese Schritte durchführst, die JEDES mal durchgeführt werden sollen!
Wenn du z.B. vor dem Befehl "Format" eine Zelle anklickst, wird später jedes Mal der Befehl für genau diese Zelle ausgeführt, weil sie jedes mal im Makro ausgewählt wird! Das bedeutet: Bevor du das Makro aufzeichnest, überlege dir genau, welche Schritte du effektiv benötigst.
- Klicke auf das Symbol "Aufzeichnung beenden" (blaues Quadrat), wenn du alle Befehle durchgeführt hast (in deinem Fall: Nachdem du die Formatierung mit OK bestätigt hast).

- Das Makro ist jetzt in deiner Arbeitsmappe abgelegt. Du kannst jetzt in den Symbolleisten ein neues Icon einfügen und das Makro dort hinterlegen.
- Rechte Maustaste auf einer der Symbolleisten und Befehl "Anpassen".
- Ziehe ein beliebiges Icon in die gewünschte Symbolleiste.
- Lass das Menü "Anpassen" geöffnet. Klicke mit der rechten Maustaste auf das neu eingefügte Icon.
- In diesem Kontextmenü kannst du den Namen und das Aussehen der Schaltfläche verändern.
- Relevant für dich ist der Befehl "Makro zuweisen".  Nimm diesen Befehl und wähle das Makro aus, das ausgeführt werden soll, wenn du auf die neue Schaltfläche klickst.
- Mit OK bestätigen, das "Anpassen"-Menü schließen, schon läuft die Sache.

- Das ganze mit dem Befehl "tieferstellen" wiederholen.

Bei Fragen fragen!

Ciao,
Wolfgang

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

[Diese Nachricht wurde von WolfgangE am 16. Jan. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank erst mal.

Nur Habe ich noch ein kleines Problem.
Ich will nur einen beliebigen Teil des Zellinhaltes markieren
und diesen markierten teil hoch- oder tiefstellen.
Anwendung: 1.Beliebigen Teil des Textes markieren
          2.Auf Schaltfläche hoch- oder tiefstellen
          Und Fertig
Dies gelingt mir noch nicht. Sobald ich den textteil markiert habe kann ich den Makrorecorder nicht starten.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefwild,

da kann ich leider nicht mehr helfen. Ich hab' mal die Prozedur als Makro aufzeichnen lassen (inklusive markieren des Wortteils) und gesehen, dass die Operation hier in mehrere Schritte aufgeteilt wird.

Wie man das ab besten realisiert, sowohol am Ablauf her als auch programmtechnisch, weiß ich nicht, so weit reichen meine VBA-Kenntnisse leider auch nicht mehr.

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Trotzdem Danke.

Vielleicht findet sich noch jemand der helfen kann.
Ich denke mal so ungewöhnlich ist mein Wunsch doch nicht.
Schließlich bietet MS Word als Bestandteil der Office-Familie
diese Funktion standardmäßig.

Ich gebe die Hoffnung nicht auf.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Stefwild,

vielleicht tut's so was in etwa,
allerdings gings so ganz ohne 'Krücke' nicht, das Leerzeichen.
Wenn Du jetz zB in A1 '80000 qm' tippst & läßt das Makro laufen, wird alles was hinter dem " " steht, also die qm, hochgestellt. Fiel mir auf die Schnelle nix bessres ein.
Hab' das nochmal editiert, der Effektivität halber, tut der Code dies bei allen markierten Zellen.
BTW, um die Kiste rückgangig zu machen, schreibst statt des true einfach false.
Wg. Icon's siehe Wolfgang  .

HTH, Nancy
--

Code:

---

'normales Modul
Sub high_text()
Dim cell As Range
Dim i$, x&
For Each cell In Selection
  i = cell.Value
  x = InStr(1, i, " ")
  cell.Characters(Start:=x, Length:=Len(i)).Font.Superscript = True
Next
End Sub

---

[Diese Nachricht wurde von startrek am 16. Jan. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Formatieren.txt

Hallo stefwild,

das ganze ist etwas kompliziert, ich poste eine Arbeitsmappe mit einem Makro.
Die Font-Methoden von Range.Characters haben den Nachteil, das alle nicht ausgewählten Zeichen auf den Standardwert gesetzt werden, mit dem Makro kann daher nur eine zusammenhängende Zeichenfolge formatiert werden.

Für Zugriff aus allen Excel-Dokumenten im VBA-Projektfenster Modul1 und Userform1 nach personl.xls verschieben (das Kennwort ist nicht schwer zu erraten

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!

Das mit dem Leerzeichen ist ein sehr guter Ansatz.
Die Lösung von Pablo ist ebenfalls gut läuft aber in Richtung Standardbearbeitung.

Jetzt stört nur noch das Leerzeichen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP