Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code erweitern

Code erweitern
12.07.2006 07:35:01
volker
Hai Excels,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 12.07.2006 11:40:38
    Doppelt
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige