Zeichen in Zelle einfügen

Hallo,
hab ein kleines Problem mit Excel. Möchte in eine einzelne Zelle hin und wieder Sonderzeichen einfügen (z.B. umgedrehtes Fragezeichen für Spanisch-Vokabeln). Das Makro hab ich auch schon hinbekommen und mir eine eigenen Symbolleiste angelegt, nur wenn ich jetzt auf die Buttons klicke, wird bestehender Inhalt in den Zellen einfach überschrieben mit dem Sonderzeichen. Desweiteren ist die Zelle anschließend nicht mehr zum Bearbeiten aktiv.
Beispiel:
Wenn ich eingeben will: "Yo soy español"
sollte das so ablaufen:
Eingabe Yo soy espa
dann klick auf die Schaltfläche für das n mit Tilde
danach gleich weiterschreiben mit ol.
Wie muss ich dafür meinen bisher bestehenden Code erweitern?


Sub umgedrehtes_Fragezeichen()
' umgedrehtes_Fragezeichen Makro
' Makro am 24.04.2005 von katho aufgezeichnet
' Tastenkombination: Strg+ß
ActiveCell.Value = "¿"
End Sub


Sub n_mit_Tilde()
' n_mit_Tilde Makro
' Makro am 24.04.2005 von katho aufgezeichnet
' Tastenkombination: Strg+n
ActiveCell.Value = "ñ"
End Sub

Vielen Dank schonmal im Voraus!
Gruß Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ok, hab das ganze jetzt soweit, dass die Zeichen richtig eingefügt werden, und die Zelle hinterher aktiv bleibt für weitere Tastatureingaben. Soweit, so gut.
Das einzige Problem, dass ich jetzt noch habe, dass ich die Makros bei schon aktivierter Zelle nicht starten kann. Wie soll das genau funktionieren mit der Userform? Bzw. was genau ist das? Nie gehört...
Mein Code bis jetzt:


Sub umgedrehtes_Fragezeichen()
' umgedrehtes_Fragezeichen Makro
' Makro am 24.04.2005 von katho aufgezeichnet
ActiveCell.Characters(Start:=Len(ActiveCell) + 1, Length:=1).Text = "¿"
ActiveCell.Activate
SendKeys "{F2}"
End Sub


Sub n_klein_mit_Tilde()
' n_mit_Tilde Makro
' Makro am 24.04.2005 von katho aufgezeichnet
ActiveCell.Characters(Start:=Len(ActiveCell) + 1, Length:=1).Text = "ñ"
ActiveCell.Activate
SendKeys "{F2}"
End Sub


Sub N_groß_mit_Tilde()
' N_groß_mit_Tilde Makro
' Makro am 24.04.2005 von katho aufgezeichnet
ActiveCell.Characters(Start:=Len(ActiveCell) + 1, Length:=1).Text = "Ñ"
ActiveCell.Activate
SendKeys "{F2}"
End Sub


Sub j_tiefgestellt()
' j_tiefgestellt Makro
' Makro am 24.04.2005 von katho aufgezeichnet
ActiveCell.Characters(Start:=Len(ActiveCell) + 1, Length:=1).Text = "¡"
ActiveCell.Activate
SendKeys "{F2}"
End Sub

Achja, wie schaffe ich es, dass die Makros als vertrauenswürdig eingestuft werden und beim Öffnen des Dokuments mit ausgeführt werden? Will eigentlich nur ungern meine Sicherheitsstufe was Makros betrifft runtersetzen.
Gruß Thomas

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichen in Zelle einfügen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread