AW: wäre hilfreich...
21.04.2005 10:44:38
Paralizer
Hier der Code, der mir Kopfzerbrechen macht:
Public
Sub csv()
'Dim text1 As String
'Dim text2 As String
'Dim text3 As String
'Dim Antwort1 As String
'Dim Antwort2 As String
Dim pname As String, clearname As String, svname As String, dlname As String
Dim namea As String, nameb As String, akt As Integer, pbrake As String
'Dim ziel As String
Dim X, Y, z As Integer
'Dim matnr As String
'fuer Filtern von Leerzeichen und Strichen in Artikelnummern:
Dim a, b As Integer
Dim austext, eintext, aus2 As String
pname = ActiveWorkbook.ActiveSheet.Name
Debug.Print clearname, svname
Dim i As Integer
Dim aktsheet As String
Dim strFilter As String, strSaveFilename As String, xname As String
Dim tag As String
namea = ActiveWorkbook.Name
Workbooks.Add
nameb = ActiveWorkbook.Name
Worksheets.Add
ActiveSheet.Name = "Stückliste"
If pname = "Cube Line" Then
xname = "'Cube Line'"
Else
xname = pname
End If
Debug.Print xname
Workbooks(namea).Activate
Debug.Print "test"; pname
Select Case pname
Case "Klemmleiste"
'1.Zeile i.d. STL
'Workbooks(nameb).Worksheets("Stückliste").Cells(1, 1) = "Mat.-Nr."
'Workbooks(nameb).Worksheets("Stückliste").Cells(1, 2) = "Pos.-Nr."
Workbooks(nameb).Worksheets("Stückliste").Cells(1, 1) = "Pos.-Typ"
Workbooks(nameb).Worksheets("Stückliste").Cells(1, 2) = "Komponente"
Workbooks(nameb).Worksheets("Stückliste").Cells(1, 3) = "Menge"
Workbooks(nameb).Worksheets("Stückliste").Cells(1, 4) = "Bezeichung"
Y = 3 '<--Zeilenzähler
'Materialnummer extrahieren
'matnr = ""
'eintext = Cells(66, 11) 'Position Materialnummer auf dem Formblatt
'For b = 1 To Len(eintext)
' austext = Mid(eintext, b, 1)
'If austext = "0" Then austext = "0"
'If austext = " " Then austext = ""
'If austext = "-" Then austext = ""
'matnr = matnr + austext
'Next 'b
'Matnr. := R415xxxxxx
'matnr = "R415" + Mid(matnr, 5, 6)
'Tabelle fuellen
For X = 12 To 88 'Anzahl der Zeilen i.d. STL - Bereich untereinander in der die INfos gespiegelt wurden
If Not Cells(X, 69) = "0" Then '69
'Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 1) = matnr
'Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 2) = (Y - 1) * 10
Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 1) = "L"
Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 3) = Cells(X, 75) 'mengenangabe
Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 4) = Cells(X, 67)
'Filtern von Leerzeichen und Strichen von manuellen Eingaben
aus2 = ""
eintext = Cells(X, 74) 'eintext=Artikelnummern
For b = 1 To Len(eintext)
austext = Mid(eintext, b, 1)
' If austext = "0" Then austext = "0"
If austext = " " Then austext = ""
If austext = "-" Then austext = ""
aus2 = aus2 + austext
Next 'b
'Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 4).NumberFormat = "@"
Workbooks(nameb).Worksheets("Stückliste").Cells(Y, 2).Value = aus2
Y = Y + 1
End If
Next X 'zeilenzähler 1 hoch
End Select
Workbooks(nameb).Activate
'Range("B2:B80").Select
'With Selection
' .HorizontalAlignment = xlRight
' .VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
'End With
Range("a1").Select
'ActiveSheet.Cells.Locked = True
'ActiveSheet.Protect "MRP"
ActiveWorkbook.Close
'End If
' End If
End Sub
Ich hatte es auch direkt in Excel gespeichert, nur leider ohne Erfolg :-(
Gruß
Leif