Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoKorrektur-Optionen per Makro...

AutoKorrektur-Optionen per Makro...
08.04.2013 13:11:41
robert
Hallo,
ich habe in den Excel-Optionen-Autokorrektur
zB. "No" soll "November" werden, hinterlegt.
Kann man jetzt mit einem Makro in eine Zelle ="No" eintragen
und dass daraus "November" wird?
Also keine Umwandlung im Makro, sondern Änderung durch die Autokorrektur.
Gruß
robert

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoKorrektur-Optionen per Makro...
08.04.2013 13:19:40
Klaus
Hi,
ganz einfach:
Datei - Optionen clicken, dann so:
Userbild
Grüße,
Klaus M.vdT:

No= November ist ja schon hinterlegt...
08.04.2013 13:23:26
robert
Hi Klaus,
ich möchte erreichen, dass wenn ich mit einem Makro
zB. Cells(1,6)="No" eintrage
dann in Cells(1,6) "November" steht.
Gruß
robert

AW: No= November ist ja schon hinterlegt...
08.04.2013 13:34:38
Klaus
Hi,
dann geht das nicht!
Workaround: per VBA einmal Blattweit suchen+ersetzen "No" in "November".
Grüße,
Klaus M.vdT.

No, no way! (owT)
08.04.2013 13:24:59
EtoPHG

Danke! Ich habs vermutet..... owT
08.04.2013 13:28:49
robert

...oder von hinten durch die Brust ins Auge...
08.04.2013 13:46:08
hinten
Hallo Robert,
nicht schön :-( 
Sub Test()
ActiveSheet.Cells(1, 2) = VBA_AC("No")
End Sub
Function VBA_AC(stringIn As String) As String
Dim lX As Long
Static ACList
If IsEmpty(ACList) Then ACList = Application.AutoCorrect.ReplacementList
VBA_AC = stringIn
For lX = 1 To UBound(ACList)
If stringIn = ACList(lX, 1) Then
VBA_AC = ACList(lX, 2)
Exit Function
End If
Next lX
End Function
Gruess Hansueli

Anzeige
nicht schön? Hauptsache es geht ;-) Danke-owT
08.04.2013 13:56:35
robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige