Autokennzeichen automatisch formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans,

Tabelle1

	A	B
26	h-al 209	H-AL 209

verwendete Formeln
Zelle	Formel	Bereich	N/A
B26	=GROSS(A26)

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim objRange As Object, strTemp As String On Error GoTo ErrorHandler If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Application.EnableEvents = False For Each objRange In Intersect(Target, Range("A2:A100")) If Len(objRange) Then strTemp = UCase(Trim(Replace(objRange, "-", ""))) If Len(strTemp) = Len(Replace(strTemp, " ", "")) + 2 Then objRange = Split(strTemp, " ")(0) & "-" & Split(strTemp, " ")(1) & _ " " & Split(strTemp, " ")(2) End If End If Next End If ErrorHandler: Application.EnableEvents = True End Sub

Hallo Sepp,
ich hab dich leider nicht ganz verstanden wohin mit dem Code!?
So sieht mein VBA Projekt bisher aus
Userbild

Leider kann ich VBA wenn überhaupt nur mit dem Makrorekorder
Meine KFZ Kennzeichen sollen in Zelle AT5 eingefügt werden.
Also hab ich das Makro so geändert:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Object, strTemp As String
On Error GoTo ErrorHandler
If Not Intersect(Target, Range("AT5")) Is Nothing Then
  Application.EnableEvents = False
  For Each objRange In Intersect(Target, Range("AT5"))
    If Len(objRange) Then
      strTemp = UCase(Trim(Replace(objRange, "-", "")))
      If Len(strTemp) = Len(Replace(strTemp, " ", "")) + 2 Then
        objRange = Split(strTemp, " ")(0) & "-" & Split(strTemp, " ")(1) & _
          " " & Split(strTemp, " ")(2)
      End If
    End If
  Next
End If
ErrorHandler:
Application.EnableEvents = True
End Sub

Hans

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim strTemp As String On Error GoTo ErrorHandler If Not Intersect(Target, Range("AT5")) Is Nothing Then Application.EnableEvents = False If Len(Target) Then strTemp = UCase(Trim(Replace(Target, "-", ""))) If Len(strTemp) = Len(Replace(strTemp, " ", "")) + 2 Then Target = Split(strTemp, " ")(0) & "-" & Split(strTemp, " ")(1) & _ " " & Split(strTemp, " ")(2) End If End If End If ErrorHandler: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Autokennzeichen automatisch formatieren

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread