Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Autokorrektur auf mehrere spalten aufrufen bzw abschalten

Autokorrektur auf mehrere spalten aufrufen bzw abschalten
22.07.2024 12:35:33
Suzi
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.AutoCorrect.ReplaceText = Target.Column = 1
End Sub


Das ist ja nur auf eine Spalte anwendbar. Ich bräuchte es aber auf mehrere. NICHT auf alle.
Könnte mir da jemand helfen?
Danke schonmal im voraus.

Lg
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autokorrektur auf mehrere spalten aufrufen bzw abschalten
22.07.2024 13:06:09
MCO
Hallo Suzi!

Folgender Code erfüllt deine Bedingung.
Ich hab nur alle Spalten, die es begrifft in den String, getrennt mit Punkt reingeschrieben. Dies muss so sein, da 1-9 immer wieder auch in den spalten 10-x vorkommen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Spalten_ohne_RSK = "1.2.3.5.6.9.10."
Application.AutoCorrect.ReplaceText = InStr(Spalten_ohne_RSK, Target.Column & ".") > 0
End Sub


Gruß, MCO
Anzeige
AW: Autokorrektur auf mehrere spalten aufrufen bzw abschalten
22.07.2024 13:12:25
Suzi
Ich danke dir vielmals. Es hat geklappt. Ich bin überglücklich. Danke, danke, danke.
AW: Autokorrektur auf mehrere spalten aufrufen bzw abschalten
22.07.2024 14:42:53
Yal
Moin,

richtige Antwort von MCO, ich erlaube mir eine andere Version zu liefern:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target.Column
Case 1, 2, 3, 4, 5
Application.AutoCorrect.ReplaceText = True
Case Else
Application.AutoCorrect.ReplaceText = False
End Select
End Sub

Ich gehe davon aus, dass der Code-Zweck hier weniger versteckt ist.

Bitte beachten, dass bei einem "SelectionChange"-Ereignis "Target" die Zelle entspricht, die gerade selektiert wird und nicht die, die gerade verlassen wurde.
Ausserdem aggiert, mMn, Application.AutoCorrect.ReplaceText auf das ganze Blatt...

VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige