Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel VBA, Buchstabe zu Text umwandeln

Excel VBA, Buchstabe zu Text umwandeln
16.01.2020 07:22:06
Avila
Guten Morgen alle zusammen, :-)
ich habe folgendes Problem/Anliegen.
Ich würde in Excel gerne einen Buchstaben eingeben z.B. U und Excel soll mir das dann automatisch in der Zelle wo das U steht in Urlaub umwandeln. Das einzige was ich online mal gefunden hatte war dieses Makro.
-------------
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1:$L$2" Then Exit Sub
If Target.Value = "u" Then
Call urlaub
End If
End Sub

Sub urlaub()
Range("A2") = "Urlaub"
End Sub

--------------
Naja, dass Urlaub trägt es mir natürlich immer nur in A2 ein. Und ein debugging will es auch immer bei "Target.Value" durchführen wenn ich den Inhalt über "Entf" lösche.
Hoffe einer von euch kann mir da unter die Arme greifen :-)
Vielen Dank im Vorraus und schöne Grüße
Avila
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA, Buchstabe zu Text umwandeln
16.01.2020 07:45:47
Jacob
Hi Avila,
so?
If Target.Value = "u" Or Target.Value = "U" Then Target.Value = "Urlaub"
Funktioniert mit u, unabhängig ob groß oder klein. Die Sub urlaub() wird dann überflüssig.
LG
Jacob
AW: Excel VBA, Buchstabe zu Text umwandeln
16.01.2020 07:48:00
Torsten
Hallo Avila,
die Sub urlaub ist unnoetig. Du brauchst nur (Im Codefenster des Tabellenblattes):

Option Explicit
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target Is Nothing Then Exit Sub
If Target.Value = "u" Then Target = "Urlaub"
End Sub

Gruss Torsten
Anzeige
AW: Excel VBA, Buchstabe zu Text umwandeln
16.01.2020 07:59:29
Torsten
Hallo nochmal,
kleine Verbesserung. Gross und Kleinschreibung jetzt egal und Fehlermeldung verhindert, wenn mehrere Zellen ausgewaehlt zum Loeschen.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If UCase(Target) = UCase("u") Then Target = "Urlaub"
End Sub

Gruss Torsten
Anzeige
AW: Excel VBA, Buchstabe zu Text umwandeln
16.01.2020 08:35:16
Avila
Danke euch allen! Hat alles super geklappt! Schöne Restwoche euch beiden noch!
;

Forumthreads zu verwandten Themen

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