AW: Eingabe nach 5 Stellen
17.05.2006 17:29:44
Heinz H
Hallo Andi
Habe jetzt mal den ganzen Code von der Userform reinkopiert.
Danke für Deine Hilfe
Heinz
Private Sub UserForm_Initialize()
Dim t As Date
' Pfad, wo sich die SAP_Dateien befinden
'strPfad = "F:\Vetropack\Packanweisungen\"
' strPfad = "C:\Documents and Settings\Etiprint\Desktop\Eigene Dateien\Vetropack\Womat.2000\PACKANWEISUNGEN\"
strPfad = "C:\Dokumente und Einstellungen\Holzmann\Desktop\Womat\PACKANWEISUNGEN\"
With UF
.MaxButton = True: .MinButton = True
.BorderStyle = xlÄnderbar
.Create UserForm1
End With
' SAP-Nummern einlesen
Call DATEILISTE_SAP(strPfad)
' Werte aus SAP-Datei
Call DATEN_aus_SAP
cmbSAP.SetFocus
End Sub
' SAP ändern ----------------------------------------------------------------
Private Sub cmbSAP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = KeyCheck(KeyAscii, cmbSAP, NurZahlen, False, False)
End Sub
Private Sub txtBedarf_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo errHandle
Bedarf = CInt(txtBedarf)
Call BERECHNUNG_sinnvoll
Exit Sub
errHandle: Bedarf = 0
End Sub
'---------------------------------------------------------------------------
' Ordner für SAP-Dateien
Private Sub labOrdner_Click()
Call Funktionen.FunktionGetDirectory("Ordner der SAP-Dateien auswählen")
End Sub
Sub DATEN_aus_SAP()
Dim ext_SAP As Object
Dim TMP$, TMP1$
' externe Tabelle lt. SAP-Nummer
On Error GoTo errHandle
' Set ext_SAP = GetObject(strPfad & SAPDateien(cmbSAP.ListIndex) & ".xls")
Set ext_SAP = GetObject(strPfad & cmbSAP.Text & ".xls")
SAP_ok = True
' Daten aus SAP-Dateien
With ext_SAP.Sheets(1)
TMP = vbNullString
For n = 4 To 13
TMP1 = Trim(.Cells(53, n).Text): If Len(TMP1) <> 0 Then TMP = TMP & " " & TMP1
Next n
ANMERKUNG1 = TMP
TMP = vbNullString
For n = 1 To 13
TMP1 = Trim(.Cells(54, n).Text): If Len(TMP1) <> 0 Then TMP = TMP & " " & TMP1
Next n
ANMERKUNG2 = TMP
TMP = vbNullString
For n = 1 To 13
TMP1 = Trim(.Cells(55, n).Text): If Len(TMP1) <> 0 Then TMP = TMP & " " & TMP1
Next n
ANMERKUNG3 = TMP
End With
ext_SAP.Close
Set ext_SAP = Nothing
Exit Sub
errHandle:
Set ext_SAP = Nothing
SAP_ok = False
Dim txtBox
For Each txtBox In UserForm1.frmDaten.Controls
If TypeName(txtBox) = "TextBox" Then txtBox.Text = vbNullString
Next txtBox
End Sub
Private Sub cmdEnde_Click()
Unload UserForm1
End Sub
' EFFEKTE ----------------------------------------------------------------
Private Sub frmSteuerung_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
For n = 0 To 4
varButton(n).butGroup.BackColor = &HFFDAA6
varButton(n).butGroup.ForeColor = &H80000012
varButton(n).butGroup.Font.Bold = False
Next n
End Sub