Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1732to1736
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
Inhaltsverzeichnis

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

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
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!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige