dropdown feld

[Ubi5]

Hallo,

Frage:
Ist es irgendwie möglich aus einen Dropdown Feld nur die ersten vier Ziffern zu übernehmen?

Wenn ja - bitte um Hilfestellung!

Lg Ubi5

[RPP63]

Moin!
Ins Modul der Tabelle:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Exit
If Not Intersect(Range("B3:B6"), Target) Is Nothing Then
  Application.EnableEvents = False
  Target = Left(Target, 4)
End If
Err_Exit:
  Application.EnableEvents = True
End Sub

Gruß Ralf

[Ubi5]

Danke Ralf - funktioniert einwandfrei!!!!

Lg Ubi5

[RPP63]

Beachte, dass ich den Code noch um ein Err_Exit ergänzt habe!
Der erste Code läuft in einen Fehler, wenn man mehrere Zellen gleichzeitig löscht.

[HKindler]

Hi,

wenn mehrere Zellen gleichzeitig geändert werden können, dann mach ich es so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Intersect(Range("B3:B6"), Target)
If Not Bereich Is Nothing Then
  Application.EnableEvents = False
  On Error Resume Next
  For Each Zelle n Bereich
    Zelle = Left(Zelle, 4)
  Next Zelle
  On Error Goto 0
  Application.EnableEvents = True
End If
End Sub

[Ubi5]

Danke für die beiden Hilfestellungen - habe noch ein kleines Problem.
Wenn ich das dropdown Feld anklicke - sehe ich nicht den ganzen Text - kann man das auch anpassen? - siehe Datei!

Lg Ubi5

[HKindler]

Hi,

ja, du musst einfach deine Spalte B breit genug machen.

[Ubi5]

Hallo Helmut, dass ist mir schon bewusst, habe aber die ganze Bildschirmseite schon ausgereizt - gibt es vielleicht eine andere Möglichkeit?

[RPP63]

Dies funktioniert nicht mit Datenüberprüfung, Liste!
Du könntest aber (ganz ohne VBA) Datenüberprüfung, Eingabemeldung arbeiten und das Zahlenkürzel manuell eingeben.