Code erweitern
12.07.2006 07:35:01
volker
im folgenden Code trage ich über "Inputboxen" Werte ein.
Dann öffnet das Workbook "Seriennummern" hier wird eine Nummer ausgelesen neue Nummern generiert im anderen Workbook sowie in diesem eingetragen und das Workbook Seriennummern wieder geschlossen. so weit....
Sub auto_open()
Worksheets("Holzliste").Activate
If Cells(4, 1) = 0 Then
Stückzahl = InputBox("Stückzahl_Side: ")
Cells(3, 4) = Stückzahl
Stückzahl = InputBox("Stückzahl_Spender: ")
Cells(3, 5) = Stückzahl
Stückzahl = InputBox("Stückzahl_UpperDoor: ")
Cells(3, 9) = Stückzahl
Fachhändler = InputBox("Fachhändler: ")
Cells(1, 1) = Fachhändler
Kommission = InputBox("Kommission: ")
Cells(4, 1) = Kommission
AuftragsNr = InputBox("AuftragsNr: ")
Cells(4, 4) = AuftragsNr
KW = InputBox("KW: ")
Cells(4, 16) = KW
Cells(4, 19) = Application.UserName
Cells(4, 18) = Date
cboGrundfarben.Show
'cboAkzentFarbe.Show
cboCorianFarbe.Show
'frmSidePanel.Show
frmFosset.Show
'frmUpperFrontMid.Show
' Seriennummer einfügen
' Dim zei, n As Integer
Workbooks.Open "\\Server02\av\Seriennummern.xls"
Worksheets("SideCabinet").Activate
zei = Worksheets("SideCabinet").Range("A65536").End(xlUp).Row
With ThisWorkbook.Worksheets("Übersicht")
For n = 1 To ThisWorkbook.Worksheets("Holzliste").Range("D3")
.Cells(2 + n, 6) = Cells(zei, 1) + n
Worksheets("SideCabinet").Cells(zei + n, 1) = Cells(zei, 1) + n
Next n
End With
Workbooks("Seriennummern.xls").Close True
Ich möchte im Workbook "Seriennummern" zur neuen Nummer auch die Werte der Inputboxen übernehmen, sagen wir mal in Spalte B den Kommissionsnamen in C die Auftragsnummer und so.
Erklären ist wichtig, aber gar nicht so einfach.
Kann mir jemand helfen?
Danke Gruss volker