AW: Buchstaben vor Zahl
24.05.2011 19:46:23
fcs
Hallo Markus,
die Textbox leeren ist kein Problem.
Private Sub cmdWeiter_Click()
Dim vSN As Variant, iI As Long, iOffset As Integer
Set frm = frmEingabeDaten
Range("C65536").End(xlUp).Offset(1, 0).Select
With frm
iOffset = 0
vSN = Split(.txtSerial, vbCrLf)
For iI = LBound(vSN) To UBound(vSN)
If vSN(iI) "" Then
ActiveCell.Offset(iOffset, 0).Value = vSN(iI)
iOffset = iOffset + 1
End If
Next
.txtSerial = "" ' Textbox leeren
End With
End Sub
Ich verstehe allerdings nicht den Sinn der Worksheets-Change-Prozedur im Blatt "Projekt_2".
Willst du hier den der S/N vorangestellten Text als Formatierung vorgeben?
Falls ja dann so wenn Zahlen mit führenden Nullen dargestellt werden sollen:
If IsNumeric(RaZelle) Then ' Prüfen ob Eingabe numerisch
StZahl = """RRD""000"
If InStr(RaZelle, ",") > 0 Then ' Prüfen ob Szellen nach Komma
Ich halte nicht viel davon Real-Daten mit Formatierungen darzustellen. Ich würde Text + Zahl in die Zellenschreiben. Schaut dann so aus:
If IsNumeric(RaZelle) Then ' Prüfen ob Eingabe numerisch
StZahl = "000"
RaZelle = "RRD" & Format(RaZelle, StZahl)
Else
Gruß
Franz