Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 353
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Andiwillswissen vom 20.04.2017, 19:20 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Benutzerdefinierte Formatierung von Zellen mit Zahlen und Buchstaben

 (272 Hits)

Hallo,

ich möchte die Zellen F19 bis F3000 in Excel so formatieren dass ich nur Zahlen und Buchstaben eingebe, und die Zelle automatisch folgende Darstellung anzeigt:
ZB: 0-170420-AA

Der Aufbau ist immer gleich! Die erste Zahl ist immer eine "0"
danach kommt immer ein Bindestrich
darauf folgt immer eine beliebige 6stellige Zahl (die ich frei eintippen kann)
daraufhin wieder ein Bildestrich
zuletzt folgen zwei beliebige Buchstaben die groß geschrieben werden sollen (die tippe ich auch frei ein)

Ich würde gerne nur "170420aa" tippen wollen und die Formatierung sollte das ganze "0-170420-AA" darstellen.

Zur Not kann ich auf die Großschreibung der AA's auch verzichten.

Leider bin in eine Niete in VBA. Vielleicht hat mir jemand eine Anleitung und eine Programmierung bereit. Habe schon so viel im Internet recherchiert, aber habe nie etwas gefunden was miur weitergeholfen hat.

Vielen Dank im Vorraus
Andi


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 21.04.2017, 08:03 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andi,

für in das VBA-Project der betreffenden Tabelle den folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strInhalt As String

'Nur Ausführen, wenn Eingabe im Bereich F19 bis F3000 erfolgt
If Not Intersect(Target, Range("F19:F3000")) Is Nothing Then
 'Inhalt aus Zelle auslesen
 strInhalt = Target.Value

 'Prüfen, ob Eingabe 8 Zeichen lang ist
 If Len(strInhalt) <> 8 Then
  MsgBox "Die Eingabe ist nicht 8 Zeichen lang! Abbruch!", 16, "Fehler"
  Target.Select
  Exit Sub
 End If

 'Ereignissteuerungen ausschalten
  Application.EnableEvents = False
   
 'neues Format in Zeile schreiben
 Target.Value = "0-" & Left(strInhalt, 6) & "-" & UCase(Right(strInhalt, 2))

 'Ereignissteuerungen einschalten
 Application.EnableEvents = True

End If

End Sub

Eine Prüfung ob die ersten sechs Zeichen Zahlen und die letzten 2 Zeichen Buchstaben sind, findet nicht statt, nur ob die Eingabe 8 Zeichen lang ist.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Tue Oct 17 18:17:53 2017