Buchstaben eingeben Kürzung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then Select Case Target.Value Case "abk" Target.Value = "Abkürzung" Case "def" Target.Value = "Definition" Case "ghi" Target.Value = "Ein weiterer Text" End Select End If End Sub

absolut einverstanden... was würde mein Kunde wollen, wenn er wüsste was er bräuchte
Eigentlich geben ja auch die Suchmaschinen schon fast zu jedem Problem eine Lösung aus, aber wenn man nicht weiss wonach man sucht, wird es schwierig.
Das tolle am Chat ist, dass man auf einem Resultat aufbauen kann. Im vorliegenden Fall, hat dies aber trotzdem nicht geholfen.
der code führt zum Fehler, wieso?
Es gibt mehrere Gründe warum der angegebene Code zu einem Fehler führen könnte. Ein paar mögliche Gründe sind:
Der Code befindet sich in der falschen Code-Ansicht. Der Code muss in der Code-Ansicht des Arbeitsblatts platziert werden, in dem die Spalte D enthalten ist, und nicht in der Code-Ansicht des gesamten Arbeitsbuchs oder einer anderen Modul.
Der Code verweist auf die falsche Spalte. In diesem Fall wird die Spalte D durch die Nummer 4 referenziert, das ist die interne Spaltennummerierung von Excel, es kann sein das die Spalte D in der Tabelle nicht die Nummer 4 hat.
Der Code referenziert eine nicht vorhandene Prozedur. In diesem Fall ist es die Prozedur "Worksheet_Change", die in einigen Fällen nicht automatisch erstellt wird und daher nicht vorhanden ist. Stellen Sie sicher, dass die Prozedur vorhanden ist oder erstellen Sie sie manuell
Der Code enthält Schreibfehler oder Syntaxfehler. Überprüfen Sie den Code sorgfältig auf Schreibfehler oder Syntaxfehler und korrigieren Sie diese entsprechend.
Es ist auch möglich, dass es sich um einen anderen Fehler handelt, der nicht in dieser Liste aufgeführt ist. Wenn Sie weiterhin Probleme haben, können Sie möglicherweise durch die Fehlermeldung und die Protokolle des Entwicklerbereichs in Excel oder durch das Hinzufügen von Debugging-Anweisungen im Code weitere Informationen erhalten.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then On Error Resume Next Application.EnableEvents = False Target = WorksheetFunction.VLookup(Target, Worksheets("Hilfstabelle").Range("A:B"), 2, 0) Application.EnableEvents = True End If End Sub

Code:

	
	
	
	
Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
    If .Column = 4 Then
       Select Case LCase(.Value)
       Case "d":  .Value = "Dr."
       Case "di": .Value = "Dr. jur."
       Case "dm": .Value = "Dr. med."
       Case "p":  .Value = "Prof."
       Case "pd": .Value = "Prof. Dr."
       End Select
    End If
 End With
End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread